Giúp tôi thêm danh mục vào ComboBox

[trungnt]

Theo các tài liệu mà tôi đọc được thì để đưa thêm danh mục vào ComboBox thì ComboBox phải thiết kế trên 1 Form nào đó. Xin hỏi các anh chị có cách nào đưa thêm danh mục vào ComboBox mà ComboBox được thiết kế trực tiếp trên 1 Sheet nào đó được không? (Ý của tôi coi sheet như là nền của Form). Rất mong các anh chị giúp đỡ ............

 

[pxthanhcda]

bạn thử xem có đúng không

 

[trungnt]

Cảm ơn Pxthanhcda nhưng chưa đúng ý mình. Mình nói rõ thêm là không được dùng danh mục đã viết sẵn trên sheet để liên kết vào. Ý của tôi là viết code như thế nào cho ComboBox mà ComboBox này đã được thiết kế trực tiếp trên 1 Sheet nào đó (ComboBox này lấy từ ControlToolBox).

 

[minhlev]

Nếu dùng VBA thì bạn xem thử file sau nhé.

 

[pxthanhcda]

Không biết đã được chưa???

 

[trungnt]

File của minhlev có 1 phần đúng theo ý của mình và tự xoay sở thêm tôi đã làm được rồi. Cảm ơn 2 bạn đã nhiệt tình giúp đỡ......!!!!!

 

[trungnt]

Cho tôi hỏi thêm các anh chị 1 tí nữa. Hiện nay tôi chỉ mới biết cách viết code thêm 1 cột danh mục vào trong ComboBox, còn 2 cột trở lên thì không biết viết ra sao?(tôi muốn viết như vậy để cột sau chú thích cột trước), tôi đã cố gắng tìm trong help nhưng không thấy hướng dẫn........ mong anh chị giúp đỡ tôi thêm 1 lẫn nữa.

 

[cadafi]

Cho tôi hỏi thêm các anh chị 1 tí nữa. Hiện nay tôi chỉ mới biết cách viết code thêm 1 cột danh mục vào trong ComboBox, còn 2 cột trở lên thì không biết viết ra sao?(tôi muốn viết như vậy để cột sau chú thích cột trước), tôi đã cố gắng tìm trong help nhưng không thấy hướng dẫn........ mong anh chị giúp đỡ tôi thêm 1 lẫn nữa.

Chào bạn,
Bạn có thể tạo một Name cho vùng dữ liệu cần đưa vào combobox (Vào Insert/Name/Define).
Sau đó click chuột phải vào combobox (bật chế độ design mode lên) chọn Properties. Bạn sẽ thấy thuộc tính ListFillRange, bạn nhập Name muốn đưa vào combobox tại thuộc tính này. Bạn muốn combobox thể hiện bao nhiêu cột thì bạn vào thuộc tính ColumnCount để chọn (ví dụ bạn muốn chọn 2 cột thì ColumnCount = 2).
Cách này hay ở chỗ là khi bạn update dữ liệu vào vùng đã đặt tên thì conbobox tự động thêm vào, không cần dùng code gì cả.

Ngoài ra Bạn chú ý thêm thuộc tính LinkedCell. Ví dụ bạn cho LinkedCell= A1 thì mặc nhiên khi bạn chọn giá trị cho combobox thì combobox sẽ tự động điền giá trị của nó vào ô này.
Bạn test thử nhé.

 

[trungnt]

Vấn đề mình muốn hỏi ở đây là không muốn dùng thuộc tính ListFillRange để câu từ 1 vùng có sẵn trên sheet mà muốn dùng hoàn toàn bằng code để thể hiện 2 cột danh mục trong ComboBox có được không? Rất mong sự giúp đỡ thêm của các anh chị....

 

[cadafi]

Vấn đề mình muốn hỏi ở đây là không muốn dùng thuộc tính ListFillRange để câu từ 1 vùng có sẵn trên sheet mà muốn dùng hoàn toàn bằng code để thể hiện 2 cột danh mục trong ComboBox có được không? Rất mong sự giúp đỡ thêm của các anh chị....

Như vậy bạn dùng đoạn code để gán thuộc tính ColumnCount cho Combobox trước:

Private Sub ComboBox1_Click()
ComboBox1.ColumnCount = 2
For i = 0 To 2
ComboBox1.AddItem (i)
Next i

For j = 0 To 2
ComboBox1.List(j, 0) = j
ComboBox1.List(j, 1) = "Item" & j
Next j
End Sub

 

[minhlev]

Hướng dẫn của bạn Ca_dafi là đúng rồi. Bạn có thể xem thêm bài viết này. Để cho rõ hơn, bạn xem thêm cả file VD của tôi nhé.