Làm sao lấy danh sách cho Combobox từ danh sách trong sheet

[thienthanbe]

Em có danh sách các đội bóng trong sheet1 em muốn đưa danh sách này combobox trong form thì làm thế nào?
Các bác giúp em với nhé!

 

[hoangdanh282vn]

Em có danh sách các đội bóng trong sheet1 em muốn đưa danh sách này combobox trong form thì làm thế nào?
Các bác giúp em với nhé!

Cách đơn giản nhất là nhập nguồn dữ liệu trực tiếp :

Bạn vào VBE, trên form, chọn Combobox1, chon properties. Mục Rowsource gõ A3:A6
chọn Combobox2, chon properties. Mục Rowsource gõ B3:B6.
Bấm F5 hay Run để chạy thử

Ngoài ra có thể dùng Name động hay phương thức AddItem.

 

[thienthanbe]

Cách đơn giản nhất là nhập nguồn dữ liệu trực tiếp :

Bạn vào VBE, trên form, chọn Combobox1, chon properties. Mục Rowsource gõ A3:A6
chọn Combobox2, chon properties. Mục Rowsource gõ B3:B6.
Bấm F5 hay Run để chạy thử

Ngoài ra có thể dùng Name động hay phương thức AddItem.

Bác chỉ em dùng phương thức addItem với nhé.
Còn cách gõ vào RowSource làm sao chỉ đích danh ô A3:A6 của Sheet1 hả bác?

 

[ndu96081631]

Bác chỉ em dùng phương thức addItem với nhé.
Còn cách gõ vào RowSource làm sao chỉ đích danh ô A3:A6 của Sheet1 hả bác?

Bạn xem code đơn giãn tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?t=17212
Bài số #6 có dùng phương thức AddItem vào ListBox ---> Với ComboBox cũng tương tự

 

[ThuNghi]

Bác chỉ em dùng phương thức addItem với nhé.
Còn cách gõ vào RowSource làm sao chỉ đích danh ô A3:A6 của Sheet1 hả bác?

Bạn dùng code sau

Private Sub UserForm_Initialize()
Dim iRow As Long, eRow As Long
Dim myArray As Variant
With Worksheets("sheet1")
    eRow = .[A65000].End(xlUp).Row
    myArray = .Range("A2:B" & eRow)
End With
With Me.ComboBox1
    .ColumnCount = 2
    .ColumnWidths = "40; 40"
    .ListRows = 5
    .List = myArray
End With
End Sub

Muốn dùng sheet nào thì thay sheet1
Muốn lấy cột nào thì thay

myArray = .Range("A2:B" & eRow)

 

[thienthanbe]

Bạn dùng code sau

Private Sub UserForm_Initialize()
Dim iRow As Long, eRow As Long
Dim myArray As Variant
With Worksheets("sheet1")
    eRow = .[A65000].End(xlUp).Row
    myArray = .Range("A2:B" & eRow)
End With
With Me.ComboBox1
    .ColumnCount = 2
    .ColumnWidths = "40; 40"
    .ListRows = 5
    .List = myArray
End With
End Sub

Muốn dùng sheet nào thì thay sheet1
Muốn lấy cột nào thì thay

myArray = .Range("A2:B" & eRow)

không biết sao máy lại báo lỗi run-time error '70'?