Tạo Menu (7 người xem)

[nga.tran108]

Em muốn tạo menu như hình bên dưới bằng excel

Trong đó dữ liệu em chia làm 5 cột : Lv1, Lv2, Lv3, Lv4, Lv5


Xin các bác cho em ý kiến làm cách nào để tạo được tree view được như hình ?

 

[befaint]

Cách đơn giản nhất là dùng hyperlink;
Cách nữa là dùng userForm.

Tuy nhiên, không biết cái nội dung cần liên kết như nào và mục đích của việc này là gì

 

[Nguyễn Duy Tuân]

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/​

 

[nga.tran108]

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/​

Em cảm ơn bác nhìu lém

Bài đã được tự động gộp: 5/8/18

Cách đơn giản nhất là dùng hyperlink;
Cách nữa là dùng userForm.

Tuy nhiên, không biết cái nội dung cần liên kết như nào và mục đích của việc này là gì

Em cảm ơn bác nhìu lém dạ em làm mô hình để đào tạo ạ

 

[nga.tran108]

Em đã cài A-tool, đã tạo userform1 và em chọn BSBotton và BStreeview, nhưng khi em gõ code Unload Me thì có lỗi Microsoft stop working rồi bị văng ra khỏi Excel không làm gì được, treeview cũng không tạo được, các bác xem giúp em với huhu
Các bác có thể tạo giúp em 2 nút BSBotton và Treeview để em tham khảo được không ạ, đội ơn các bác nhìu lém huhu

 

[Nguyễn Duy Tuân]

Em đã cài A-tool, đã tạo userform1 và em chọn BSBotton và BStreeview, nhưng khi em gõ code Unload Me thì có lỗi Microsoft stop working rồi bị văng ra khỏi Excel không làm gì được, treeview cũng không tạo được, các bác xem giúp em với huhu
Các bác có thể tạo giúp em 2 nút BSBotton và Treeview để em tham khảo được không ạ, đội ơn các bác nhìu lém huhu
View attachment 201324

BSTreeView trong bản BSAC cũ bị lỗi trong Office 64-bit. Bạn hãy tải bản BSAC 2.0 mới nhất tại đây rồi copy đè vào thư mục hệ thống nhé.
http://bluesofts.net/download/phan-mem/phan-mem-mien-phi/

 

[nga.tran108]

BSTreeView trong bản BSAC cũ bị lỗi trong Office 64-bit. Bạn hãy tải bản BSAC 2.0 mới nhất tại đây rồi copy đè vào thư mục hệ thống nhé.
http://bluesofts.net/download/phan-mem/phan-mem-mien-phi/

Dạ em cảm ơn bác, em sẽ thử lại ạ

 

[nga.tran108]

BSTreeView trong bản BSAC cũ bị lỗi trong Office 64-bit. Bạn hãy tải bản BSAC 2.0 mới nhất tại đây rồi copy đè vào thư mục hệ thống nhé.
http://bluesofts.net/download/phan-mem/phan-mem-mien-phi/

Em mừng quá bác ơi, em làm được rồi ạ, mà bác cho em hỏi, máy của em cài đầy đủ thì ok, nếu file này mà người khác vào xem trên máy tính của họ (chưa cài đặt đầy đủ A-tool,...) thì có xem được file của em không vậy bác ?

 

[Nguyễn Duy Tuân]

Em mừng quá bác ơi, em làm được rồi ạ, mà bác cho em hỏi, máy của em cài đầy đủ thì ok, nếu file này mà người khác vào xem trên máy tính của họ (chưa cài đặt đầy đủ A-tool,...) thì có xem được file của em không vậy bác ?

EM chỉ cần copy file BSAC.ocx đi cùng và đăng ký (xem tài liệu hướng dẫn đi cùng bộ BSAC) là được nhé.

 

[nga.tran108]

EM chỉ cần copy file BSAC.ocx đi cùng và đăng ký (xem tài liệu hướng dẫn đi cùng bộ BSAC) là được nhé.

Dạ em cảm ơn bác ạ

 

[nga.tran108]

EM chỉ cần copy file BSAC.ocx đi cùng và đăng ký (xem tài liệu hướng dẫn đi cùng bộ BSAC) là được nhé.

Bác ơi, trong youtube file excel chỉ có 2 cột, file của em tới 5 cột thì đặt tên biến I như thế nào vậy bác, cột 1 bác đặt “key” & I, cột 2 đặt là I thì cột 3 , 4 và 5 sẽ như thế nào vậy bác

 

[Nguyễn Duy Tuân]

Bác ơi, trong youtube file excel chỉ có 2 cột, file của em tới 5 cột thì đặt tên biến I như thế nào vậy bác, cột 1 bác đặt “key” & I, cột 2 đặt là I thì cột 3 , 4 và 5 sẽ như thế nào vậy bác

Video mà mình hướng dẫn trên Youtube là bài 1 về BSTreeView giúp mọi người tiếp cận dễ nhất. Bạn có thể tự khai thác theo mô hình nhiều cấp, quan hệ cha, con. Bạn nhớ là dùng lệnh tạo Node thì nó có tham số đâu tiên là cha.

Set con = BSTreeView.Items.Add(cha, "Nội dung",...)


Bạn Follow kênh Youtibe của tôi sẽ biết các bài hướng dẫn tiếp theo về TreeView đa cấp.

 

[nga.tran108]

Video mà mình hướng dẫn trên Youtube là bài 1 về BSTreeView giúp mọi người tiếp cận dễ nhất. Bạn có thể tự khai thác theo mô hình nhiều cấp, quan hệ cha, con. Bạn nhớ là dùng lệnh tạo Node thì nó có tham số đâu tiên là cha.

Set con = BSTreeView.Items.Add(cha, "Nội dung",...)


Bạn Follow kênh Youtibe của tôi sẽ biết các bài hướng dẫn tiếp theo về TreeView đa cấp.

Dạ em cảm ơn thầy, em đang nghiên cứu bài số 9 trên youtube của thầy

Và 1 vấn đề nữa là Em gọi userform rồi thì userform không có dữ liệu phải bấm nút update mới có dữ liệu, cái này là bình thường hay lỗi vậy thầy ?

 

[Nguyễn Duy Tuân]

Dạ em cảm ơn thầy, em đang nghiên cứu bài số 9 trên youtube của thầy

Và 1 vấn đề nữa là Em gọi userform rồi thì userform không có dữ liệu phải bấm nút update mới có dữ liệu, cái này là bình thường hay lỗi vậy thầy ?
View attachment 201455

Bạn muốn mwor form lên nó có ngay TreeView thì bạn chuyển code trong nút lệnh đó vào sự kiện UserForm_Initialize() . Bạn lập trình phải biết thế nào là lỗi chứ. Code để trong nút bấm thì chỉ khi bấm nút code mới chạy mà.

 

[nga.tran108]

Con có 3 vấn đề nan giải:
- Bật nút gọi userform sẽ thấy luôn dữ liệu treeview
- Khắc phục các node có dữ liệu trùng
- Khắc phục ẩn các nhánh bị rỗng

 

[nga.tran108]

Bạn muốn mwor form lên nó có ngay TreeView thì bạn chuyển code trong nút lệnh đó vào sự kiện UserForm_Initialize() . Bạn lập trình phải biết thế nào là lỗi chứ. Code để trong nút bấm thì chỉ khi bấm nút code mới chạy mà.

Mong thầy phản hồi mail trên ạ

 

[Nguyễn Duy Tuân]

Mong thầy phản hồi mail trên ạ

Con có 3 vấn đề nan giải:
- Bật nút gọi userform sẽ thấy luôn dữ liệu treeview
- Khắc phục các node có dữ liệu trùng
- Khắc phục ẩn các nhánh bị rỗng

vd1: Bạn hãy chuyển code trontg nút Button vào thủ tục sự kiện " UserForm_Initialize() "
vd2,3 trong vòng lặp của em phải bẫy
IF sh.Cells(I,2)<> "" Then
'Tạo MENU
End If

 

[nga.tran108]

vd1: Bạn hãy chuyển code trontg nút Button vào thủ tục sự kiện " UserForm_Initialize() "
vd2,3 trong vòng lặp của em phải bẫy
IF sh.Cells(I,2)<> "" Then
'Tạo MENU
End If

Thầy ơi, báo lỗi ạ, mà con làm theo mấy cái đoạn code như sau cũng báo lỗi luôn ạ, hoang mang quá thầy ơi:
TreeView1.LineStyle = tvwRootLines
TreeView1.Indentation = 15
hoặc
BSTreeview1.LineStyle = tvwRootLines
BSTreeview1.Indentation = 15


Còn chuyển nút thầy nói cũng i như cũ, không khác gì trước và sau khi thêm đoạn code này

 

[Nguyễn Duy Tuân]

Bài toán tạo cây menu đa cấp của em không làm theo cách em được, do cách bố trí dữ liệu không hợp lý. EM đợi anh sẽ tạo video hướng dẫn phần tao menu đa cấp nhé.

 

[nga.tran108]

Bài toán tạo cây menu đa cấp của em không làm theo cách em được, do cách bố trí dữ liệu không hợp lý. EM đợi anh sẽ tạo video hướng dẫn phần tao menu đa cấp nhé.

Ôi mừng quá con cảm ơn Thầy nhiều nha, trăm sự nhờ Thầy