VBA Hiện button khi click để hiện lên các button

[hp19892]

E muốn tạo vba button click event, ví dụ khi ấn vào nút Daily Checking thì hiện các button liên quan Daily, còn khi ấn button Weekly Planning thì chỉ hiện thị button lquan tới weekly còn các button của Daily sẽ ẩn lại. Mong các bác chỉ giáo.

 

[HUONGHCKT]

E muốn tạo vba button click event, ví dụ khi ấn vào nút Daily Checking thì hiện các button liên quan Daily, còn khi ấn button Weekly Planning thì chỉ hiện thị button lquan tới weekly còn các button của Daily sẽ ẩn lại. Mong các bác chỉ giáo.
View attachment 266822
View attachment 266827
View attachment 266828

Nếu vẫn còn quan tâm, thử tham khảo file và tự tùy chỉnh

 

[Hoàng Trọng Nghĩa]

E muốn tạo vba button click event, ví dụ khi ấn vào nút Daily Checking thì hiện các button liên quan Daily, còn khi ấn button Weekly Planning thì chỉ hiện thị button lquan tới weekly còn các button của Daily sẽ ẩn lại. Mong các bác chỉ giáo.

Code của bạn đây nhé:

Sub DailyButton()
    With ActiveSheet.Shapes
        .Range(Array("Group 53")).Visible = msoFalse
        .Range(Array("Group 18")).Top = 6
        .Range(Array("Group 18")).Left = 478
        .Range(Array("Group 18")).Visible = msoTrue
    End With
End Sub

Sub WeeklyButton()
    With ActiveSheet.Shapes
        .Range(Array("Group 18")).Visible = msoFalse
        .Range(Array("Group 53")).Top = 100
        .Range(Array("Group 53")).Left = 478
        .Range(Array("Group 53")).Visible = msoTrue
    End With
End Sub

 

[DarkWanderer]

Bạn tham khảo thử xem

 

[hp19892]

Cám ơn các bác sau vài ngày tìm hiểu e. cũng tự code được rồi. Biến hết các shape thành group rồi cho ẩn hiện theo group là được. Giờ e đang tìm thêm cách để mỗi khi chuyển sheet khác thì các group cũng tự động ẩn