Help combobox

[minhthao 0]

ComboBox1.List = Spreadsheet1.ActiveSheet.Range("A1:A100").Value

Từ A1 đến A 100 chia làm 2 doạn

 

Tôi muốn combobox load như sau và bỏ qua vùng không cần thiết được ko.

Ví dụ: "A1:A50" và "A55:A100"

combobox xe ko load vùng "A51:A54"

 

Ai biết xin chỉ giúp.

Xin chân thành cảm ơn

[Jin Yong 337]

ComboBox1.List = Spreadsheet1.ActiveSheet.Range("A1:A100").Value

Từ A1 đến A 100 chia làm 2 doạn

 

Tôi muốn combobox load như sau và bỏ qua vùng không cần thiết được ko.

Ví dụ: "A1:A50" và "A55:A100"

combobox xe ko load vùng "A51:A54"

 

Ai biết xin chỉ giúp.

Xin chân thành cảm ơn

 

Không biết bạn đang viết ứng dụng cho Excel hay cho Cad

Tôi nghĩ trong trường hợp này bạn nên sử dụng chức năng AddItem của ComboBox

 

For i = 1 To 50
ComboBox1.AddItem Sheet1.Cells(i, 1)
Next
For i = 55 To 100
ComboBox1.AddItem Sheet1.Cells(i, 1)
Next

[phantuhuong 217]

Cái này là VBA for Excel, hỏi không rõ nên lẫn lộn hết cả.