Nạp dữ liệu vào combobox (2 người xem)

[Giọit đắng]

Em muốn nạp dữ liệu vào combobox bằng VBA. Nhờ AC xem và thiết kế dùm cho em nhé!
P/s: Em muốn sử dụng AddItems

 

[Hai Lúa Miền Tây]

Em muốn nạp dữ liệu vào combobox bằng VBA. Nhờ AC xem và thiết kế dùm cho em nhé!
P/s: Em muốn sử dụng AddItems

Nạp như sau:

With ComboBox1
    .ColumnCount = 2
    .ListFillRange = "A2:B14"
    .ColumnWidths = "50;100"
    .Width = "200"
    .ColumnHeads = True
End With

 

[Giọit đắng]

Nạp như sau:

With ComboBox1
    .ColumnCount = 2
    .ListFillRange = "A2:B14"
    .ColumnWidths = "50;100"
    .Width = "200"
    .ColumnHeads = True
End With

Em nạp như thế vầy mà vẫn không được:

Private Sub ComboBox1_Change()
    With ComboBox1
        .ColumnCount = 2
        .ListFillRange = "A2:B14"
        .ColumnWidths = "50;100"
        .Width = "200"
        .ColumnHeads = True
    End With
End Sub

Với lại em muốn nạp bằng AddItem?

 

[ndu96081631]

Em nạp như thế vầy mà vẫn không được:

 Private Sub ComboBox1_Change() With ComboBox1 .ColumnCount = 2 .ListFillRange = "A2:B14" .ColumnWidths = "50;100" .Width = "200" .ColumnHeads = True End With End Sub

Với lại em muốn nạp bằng AddItem?

Nạp vào ComboBox sao mà chơi sự kiện Change được

Phải vầy:

Private Sub ComboBox1_DropButtonClick()
  With ComboBox1
    .ColumnCount = 2
    .ListFillRange = "A2:B14"
    .ColumnWidths = "50;100"
    .Width = "200"
    .ColumnHeads = True
  End With
End Sub

Nếu dùng AddItem thì sẽ mất ColumnHeads

 

[Giọit đắng]

Nạp vào ComboBox sao mà chơi sự kiện Change được

Phải vầy:

Private Sub ComboBox1_DropButtonClick()
  With ComboBox1
    .ColumnCount = 2
    .ListFillRange = "A2:B14"
    .ColumnWidths = "50;100"
    .Width = "200"
    .ColumnHeads = True
  End With
End Sub

Nếu dùng AddItem thì sẽ mất ColumnHeads

Vâng, như vậy thì em làm ổn rùi ah. Nhưng em muốn làm bằng cách sử dụng AddItem. Vậy nhờ anh chỉ cho em thêm để em tham khảo nhé!

 

[ndu96081631]

Vâng, như vậy thì em làm ổn rùi ah. Nhưng em muốn làm bằng cách sử dụng AddItem. Vậy nhờ anh chỉ cho em thêm để em tham khảo nhé!

AddItem thì như vầy:

Private Sub ComboBox1_DropButtonClick()
  With ComboBox1
    .ListFillRange = ""
    .Clear
    .ColumnCount = 2
    .ColumnWidths = "50;100"
    .Width = "200"
    .ColumnHeads = True
    Dim lR As Long, arr
    arr = Sheet1.Range("A2:B14").Value
    [COLOR=#ff0000]For lR = 1 To UBound(arr, 1)
      .AddItem arr(lR, 1)
      .Column(1, lR - 1) = arr(lR, 2)
    Next[/COLOR]
  End With
End Sub

Còn tôi thì thích dùng List hơn

Private Sub ComboBox1_DropButtonClick()
  With ComboBox1
    .ListFillRange = ""
    .ColumnCount = 2
    .ColumnWidths = "50;100"
    .Width = "200"
    .ColumnHeads = True
    Dim lR As Long, arr
    arr = Sheet1.Range("A2:B14").Value
  [COLOR=#ff0000][B]  .List() = arr[/B][/COLOR]
  End With
End Sub