Hỏi về list cho combobox

[kyo]

Để đưa một list vào cho combobox, kyo đã áp dụng code này

arr = Sheet4.Range(Sheet4.Range("A2"), Sheet4.Range("A65536").End(xlUp)).Value
For i = 1 To inputRow
    AddSubData.Controls("cbPG" & i).List() = arr
Next i

Vấn đề là bây giờ, khi mà cái arr chỉ có một giá trị (tức là chỉ có range A2 là có giá trị thôi) thì khi nạp vào list sẽ báo lỗi. Xin mọi người giúp cho cách khắc phục với.

 

[vu_tuan_manh_linh]

Để đưa một list vào cho combobox, kyo đã áp dụng code này

arr = Sheet4.Range(Sheet4.Range("A2"), Sheet4.Range("A65536").End(xlUp)).Value
For i = 1 To inputRow
    AddSubData.Controls("cbPG" & i).List() = arr
Next i

Vấn đề là bây giờ, khi mà cái arr chỉ có một giá trị (tức là chỉ có range A2 là có giá trị thôi) thì khi nạp vào list sẽ báo lỗi. Xin mọi người giúp cho cách khắc phục với.

Nhớ không nhầm thì phải biến chạy i phải từ giá trị 0, không phải từ 1.

 

[ndu96081631]

Để đưa một list vào cho combobox, kyo đã áp dụng code này

arr = Sheet4.Range(Sheet4.Range("A2"), Sheet4.Range("A65536").End(xlUp)).Value
For i = 1 To inputRow
    AddSubData.Controls("cbPG" & i).List() = arr
Next i

Vấn đề là bây giờ, khi mà cái arr chỉ có một giá trị (tức là chỉ có range A2 là có giá trị thôi) thì khi nạp vào list sẽ báo lỗi. Xin mọi người giúp cho cách khắc phục với.

Nếu cột A chỉ có 1 giá trị A2 thì Arr không phải là Array ---> Dùng IsArray để kiểm tra là được rồi

For i = 1 To inputRow
  If IsArray(Arr) Then
    AddSubData.Controls("cbPG" & i).List() = Arr
  Else
    AddSubData.Controls("cbPG" & i).AddItem Arr
  End If
Next i