Link đến nhiều sheet (1 người xem)

[hoangtrong_vbnd]

E có file excel đã chứa macro link đến nhiều sheet theo vùng chọn trên sheet Menu. Nay muốn thu gọn lại macro mà không biết sửa sao mong các bác có thể giúp đỡ.
Cảm ơn các bác quan tâm !

 

[Quang_Hải]

E có file excel đã chứa macro link đến nhiều sheet theo vùng chọn trên sheet Menu. Nay muốn thu gọn lại macro mà không biết sửa sao mong các bác có thể giúp đỡ.
Cảm ơn các bác quan tâm !

Thử thay code này xem sao. Hình như chỉ là cho ẩn và hiện sheet thì phải
Mình đọc code trong file của bạn mà khâm phục sự kiên nhẫn của người viết code. Hix khâm phục thật.

Sub an()
Application.ScreenUpdating = False
Dim sh As Worksheet, SheetName As String
SheetName = Sheets("Menu").Shapes(Application.Caller).AlternativeText
SheetName = Left(SheetName, 2)
For Each sh In Worksheets
    If sh.Name <> "WK" Then
        If sh.Name <> "Menu" Then
            If sh.Name Like SheetName & "*" Then
                sh.Visible = True
            Else
                sh.Visible = False
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[hoangtrong_vbnd]

thanks bác nhé! tại e ko biết viết macro nên mới dông dài như vậy