Chủ đề: Cách tạo Menu trong Excel
-
02-22-2012, 07:00 PM #1
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Cách tạo Menu trong Excel
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:
-
04-01-2013, 09:02 PM #2
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: 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
Giả dụ ví dụ phái mạnh vẫn chưa tuột hoặc cắt da quy đầu vẫn hoạt động tình dục thông thường. mặc dầu vậy đối với các tình huống bao quy đầu hẹp và ôm sát lấy dương vật sẽ gây nên biến chứng ít rộng...
Tốn tiền cắt bao quy đầu vẫn "nhanh ra". Bạn trai chua xót tâm sự