tao sheet

[tranle102]

Em có 1 file excel chứa rất nhiều sheet:111,112,131...,bây giờ em muốn tạo 1 sheet bằng các nút bấm để khi clik vào 1 nút bấm nào đó VD:nút bấm 1 có tên là:111,hoặc nút bấm 2 có tên là: 112,...thì sẽ hiện sheet có tên là:111 hoặc 112...và khi không muốn xem sheet đó nữa thì clik vào nút ẩn sheet có tên như trên thì sheet đó sẽ ẩn đi.vì trình độ về VBA của em không tốt lắm nên không biết làm như thế nào,rất mong sự giúp đỡ của các anh chị.em xin Thanks trước nha.Thanks!
email:tranle102@yahoo.com.vn

 

[SA_DQ]

Hình như bạn muốn xem 1 sheet nào đó cụ thể thì phải

Option Explicit
Sub AuTpen()
Dim Sh As Worksheet

Sheets("Main").Select: Range([A3], [A3].End(xlDown)).ClearContents
For Each Sh In Worksheets
[a65500].End(xlUp).Offset(1).Value = Sh.Name
Next Sh
End Sub

Sub TroVe()
Sheets("Main").Select
End Sub

Ở sheets("MAIN") còn có 1 macro sự kiện nữa, đó là:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c2]) Is Nothing And [c2].Value <> "Main" Then _
Sheets([c2].Value).Select

End Sub

Bạn xen thêm trong file đính kèm;

(Nếu muốn tạo mới các trang tính thì hãy chờ nha!)