Chào cho e là ví dụ trong file excel mình có các sheet với tên như "DT41118" "DT1388"

Chào thầy, thầy cho e hỏi là, ví dụ trong file excel mình có các sheet với tên như "DT.41118", "DT.1388", "DT.131", "DT.331" ... thì mình tạo Macro để ẩn hiện các sheet có tên gần giống nhau như "DT.*" thì viết thế nào ạ?. E thử viết như vậy nhưng không được, thầy sửa lại giúp e nhé, cám ơn thầy.

Sub Test()

Dim Ws As Worksheet

If (Ws.Name Like "DT.*") Then

For Each Ws In ThisWorkbook.Worksheets

Ws.Visible = xlSheetVisible

Next Ws

End If

End Sub

3 câu trả lời

149 lượt xem

vỗ tay

PHAN TUYẾT LINH 13:12 - Dec 09, 2021

Chào bạn bạn đưa hàm if vào trong vòng lặp nhé.

vỗ tay

PHAN TUYẾT LINH 14:12 - Dec 09, 2021

Sub Test()

Dim Ws As Worksheet

For Each Ws In ThisWorkbook.Worksheets

If (Ws.Name Like "DT.*") Then

Ws.Visible = xlSheetVisible

Next Ws

End If

End Sub

Lỗi next without for, thầy viết lại giúp e đoạn sub chính xác, cám ơn thầy

vỗ tay

PHAN TUYẾT LINH 14:12 - Dec 09, 2021

Chào bạn bạn làm như sau nhé

Option Explicit
Sub Test()
Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
      If (Ws.Name Like "Sheet*") Then
            Ws.Visible = xlSheetHidden
        End If
    Next Ws
End Sub

phần hiện bạn chỉ cần thay đổi code là xong

Option Explicit
Sub Test()
Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
      If (Ws.Name Like "Sheet*") Then
            Ws.Visible = xlSheetVisible
        End If
    Next Ws
End Sub

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

Chào cho e là ví dụ trong file excel mình có các sheet với tên như "DT41118" "DT1388"

Câu hỏi liên quan