[chia sẽ] Code Unhide nhiều Sheet thừa trong file cell

tuandaiminh2012 · Đăng lúc 16/11/2015 15:51

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

Hiện toàn bộ các sheet trong file để Xóa bớt những sheet không cần thiế:

1. Mở File cần hiện tất cả các Sheet

2. Bấm tổ hợp phím ALT+ F11, trong cửa sổ VBE, chọn VBA Project chứa tên file, nhấn nút phải, chọn / INSERT / MODULE

3. Copy đoạn code bên dưới để Paste vào MODULE

4. Trên menu công cụ của VBE, Nhấn nút mũi tên màu xanh (Play) để thực hiện lệnh (hoặc phím F5)

[Visual Basic] 纯文本查看 复制代码

Sub UnHideSheet()
   For Each sh InThisWorkbook.Worksheets
       sh.Visible = True
   Next sh
End Sub

tranhungdao12a3 · Đăng lúc 16/11/2015 17:05

bẫy lỗi:

[Visual Basic] 纯文本查看 复制代码

Public Sub ShowAllSh()
        On Error GoTo ShowErr                         
        Application.DisplayAlerts = False            
        For Each MySheet In ActiveWorkbook.Worksheets()
                With MySheet
                        If .Visible = xlSheetHidden Or .Visible = xlSheetVeryHidden Then
                                On Error Resume Next
                                .Visible = xlSheetVisible
                        End If
                End With
        Next MySheet
        Set MySheet = Nothing
        Application.DisplayAlerts = True              
        Exit Sub                                      
ShowErr:
        Set MySheet = Nothing
        Application.DisplayAlerts = True
End Sub

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

[chia sẽ] Code Unhide nhiều Sheet thừa trong file cell

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá