Nhờ giúp code nhập dữ liệu (1 người xem)

[binbon186]

Nhờ các anh chị giúp dùm em viết đoạn code nhập liệu, cụ thể như sau:

- Khi em mở Form nhập liệu và nhập đầy đủ dữ liệu vào Form sau đó đồng ý
- Khi đồng ý thì dữ liệu mình vừa nhập từ Form sẽ hiện lên trong sheet1 (cụ thể là dữ liệu nhập từ Form sẽ hiện vào cùng một cột bao gòm các ô C2,C3,C4,C5..)

FILE ĐÍNH KÈM : View attachment nhaplieu.xls

 

[binbon186]

Các anh chị GPE ai rành thì giúp em vấn đề này đi ạ, em xin chân thành cảm ơn.

 

[viehoai]

Nhờ các anh chị giúp dùm em viết đoạn code nhập liệu, cụ thể như sau:

- Khi em mở Form nhập liệu và nhập đầy đủ dữ liệu vào Form sau đó đồng ý
- Khi đồng ý thì dữ liệu mình vừa nhập từ Form sẽ hiện lên trong sheet1 (cụ thể là dữ liệu nhập từ Form sẽ hiện vào cùng một cột bao gòm các ô C2,C3,C4,C5..)

FILE ĐÍNH KÈM : View attachment 104471

Bạn thử với code sau được không nhé
[GPECODE=vb]Private Sub CommandButton1_Click()
Dim i&
For i = 1 To 5
Sheet1.Range("C" & i + 1).Value = Me.Controls("TextBox" & i)
Next
End Sub[/GPECODE]

 

[binbon186]

Bạn thử với code sau được không nhé
[GPECODE=vb]Private Sub CommandButton1_Click()
Dim i&
For i = 1 To 5
Sheet1.Range("C" & i + 1).Value = Me.Controls("TextBox" & i)
Next
End Sub[/GPECODE]

Mình muốn thêm vài dòng nữa, không chỉ riêng 5 dòng đó thì làm thế nào hả bạn....

 

[sinhthanh1984]

Bạn cho i chạy từ 1 đến 100 chẳng hạn(tùy bạn chọn)

Private Sub CommandButton1_Click()
Dim i&
For i = 1 To 5
Sheet1.Range("C" & i + 1).Value = Me.Controls("TextBox" & i)
Next
End Sub

 

[binbon186]

Bạn cho mình hỏi thêm trong một Form có thể tạo 2 nội dung chung một Form và 2 nút nhập liệu khác nhau chung 1 Form:

Ví dụ như : Button nhập liệu 1 thì nhập hàng dọc vào sheet 1
Button nhập liệu 2 thì nhập hàng ngang vào sheet 2
Ví dụ View attachment nhaplieu.xls

 

[viehoai]

Bạn cho mình hỏi thêm trong một Form có thể tạo 2 nội dung chung một Form và 2 nút nhập liệu khác nhau chung 1 Form:

Ví dụ như : Button nhập liệu 1 thì nhập hàng dọc vào sheet 1
Button nhập liệu 2 thì nhập hàng ngang vào sheet 2
Ví dụ View attachment 104481

Chỉ cần TextBox1 đến TextBox5 là đủ
[GPECODE=vb]Private Sub CommandButton1_Click()
Dim i&
For i = 1 To 5
Sheet1.Range("C" & i + 1).Value = Me.Controls("TextBox" & i)
Next
End Sub


Private Sub CommandButton2_Click()
Dim i&
For i = 1 To 5
Sheet2.Range("C2").Offset(, i - 1).Value = Me.Controls("TextBox" & i)
Next
End Sub[/GPECODE]

 

[binbon186]

Chỉ cần TextBox1 đến TextBox5 là đủ
[GPECODE=vb]Private Sub CommandButton1_Click()
Dim i&
For i = 1 To 5
Sheet1.Range("C" & i + 1).Value = Me.Controls("TextBox" & i)
Next
End Sub


Private Sub CommandButton2_Click()
Dim i&
For i = 1 To 5
Sheet2.Range("C2").Offset(, i - 1).Value = Me.Controls("TextBox" & i)
Next
End Sub[/GPECODE]

Sao mình đổi tên sheet là nó bị lỗi vậy bạn ơi.

 

[viehoai]

Sao mình đổi tên sheet là nó bị lỗi vậy bạn ơi.

Đổi tên không đúng thì sinh ra lỗi là lẻ đương nhiên, đưa file lỗi lên nhé

 

[binbon186]

Mình có gửi mail cho bạn File của mình rồi đó, nhờ bạn giúp đỡ dùm nhe, chân thành cám ơn bạn.

 

[viehoai]

Mình có gửi mail cho bạn File của mình rồi đó, nhờ bạn giúp đỡ dùm nhe, chân thành cám ơn bạn.

Sao bạn không gửi lên đây mà gửi qua Email vậy bạn?
Nếu bạn gửi lên đây thì được nhiều cao thủ giúp đỡ và tôi cũng có cơ hội học thêm. Mong bạn làm theo điều này, mình sẵn sàng giúp những gì mình biết
Thân.

 

[be_09]

Nhờ các anh chị giúp dùm em viết đoạn code nhập liệu, cụ thể như sau:

- Khi em mở Form nhập liệu và nhập đầy đủ dữ liệu vào Form sau đó đồng ý
- Khi đồng ý thì dữ liệu mình vừa nhập từ Form sẽ hiện lên trong sheet1 (cụ thể là dữ liệu nhập từ Form sẽ hiện vào cùng một cột bao gòm các ô C2,C3,C4,C5..)

FILE ĐÍNH KÈM : View attachment 104471

Tôi thấy bạn yêu cầu dùng Form nhập liệu hơi kỳ? chả nhẽ chỉ dùng Form nhập liệu từ C2:C6 là xong rồi không làm gì nữa, theo tôi bạn nên đưa 1 File dữ liệu đang theo dõi và nêu cái cần, thì các anh chị có nhiều kinh nghiệm sẽ đưa ra giải pháp tốt nhất và tối ưu nhất để giúp bạn.

 

[binbon186]

Những điều cần nhờ em có ghi trong sheet1, nhờ thầy cô, anh chị GPE giúp dùm em.

FILE CỦA EM TẠO ĐÂY Ạ : View attachment Book1.zip

 

[binbon186]

Nhờ anh chị thầy cô GPE giúp em với ạ...

Những điều cần nhờ em có ghi trong sheet1, nhờ thầy cô, anh chị GPE giúp dùm em.

FILE CỦA EM TẠO ĐÂY Ạ : View attachment 104668