Ẩn các sheet có tên trùng nhau trong 1 file

[thanhdogtvt]

Em có 1 file có rất nhiều sheet, trong đó có các sheet trùng tên nhau như CD, CD (1) , CD (2) , CD (3) ,......., CD (n) . Giờ em muốn ẩn (và hiện) các sheet đấy cùng 1 lúc thì làm thế nào ạ. Có anh chị nào rành VBA viết hộ em với ạ. Em cảm ơn.

 

[leonguyenz]

Tham khảo code này:
[gpecode=vb]
Private Sub CommandButton1_Click()
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.Name Like "Sheet*" And Sh.Name <> "Sheet1" Then
Sh.Visible = (CommandButton1.Caption = "Show")
End If
Next Sh
With CommandButton1
.Caption = IIf(.Caption = "Hide", "Show", "Hide")
End With
End Sub
[/gpecode]
Lần sau hỏi VBA thì gửi bài vào Box VBA bạn nhé.

 

[thanhdogtvt]

Tham khảo code này:
[gpecode=vb]
Private Sub CommandButton1_Click()
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.Name Like "Sheet*" And Sh.Name <> "Sheet1" Then
Sh.Visible = (CommandButton1.Caption = "Show")
End If
Next Sh
With CommandButton1
.Caption = IIf(.Caption = "Hide", "Show", "Hide")
End With
End Sub
[/gpecode]
Lần sau hỏi VBA thì gửi bài vào Box VBA bạn nhé.

Bạn ơi cho mình hỏi cái này chạy như thế nào vậy?

 

[leonguyenz]

Bạn ơi cho mình hỏi cái này chạy như thế nào vậy?

Bạn mở Marco lên, nhấp vào nút tôi đã tạo trên đó. Cách mở Marco: Hướng dẫn Enable Macros trong Excel