Combox nhận nguồn từ từ các sheet khác nhau (1 người xem)

[ruamap9]

Chào các anh chị trên diễn đàn! Em đang có một vấn đề liên quan đến tạo Combox danh sách như file kèm theo. Mong các anh chị hỗ trợ giúp. Hiện tại em mới chỉ làm được cho một sheet.
Cảm ơn các anh chị!

 

[nghiaphuc]

Chào các anh chị trên diễn đàn! Em đang có một vấn đề liên quan đến tạo Combox danh sách như file kèm theo. Mong các anh chị hỗ trợ giúp. Hiện tại em mới chỉ làm được cho một sheet.
Cảm ơn các anh chị!

Sử dụng thử sub sau để tạo List cho ComboBox (tất nhiên trước đó bạn phải bỏ thuộc tính ListFillRange của Combobox này):
[GPECODE=vb]Sub MakeList()
Dim Tmp, Arr(), i As Long, j As Long, k As Long
ReDim Arr(1 To 10000)
For j = 2 To Worksheets.Count
Tmp = Sheets(j).[B3:B1000]
For i = 1 To UBound(Tmp)
If IsEmpty(Tmp(i, 1)) Then Exit For
k = k + 1
Arr(k) = Tmp(i, 1)
Next
Next
ReDim Preserve Arr(1 To k)
Sheet1.ComboBox2.List = Arr
End Sub[/GPECODE]
Hiện tại sub này chỉ chạy khi nào bạn gọi đến nó, nếu muốn code tự động chạy thì bạn đưa nó vào một trong các sự kiện: Worksheet_Activate của Sheet1, ComboBox2_GotFocus của ComboBox2,...

 

[Let'GâuGâu]

Chào các anh chị trên diễn đàn! Em đang có một vấn đề liên quan đến tạo Combox danh sách như file kèm theo. Mong các anh chị hỗ trợ giúp. Hiện tại em mới chỉ làm được cho một sheet.
Cảm ơn các anh chị!

bạn có 3 yêu cầu:
1- nạp nguồn từ nhiều sheet, cái này phải dùng vòng lặp và additem, ko sử dụng listfillrange được
2- sort lại sau khi nạp
3- font tieng việt trong combobox: cái này, bạn them khảo ở đây, code phức tạp quá nên tôi cũng ko dám chơi
http://www.giaiphapexcel.com/forum/showthread.php?7146-Đố-vui-về-VBA!&p=539857#post539857

 

[ruamap9]

Xin cảm ơn các anh đã hỗ trợ. Xin hỏi thêm các anh chị làm thế nào để thực hiện tiếp "Hiện tại sub này chỉ chạy khi nào bạn gọi đến nó, nếu muốn code tự động chạy thì bạn đưa nó vào một trong các sự kiện: Worksheet_Activate của Sheet1, ComboBox2_GotFocus của ComboBox2,"...như anh Nghĩa Phúc đã gợi ý. Quả thực em mới làm quen VBA thấy khó khăn quá mong các cao thủ chỉ giáo thêm. Cho em hỏi thêm trường hợp tạo list cho danh sách trên nhưng sắp sếp theo thứ tự A, B, C tại vị trí chữ cái đầu tiên ( Ví dụ An Bình ; An Lộc; Bắc Sơn; Cây na; Dũng cảm....) thì code trên sửa lại như thế nào để thực hiện được điều đó. Cách thứ 2 của Let's Gâu Gâu cũng rất hay tuy nhiên khi gõ danh sách vào ô thì không tạo hiệu ứng đổ xuống danh sách gần giống nó để chọn vào còn cách Anh Nghĩa thì đã có hiệu ứng danh sách đổ xuống gần giống nó nhưng font vẫn bị lỗi và chưa sắp sếp theo A, B, C, giống Let's Gâu Gâu. Vì chưa hiểu gì nhiều lắm về VBA nên chỉ diễn đạt nôm na như vậy mong các anh chị thông cảm.Cảm ơn các anh chị!

 

[mhung12005]

Xin cảm ơn các anh đã hỗ trợ. Xin hỏi thêm các anh chị làm thế nào để thực hiện tiếp "Hiện tại sub này chỉ chạy khi nào bạn gọi đến nó, nếu muốn code tự động chạy thì bạn đưa nó vào một trong các sự kiện: Worksheet_Activate của Sheet1, ComboBox2_GotFocus của ComboBox2,"...như anh Nghĩa Phúc đã gợi ý. Quả thực em mới làm quen VBA thấy khó khăn quá mong các cao thủ chỉ giáo thêm. Cho em hỏi thêm trường hợp tạo list cho danh sách trên nhưng sắp sếp theo thứ tự A, B, C tại vị trí chữ cái đầu tiên ( Ví dụ An Bình ; An Lộc; Bắc Sơn; Cây na; Dũng cảm....) thì code trên sửa lại như thế nào để thực hiện được điều đó. Cách thứ 2 của Let's Gâu Gâu cũng rất hay tuy nhiên khi gõ danh sách vào ô thì không tạo hiệu ứng đổ xuống danh sách gần giống nó để chọn vào còn cách Anh Nghĩa thì đã có hiệu ứng danh sách đổ xuống gần giống nó nhưng font vẫn bị lỗi và chưa sắp sếp theo A, B, C, giống Let's Gâu Gâu. Vì chưa hiểu gì nhiều lắm về VBA nên chỉ diễn đạt nôm na như vậy mong các anh chị thông cảm.Cảm ơn các anh chị!

Bạn xem file đính kèm nhé.

Thêm tên vào danh sách trong các sheet hoặc thêm sheet để test.

 

[ruamap9]

Cảm ơn các anh chị đã bỏ công sức và thời gian giúp em hiểu chút ít về VBA.