Điền dữ liệu có điều kiện từ Form vào các ô được chỉ định theo Combobox (1 người xem)

[lulyen]

Xin kính nhờ các ACE gia đình GPE giúp tôi vấn đề này:
- Tôi có một Form nhập dữ liệu, yêu cầu như sau:
+ Nếu Combobox là chữ "Nhất" thì điền các dữ liệu vào các ô từ A2:I2
+ Nếu Combobox là chữ "Hai" thì điền các dữ liệu vào các ô từ J2:R2
+ Nếu Combobox là chữ "Ba" thì điền các dữ liệu vào các ô từ S2:AA2
+ ....
- Rất mong được sự quan tâm giúp đỡ của các cao thủ GPE, Trân trọng.

 

[dhn46]

Bạn dùng Code sau

Private Sub TTGD11_Click()
    Dim i   As Long
    For i = 2 To 10
        Sheet1.Cells(i + 4, TTGD1.ListIndex + 2) = Me.Controls("TTGD" & i).Text
    Next
End Sub

 

[lulyen]

Bạn dùng Code sau

Private Sub TTGD11_Click()
    Dim i   As Long
    For i = 2 To 10
        Sheet1.Cells(i + 4, TTGD1.ListIndex + 2) = Me.Controls("TTGD" & i).Text
    Next
End Sub

Bác có thể cho ví dụ trực tiếp tại File em đính kèm không?
em muốn nó điền bắt đầu từ ô A2 đến ô AS cơ, có 5 thành viên, thông tin mỗi thành viên có 9 ô. Dù sao cũng cảm ơn Bác rất nhiều..... Em tiếp tục nghiên cứu...