Cách tạo Menu trong Excel

[quanghnn]

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

View more random threads:

• Video Hướng dẫn Excel cơ bản 01 - 45
• Phím tăt ctrl+1 trong excel?
• Chào các anh chị trên diễn đàn
• Cách xếp row theo thứ tự ABC dựa vào cell đầu tiên
• cách sử dụng file kế toán excel theo qd 48
• Phím tắt trong exel,lỗi macro
• Cách tìm các giá trị giống nhau?
• Lỗi font chữ trong word
• Di chuyển từ sheet khác nhau
• Hàm offset trong exel?

[dongtm]

Ðề: 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