Tạo Menu (1 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

 

[Nguyễn Duy Tuân]

Ô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

Vậy tắt đi làm sao ạ.

 

[Nguyễn Duy Tuân]

Anh ơi sao mỗi lần bảng tính mở nó tự động hiện cái bảng
View attachment 201923
Vậy tắt đi làm sao ạ.

Nó chỉ hiện lần đầu tiên trên Excel thôi, em bấm vào "Close" là được nhe

 

[♫ђöล♥ßล†♥†µ♫]

Nó chỉ hiện lần đầu tiên trên Excel thôi, em bấm vào "Close" là được nhe

Dạ. Em cám ơn Anh

 

[♫ђöล♥ßล†♥†µ♫]

Nó chỉ hiện lần đầu tiên trên Excel thôi, em bấm vào "Close" là được nhe

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

 

[Nguyễn Duy Tuân]

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

View attachment 201929
​

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

 

[Nguyễn Duy Tuân]

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

Ok em. Khi menu lệnh của em có đa cấp - nhiều nhanh con thì em học theo video anh hướng dẫn tại đây nhé:

 

[♫ђöล♥ßล†♥†µ♫]

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

 

[nga.tran108]

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 ạ

 

[Nguyễn Duy Tuân]

Để 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

 

[viettrithanyeu]

@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 ạ?

 

[Nguyễn Duy Tuân]

@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 ạ?

Em thử chuyển code từ sự kiện Userform_Initialize() sang sự kiện Userform_Activate() xem thế nào?

 

[viettrithanyeu]

Em thử chuyển code từ sự kiện Userform_Initialize() sang sự kiện Userform_Activate() xem thế nào?

vâng, chuyển code thì được rồi a ạ. Hay quá.

 

[suongrongtronggio]

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

 

[Nguyễn Duy Tuân]

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