Tạo Menu

Liên hệ QC
Ôi mừng quá con cảm ơn Thầy nhiều nha, trăm sự nhờ Thầy :)

Mình đã hoàn thành video hướng dãn chi tiết cách thức lập trình BSTreeview tạo menu lệnh đa cấp độ - Multi level. Bạn chú ý tới cách tổ chức dữ liệu của menu và giải thuật trong vòng lặp nhé. Đơn giản thôi!
 
Mình đã hoàn thành video hướng dãn chi tiết cách thức lập trình BSTreeview tạo menu lệnh đa cấp độ - Multi level. Bạn chú ý tới cách tổ chức dữ liệu của menu và giải thuật trong vòng lặp nhé. Đơn giản thôi!
Anh ơi sao mỗi lần bảng tính mở nó tự động hiện cái bảng
1534390488318.png
Vậy tắt đi làm sao ạ.
 

File đính kèm

  • TreeView.xls
    116 KB · Đọc: 16
Anh cho em hỏi thêm một chút ạ
Khi em đưa UserForm vào sự kiện Workbook_Open xuất hiện lỗi như bản dưới
Anh xem hộ em với ạ.
Em cám ơn Anh nhiều

File em làm bị lỗi như trong hình là do file đó bị lỗi userform. Tạm thời em không nên mở ngay userform có treeview lóc Open() sẽ sinh lỗi. Khi thiết kế chương trình em hãy hiển thị màn hình đăng nhập trước, kết thúc màn hình này mới mở userform có TreeView như thế an toàn và đúng cách.
 
File em làm bị lỗi như trong hình là do file đó bị lỗi userform. Tạm thời em không nên mở ngay userform có treeview lóc Open() sẽ sinh lỗi. Khi thiết kế chương trình em hãy hiển thị màn hình đăng nhập trước, kết thúc màn hình này mới mở userform có TreeView như thế an toàn và đúng cách.
Dạ vâng. Em đang áp dụng treeview vào một số file của em. Có gì mong anh giúp đỡ ạ. Em cám ơn Anh rất nhiều
 
File em làm bị lỗi như trong hình là do file đó bị lỗi userform. Tạm thời em không nên mở ngay userform có treeview lóc Open() sẽ sinh lỗi. Khi thiết kế chương trình em hãy hiển thị màn hình đăng nhập trước, kết thúc màn hình này mới mở userform có TreeView như thế an toàn và đúng cách.
Anh ơi. Em lại làm phiền Anh một tí ạ.
Em loai hoai từ chiều đến giờ mà nó vẫn lỗi ngay tại cái Userform1 ạ:
Em đã cho Form tạo TreeWiew chạy sau 1 Form đăng nhập trong sự kiện Workbook_Open. Nhưng khi vào cửa sổ soạn thảo VBA và click vào Userform1 và lưu file. Khi mở lại nó lại xuất hiện lỗi như bài 25
Em có ghi lại màn hình. Mong Anh chỉ dẫn ạ
Em cám ơn Anh nhiều./
 

File đính kèm

  • TreeView1.xls
    156.5 KB · Đọc: 22
Mình đã hoàn thành video hướng dãn chi tiết cách thức lập trình BSTreeview tạo menu lệnh đa cấp độ - Multi level. Bạn chú ý tới cách tổ chức dữ liệu của menu và giải thuật trong vòng lặp nhé. Đơn giản thôi!
Thầy ơi, con làm ok rồi nhưng giao dịch kỳ lắm thầy
Các Node cha là icon V, ko phải dấu + giống của thầy
Thanh Roll ko có nút down V để kéo xuống cuối cho nhanh, phải lăn chuột rất lâu thầy ạ
Mong thầy phản hồi ạ
1534495245706.png
 
Để co control BSTreeView co giãn theo cửa sổ TaskPaneX thì viết code trong sự kiện Resize của Userform như sau:

Private Sub UserForm_Resize()
On Error Resume Next
BSTreeview1.Height = Height - BSTreeview1.Top
BSTreeview1.Width = Width
End Sub
 
@Nguyễn Duy Tuân a cho e hỏi là lúc tạo ra thanh menu rồi nhưng nó không hiện ra treeview, mình phải co kéo nó thì treeview mới hiện ra, có cách nào để nó hiện ra luôn ko ạ?
 

File đính kèm

  • 1.JPG
    1.JPG
    145.5 KB · Đọc: 19
  • 2.JPG
    2.JPG
    132.5 KB · Đọc: 19
  • Book1.xlsm
    30.9 KB · Đọc: 10
Bạn tham khảo cách tạo TreeView unicode với BSAC tại đây.
(Hiện tại riêng BSTreeView hỗ trợ unicode với các môi trường Office 32, 64-bit)
Địa chỉ downlaod bản BSAC mới nhất: http://bluesofts.net/download/phan-mem/phan-mem-mien-phi/
Bác ơi, em tạo treeview xong rồi, nhưng cứ tắt file Exel đi bật lại thì lại phải mở cửa sổ VBA lên để chạy lại. Có cách nào ghim cái đó lại trong file để khi mở exel lên ko phải bật lại ko ạ? bác chia sẻ giúp em với email em: levantrien95@gmail.com
 
Bác ơi, em tạo treeview xong rồi, nhưng cứ tắt file Exel đi bật lại thì lại phải mở cửa sổ VBA lên để chạy lại. Có cách nào ghim cái đó lại trong file để khi mở exel lên ko phải bật lại ko ạ? bác chia sẻ giúp em với email em: levantrien95@gmail.com

Khi dùng BSTaskPaneX (kéo that lên userform) thì user form thường không mở được trong sự kiện Workbook_Open().
(*) Cách khắc phục:
Bạn không dùng BSTaskPaneX. Thay vào đó bạn khai báo trên cùng Userform class có tên BSTakPane
Ví dụ
Dim TP as BSTaskPane
Dim TPs As New BSTaskPanes

Private Sub UserForm_Initialize()
Set TP = TPs.Add(Me)
End Sub
 
Web KT
Back
Top Bottom