Add List vào Combobox !!

[Mr Okebab]

Mình có một combobox (thuộc sheet) tên là DM
Mỗi khi muốn thay đổi ListFillRange thì lại phải dựa vào 1 name (là 1 range nào đó)

VD : Khi muốn List của DM là các Tài khoản tổng hợp thì mình sẽ làm các bước sau :

1. Lọc các TK là tổng hợp ra 1 sheet tạm nào đó, tại vùng đó quy định sẵn 1 name là DanhSach
2. Tiến hành Sort DanhSach theo ABC cho dễ nhìn
3. Add DanhSach vào Combobox bằng câu lệnh :Sheet1.DM.ListFillRange = "DanhSach"

Liệu có cách nào làm như ListView (hay Listbox trong Form) , khi đó DanhSach sẽ là 1 mảng trong VBA, sau đó Add mảng đó vào Combobox không nhỉ ???

Như vậy sẽ nhanh hơn và không mất đi sheet tạm nữa.

Thân!

 

[digita]

Bạn down cái file sau để tham khảo thêm code mẩu nha.

Cái này chẳng những sort data mà còn làm mất các giá trị trùng (duplicates) luôn cho cái listbox. Thí dụ: A, B, B, C thì trong listbox chỉ có A, B, C thôi.

 

[Mr Okebab]

Bạn down cái file sau để tham khảo thêm code mẩu nha.

Cái này chẳng những sort data mà còn làm mất các giá trị trùng (duplicates) luôn cho cái listbox. Thí dụ: A, B, B, C thì trong listbox chỉ có A, B, C thôi.

Rất cảm ơn bạn về file này. Tuy nhiên lại không phải cái mình hỏi.

1. Mình hỏi về Combobox của sheet (chứ không phải của form), còn của bạn là Listbox của Form
2. Mình muốn tạo 1 Array trong VBA, sắp xếp, lọc trùng nhau trong VBA luôn, sau đó add vào combobox (có 2 cột trở lên). Còn của bạn vẫn phải copy vào Sheet1, làm các thủ tục xong rồi lại xóa đi

Mình cũng đã add vào combobox (sheet) rồi nhưng lại chỉ đươc 1 cột và không biết sắp xếp, bỏ trùng thế nào.
Sheet1.DM.AddItem Ma

Vì vậy rất lúng túng.

Thân!

 

[digita]

Rất cảm ơn bạn về file này. Tuy nhiên lại không phải cái mình hỏi.

1. Mình hỏi về Combobox của sheet (chứ không phải của form), còn của bạn là Listbox của Form
2. Mình muốn tạo 1 Array trong VBA, sắp xếp, lọc trùng nhau trong VBA luôn, sau đó add vào combobox (có 2 cột trở lên). Còn của bạn vẫn phải copy vào Sheet1, làm các thủ tục xong rồi lại xóa đi

Mình cũng đã add vào combobox (sheet) rồi nhưng lại chỉ đươc 1 cột và không biết sắp xếp, bỏ trùng thế nào.
Sheet1.DM.AddItem Ma

Vì vậy rất lúng túng.

Thân!

Hồi sáng làm biếng không check cái zip file nên tưởng nó là activex control nên up cho bạn vì có vài công việc cần làm.

Đây cái này là đúng cái anh bạn tìm đây.