Có thể viết code này dạng tổng quát hơn (ngắn hơn)?

[nhatky@]

Em có vi dụ này loay hoay mãi không biết viết thế nào cho nó ngắn và tổng quát hơn? Hiện tại, nếu có thêm nhiều sheets nữa thì một thủ tục chắc dài lắm đó.
Em đưa file này lên nhờ các cao thủ giúp em nhé!

 

[nghiaphuc]

Em có vi dụ này loay hoay mãi không biết viết thế nào cho nó ngắn và tổng quát hơn? Hiện tại, nếu có thêm nhiều sheets nữa thì một thủ tục chắc dài lắm đó.
Em đưa file này lên nhờ các cao thủ giúp em nhé!

Bạn nghiên cứu qua bài này nhé. Dù bao nhiêu sheet thì code cũng không thay đổi. Chỉ cần đơn giản: Thêm sheet thì thêm nút là xong.

 

[dhn46]

mình thấy code củ chuối này cũng được nè (nếu số lượng sheet vừa phải)

Sub Button7_Click()
Dim sh As Worksheet

Sheets("b1").Visible = xlSheetVisible
For Each sh In Application.ActiveWorkbook.Worksheets    
               If sh.Name <> "b1" Then        
                   sh.Visible = xlSheetVeryHidden    
               End If
Next
End Sub