Nhập liệu từ nhiều tẽxtbox vào các cell ? (1 người xem)

[hoatinhyeu862000]

Như tiêu đề em mong anh chị giúp đỡ code để nhập liệu từ tb có trên userform1 vào sheet1 của file vào theo như ví dụ mình đã làm trong file và có thể nhập đủ hoặc k đủ số dòng(ở file trong sh có 5 dòng có thể mình chỉ cần nhập 1 dòng hoặc 3 dòng hoặc cả 5 dòng đều đc) cảm ơn anh chị

 

[leonguyenz]

Như tiêu đề em mong anh chị giúp đỡ code để nhập liệu từ tb có trên userform1 vào sheet1 của file vào theo như ví dụ mình đã làm trong file và có thể nhập đủ hoặc k đủ số dòng(ở file trong sh có 5 dòng có thể mình chỉ cần nhập 1 dòng hoặc 3 dòng hoặc cả 5 dòng đều đc) cảm ơn anh chị

Tham khảo:
Đặt lại TextBox: dòng 1 TextBox11, TextBox12, ...; dòng 2: TextBox21, TextBox22, ... Tương tự cho 5 dòng.
Sử dụng 1 SpinButton để thêm TextBox (thực tế là để mở rộng hoặc thu hẹp Form, giấu TextBox):
[gpecode=vb]
Private Sub SpinButton1_Change()
Dim iTb As Byte, jTb As Byte
UserForm1.Height = 93.75 + 42 * SpinButton1
For iTb = 1 To 5
If iTb > Me.SpinButton1 Then
For jTb = 1 To 4
Me.Controls("TextBox" & iTb & jTb).Value = Null
Next jTb
End If
Next iTb
End Sub
[/gpecode]
Code nút Nhập:
[gpecode=vb]
Private Sub CommandButton1_Click()
Dim LastRow As Range, iR As Byte, jR As Byte
Set LastRow = Sheet1.Range("a65536").End(xlUp).Offset(1)
If TbGiaDinh = "" Or TbSDT = "" Then
MsgBox "Nhap Chua Du Thong Tin"
Else
LastRow = TbGiaDinh
LastRow.Offset(1) = TbSDT
For iR = 1 To Me.SpinButton1
For jR = 0 To 3
LastRow.Offset(1 + iR, jR) = Me.Controls("TextBox" & iR & jR + 1)
Next jR
Next iR
Unload Me
End If
End Sub
[/gpecode]

 

[hoatinhyeu862000]

Cảm ơn Anh LEONGUYENZ chuẩn quá rồi ạ. Cảm ơn anh.
Xin hỏi anh 1 chút về file này trong trường hợp em muốn thêm 1 cmb để lấy hình ảnh từ 1 đường dẫn trên PC gán vào vùng dữ liệu bên cạnh thông tin vừa nhập thì làm thế nào ạ:
Em xin ví dụ cụ thể:
khi em kick vào cmb nhập hình ảnh nó sẽ hiện giống như mình ấn insert/pictrure
Sau đó mình tìm đến folder chứa ảnh của mình và chọn ảnh cần cho vào ấn insert và khi đó nhập ấn nhập thì hình ạnh tự gán vào cạnh từ vùng E và tự căn chỉnh bằng với vùng dữ liệu tức là chiều ngàng và dọc em ví dụ
dữ liệu nhập có tổng 5 hàng từ A - E thì ảnh sẽ nằm đúng bằng chiều dài của vùng đó và ở cột F chỉnh ảnh về Rộng = dài ạ

 

[leonguyenz]

Cảm ơn Anh LEONGUYENZ chuẩn quá rồi ạ. Cảm ơn anh.
Xin hỏi anh 1 chút về file này trong trường hợp em muốn thêm 1 cmb để lấy hình ảnh từ 1 đường dẫn trên PC gán vào vùng dữ liệu bên cạnh thông tin vừa nhập thì làm thế nào ạ:
Em xin ví dụ cụ thể:
khi em kick vào cmb nhập hình ảnh

Yêu cầu của bạn nhờ các sư phụ thôi.
Mà trên Excel đã cho phép Insert hình ảnh, việc gì bạn phải Load ảnh từ Form?