Cách tạo Menu trong Excel

[costofliving]

Nếu có nhiều sheet trong Excel, bạn muốn chọn sheet cần tìm mà không phải tìm dưới sheettab thì bạn tạo một menu rồi gán vào các sheet và sử dụng.
Bạn tạo 1 form trong trong visualBasic đặt tên là Treeview rồi thiết kế như sau. nhớ vẽ 1 Imagelist (màu trắng) vào form nha:
clip_image002.jpg picture by cosofliving - Photobucket
Sau đó bạn viết code cho form:
Private Sub UserForm_Initialize()
'Khai bao bien mang kieu Node
Dim NodeX As Node

'Khai bao su dung Imagelist trong Treeview
MyTreeView.ImageList = MyImageList

'Khai bao nut thu nhat nham tao nut goc of Treeview
Set NodeX = MyTreeView.Nodes.Add(, , "A", "Tên tùy ý ", 1)
Set NodeX = MyTreeView.Nodes.Add(, , "B", "Tên tùy ý ", 1)
End sub
'Phuong thuc khi click vao 1 nut tren treeview
Private Sub Mytreeview_click()
Dim MenuIndex As String
MenuIndex = MyTreeView.SelectedItem.Key

Select Case MenuIndex
Case "A"
Worksheets("Sheet1").Activate
Unload Me
Case "B"
Worksheets("Sheet2").Activate
Unload Me
End Select
End Sub
(Tạo thêm nếu bạn muốn)
Sau đó bạn vẽ 1 command button trên sheet Đặt tên Menu viết code cho nút menu:
Sub Button1_Click()
FrmTreeView.Show
End Sub

-Kết quả
1.jpg picture by cosofliving - Photobucket

 

[tr hoan]

Ðề: Cách tạo Menu trong Excel

Cám ơn bạn
Nhưng cho mình hỏi toàn bộ nội dung, cách viết code bạn có thể giới thiệu riêng ra ngoài hoặc mục bên dưới được không viết cùng vào dễ lẫn và không sử dụng được.
OK