Cách viết CommandButton giúp ẩn hiện sheet theo ý muốn (2 người xem)

[quannguyen1984]

Xin các bạn giúp đỡ mình thêm.

 

[VMH0307]

Xin các bạn giúp đỡ mình thêm.

Bạn dùng shape đi cho đẹp, tiện và gọn (ví dụ hình vuông, hình elip) rồi đặt tên là tên của các sheet muốn đến (ví dụ Sheet1, Sheet2, Menu) và assign macro sau là ok

Sub gogo()
Sheets(ActiveSheet.Shapes(Application.Caller).Name).Activate
End Sub

 

[quannguyen1984]

Bạn dùng shape đi cho đẹp, tiện và gọn (ví dụ hình vuông, hình elip) rồi đặt tên là tên của các sheet muốn đến (ví dụ Sheet1, Sheet2, Menu) và assign macro sau là ok

Sub gogo()
Sheets(ActiveSheet.Shapes(Application.Caller).Name).Activate
End Sub

Mình không hiểu lắm ý của bạn lắm, mong được bạn giúp đỡ thêm. Bạn làm một file test gửi mình được không?

 

[Ba Tê]

Mình không hiểu lắm ý của bạn lắm, mong được bạn giúp đỡ thêm. Bạn làm một file test gửi mình được không?

Làm theo file của bạn vậy.

 

[quannguyen1984]

Mình cảm ơn bạn rất nhiều

 

[VMH0307]

Mình không hiểu lắm ý của bạn lắm, mong được bạn giúp đỡ thêm. Bạn làm một file test gửi mình được không?

Bạn xem thử, tham khảo ý kiến của mình theo file đính kèm.