Cách tạo form load dữ liệu lên ComboBox

[mylanlinh]

Quý anh/chị/em vui lòng hướng dẫn giúp mình Cách tạo form load dữ liệu lên ComboBox với ạ. Mình xin chân thành cảm ơn!
Giống kiểu như vầy ạ, có thể thêm 1 cột nữa thì quá tốt ạ:

 

[be_09]

Quý anh/chị/em vui lòng hướng dẫn giúp mình Cách tạo form load dữ liệu lên ComboBox với ạ. Mình xin chân thành cảm ơn!
Giống kiểu như vầy ạ, có thể thêm 1 cột nữa thì quá tốt ạ:

Đưa cái File lên còn chưa chắc có thành viên rảnh để giúp.
Còn xem Video thì không ai rảnh dâng cơm tới miệng.

 

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

Quý anh/chị/em vui lòng hướng dẫn giúp mình Cách tạo form load dữ liệu lên ComboBox với ạ. Mình xin chân thành cảm ơn!
Giống kiểu như vầy ạ, có thể thêm 1 cột nữa thì quá tốt ạ:

Bạn xem ví dụ nhé

Private Sub ComboBox1_Change()
    TextBox1.Text = ComboBox1.Column(1)
End Sub
Private Sub UserForm_Initialize()
    Dim arr() As Variant
    arr = Worksheets("Sheet1").Range("A1:B29").Value
    With ComboBox1
        .ColumnCount = 2
        .List = arr
        .ColumnWidths = "30;90"
    End With
End Sub

Hoặc:

Private Sub ComboBox1_Change()
    TextBox1.Text = ComboBox1.Column(1)
End Sub
Private Sub UserForm_Initialize()
    With ComboBox1
        .ColumnCount = 2
        .RowSource = "Sheet1!A2:B29"
        .ColumnWidths = "30;90"
        .ListStyle = 1
        .ColumnHeads = True
    End With
End Sub

 

[mylanlinh]

Bạn xem ví dụ nhé

Private Sub ComboBox1_Change()
    TextBox1.Text = ComboBox1.Column(1)
End Sub
Private Sub UserForm_Initialize()
    Dim arr() As Variant
    arr = Worksheets("Sheet1").Range("A1:B29").Value
    With ComboBox1
        .ColumnCount = 2
        .List = arr
        .ColumnWidths = "30;90"
    End With
End Sub

Hoặc:

Private Sub ComboBox1_Change()
    TextBox1.Text = ComboBox1.Column(1)
End Sub
Private Sub UserForm_Initialize()
    With ComboBox1
        .ColumnCount = 2
        .RowSource = "Sheet1!A2:B29"
        .ColumnWidths = "30;90"
        .ListStyle = 1
        .ColumnHeads = True
    End With
End Sub

Bạn xem ví dụ nhé

Private Sub ComboBox1_Change()
    TextBox1.Text = ComboBox1.Column(1)
End Sub
Private Sub UserForm_Initialize()
    Dim arr() As Variant
    arr = Worksheets("Sheet1").Range("A1:B29").Value
    With ComboBox1
        .ColumnCount = 2
        .List = arr
        .ColumnWidths = "30;90"
    End With
End Sub

Hoặc:

Private Sub ComboBox1_Change()
    TextBox1.Text = ComboBox1.Column(1)
End Sub
Private Sub UserForm_Initialize()
    With ComboBox1
        .ColumnCount = 2
        .RowSource = "Sheet1!A2:B29"
        .ColumnWidths = "30;90"
        .ListStyle = 1
        .ColumnHeads = True
    End With
End Sub

Vâng ạ, xin chân thành cảm ơn ạ. Nếu thêm vài cột vào thì sao ạ?

 

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

Vâng ạ, xin chân thành cảm ơn ạ. Nếu thêm vài cột vào thì sao ạ?

Thì bạn điều chỉnh vùng dữ liệu và cái ColumnCount tương ứng nhé.

 

[mylanlinh]

Thì bạn điều chỉnh vùng dữ liệu và cái ColumnCount tương ứng nhé.

Xin chân thành cảm ơn ạ. Mình đã làm được

 

[mylanlinh]

Xin chân thành cảm ơn ạ. Mình đã làm được

Vui lòng hướng dẫn mình cách load hình ảnh + âm thanh KHI CHỌN GIÁ TRỊ TRONG COMBOBOX với ạ? Chọn mục 1 thì load ảnh + âm thanh của mục 1, .... chân thành cảm ơn anh

 

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

Vui lòng hướng dẫn mình cách load hình ảnh + âm thanh KHI CHỌN GIÁ TRỊ TRONG COMBOBOX với ạ? Chọn mục 1 thì load ảnh + âm thanh của mục 1, .... chân thành cảm ơn anh

Bạn nên tìm đọc ở GPE hoặc nhờ người khác giúp bạn vấn đề này nhé.