Nhận dữ liệu vào Excel từ combobox trong VBA

[mymapmap]

Mình đang cần lấy dữ liệu từ Combobox trong VBA sang Excel nhưng không hiểu rõ lắm về điều khiển này. mình có trích Ví dụ kèm theo file
Mong các Bác giúp minh với.
Xin cảm ơn

 

[nghiaphuc]

Mình đang cần lấy dữ liệu từ Combobox trong VBA sang Excel nhưng không hiểu rõ lắm về điều khiển này. mình có trích Ví dụ kèm theo file
Mong các Bác giúp minh với.
Xin cảm ơn

Bạn sử dụng code sau nhé:

Private Sub CommandButton1_Click()
    If ComboBox1.ListIndex = -1 Then MsgBox "Chua chon gia tri.": Exit Sub
    [COLOR=red]Sheet2.[A65536].End(xlUp).Offset(1).Resize(, 5).Value = Sheet1.[A3:E3].Offset(ComboBox1.ListIndex).Value[/COLOR]
    ComboBox1.ListIndex = -1
End Sub

Nếu chỉ muốn nhập vào vùng A1:E1 thì bạn thay câu lệnh màu đỏ ở trên thành

[COLOR=#ff0000]Sheet2.[A1:E1].Value=Sheet1.[A3:E3].Offset(ComboBox1.ListIndex).Value[/COLOR][COLOR=#000000]

[/COLOR]

 

[mymapmap]

Bạn sử dụng code sau nhé:

Private Sub CommandButton1_Click()
    If ComboBox1.ListIndex = -1 Then MsgBox "Chua chon gia tri.": Exit Sub
    [COLOR=red]Sheet2.[A65536].End(xlUp).Offset(1).Resize(, 5).Value = Sheet1.[A3:E3].Offset(ComboBox1.ListIndex).Value[/COLOR]
    ComboBox1.ListIndex = -1
End Sub

Nếu chỉ muốn nhập vào vùng A1:E1 thì bạn thay câu lệnh màu đỏ ở trên thành

[COLOR=#ff0000]Sheet2.[A1:E1].Value=Sheet1.[A3:E3].Offset(ComboBox1.ListIndex).Value[/COLOR]

Cảm ơn Bác nghiaphuc nhiều. Sự giúp đở của Bác trên cả sự mong đợi. Rất hay khi lấy qua offset xuống vậy muốn cho offset ngang qua có khác gì không Bác?

 

[nghiaphuc]

Cảm ơn Bác nghiaphuc nhiều. Sự giúp đở của Bác trên cả sự mong đợi. Rất hay khi lấy qua offset xuống vậy muốn cho offset ngang qua có khác gì không Bác?

Cú pháp của Offset (hình như đây là một thuộc tính) là Offset(Hàng,Cột). Bạn xem một số ví dụ sau sẽ hiểu:
[E10].Offset(1,0) hay [E10].Offset(1): Dịch chuyển xuống 1 hàng so với ô E10 --> Kết quả là ô E11
[E10].Offset(0,1) hay [E10].Offset(,1): Dịch chuyển sang phải 1 cột so với ô E10 --> F10
[E10].Offset(3,2): Dịch chuyển xuống 3 hàng và sang phải 2 cột so với ô E10 --> G13
[E10].Offset(-2,-3): Dịch chuyển lên trên 2 hàng và sang trái 3 cột so với ô E10 --> B8

 

[mymapmap]

Cú pháp của Offset (hình như đây là một thuộc tính) là Offset(Hàng,Cột). Bạn xem một số ví dụ sau sẽ hiểu:
[E10].Offset(1,0) hay [E10].Offset(1): Dịch chuyển xuống 1 hàng so với ô E10 --> Kết quả là ô E11
[E10].Offset(0,1) hay [E10].Offset(,1): Dịch chuyển sang phải 1 cột so với ô E10 --> F10
[E10].Offset(3,2): Dịch chuyển xuống 3 hàng và sang phải 2 cột so với ô E10 --> G13
[E10].Offset(-2,-3): Dịch chuyển lên trên 2 hàng và sang trái 3 cột so với ô E10 --> B8

Hôm qua về ghé so 10 Bàu Cát mua cuốn sách đọc phát hiện ra nhiều điềm mới mẻ. nào giờ chỉ hỏi rồi mò mất thời gian nhiều mà không hiểu bản chất vấn đề lắm.
Xin cảm ơn Bác nghiaphuc nhiều.
Sẵn tiện Bác cho e hỏi ví dụ trong file đầu đề tài có thêm nút Previous để combobox đi ngược lại danh sách vừa tạo để thay đổi chỉnh sửa thì ta làm như thế nào Bác?