Nhờ các anh chị giúp em code nhập dữ liệu (1 người xem)

[quoc nhat]

Xin nhờ các cao thu giúp em code nhập liệu với.
Yêu cầu em có viết trên Form mà em đã thiết kế sẵn
Các anh chị xem và giúp em với nhé
Em cảm ơn nhiều.

 

[thang314]

lại nhập liệu theo form
Private Sub CommandButton1_Click()
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.TextBox1.SetFocus
Me.CommandButton1.Enabled = False
Me.CommandButton2.Enabled = True
End Sub

Private Sub CommandButton2_Click()
i = Sheet1.Range("b65000").End(xlUp).Row + 1
Sheet1.Range("b" & i) = Me.TextBox1
Sheet1.Range("c" & i) = Me.TextBox2
Sheet1.Range("d" & i) = Me.TextBox3
Sheet1.Range("f" & i) = Me.TextBox4
Sheet1.Range("e" & i) = Me.TextBox5
Me.CommandButton2.Enabled = False
Me.CommandButton1.Enabled = True
End Sub

 

[quoc nhat]

lại nhập liệu theo form
Private Sub CommandButton1_Click()
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.TextBox1.SetFocus
Me.CommandButton1.Enabled = False
Me.CommandButton2.Enabled = True
End Sub

Private Sub CommandButton2_Click()
i = Sheet1.Range("b65000").End(xlUp).Row + 1
Sheet1.Range("b" & i) = Me.TextBox1
Sheet1.Range("c" & i) = Me.TextBox2
Sheet1.Range("d" & i) = Me.TextBox3
Sheet1.Range("f" & i) = Me.TextBox4
Sheet1.Range("e" & i) = Me.TextBox5
Me.CommandButton2.Enabled = False
Me.CommandButton1.Enabled = True
End Sub

anh hiểu sai ý em rồi!
Ý em muốn là nút Thêm dùng để INSESERT cột TỔNG CỘNG ( màu vàng) thêm một dòng nữa
Nút LƯU LẠI dùng để nhập dữ liệu trên Form vào dòng vừa INSERT từ dòng Tổng cộng nói trên
Anh chỉnh giúp em với nhé

 

[quoc nhat]

anh hiểu sai ý em rồi!
Ý em muốn là nút Thêm dùng để INSESERT cột TỔNG CỘNG ( màu vàng) thêm một dòng nữa
Nút LƯU LẠI dùng để nhập dữ liệu trên Form vào dòng vừa INSERT từ dòng Tổng cộng nói trên
Anh chỉnh giúp em với nhé

Có anh chị nào giúp em với em sắp phải trả bài cho xếp rồi mò mãi mà không ra thì làm sao bây giờ???/

 

[thang314]

anh hiểu sai ý em rồi!
Ý em muốn là nút Thêm dùng để INSESERT cột TỔNG CỘNG ( màu vàng) thêm một dòng nữa
Nút LƯU LẠI dùng để nhập dữ liệu trên Form vào dòng vừa INSERT từ dòng Tổng cộng nói trên
Anh chỉnh giúp em với nhé

bạn xem lại nhé. INSESERT cột TỔNG CỘNG rồi lại nhập dữ liệu trên form vào dòng vừa INSERT. là sao nhỉ.
bạn muốn nó nhân luôn vào cột p chứ gì
thêm cái này vào là được thôi chứ sao. nhưng lần sau làm đừng có meger gì cả. trông đẹp chẳng để làm gì đâu.
Private Sub CommandButton2_Click()
i = Sheet1.Range("b65000").End(xlUp).Row + 1
Sheet1.Range("b" & i) = Me.TextBox1
Sheet1.Range("c" & i) = Me.TextBox2
Sheet1.Range("d" & i) = Me.TextBox3
Sheet1.Range("f" & i) = Me.TextBox4
Sheet1.Range("e" & i) = Me.TextBox5
Sheet1.Range("p" & i) = Me.TextBox4 * Me.TextBox5
Me.CommandButton2.Enabled = False
Me.CommandButton1.Enabled = True
End Sub

 

[quoc nhat]

bạn xem lại nhé. INSESERT cột TỔNG CỘNG rồi lại nhập dữ liệu trên form vào dòng vừa INSERT. là sao nhỉ.

Em đánh nhầm( cột ).
Ý em là dòng nhập liệu từ vào Form luôn nằm ở trên dòng "Tổng cộng" màu đỏ phía dưới.

bạn muốn nó nhân luôn vào cột p chứ gì
thêm cái này vào là được thôi chứ sao

Tong nút Insert bao gồm :
Nhân vào cột Thành tiền màu xanh (Số lượng*Đơn giá) ( em gửi lại File anh tiện theo dỏi)
Copy công thức nhân (Đơn giá * Số lượng) từ cột G sang cột J ,M cho dòng vừa Insert
Cột K = Cột E - cột H
Sum (Tổng) các cột ở dòng tổng cộng ( Các cột màu xanh)
Cột Stt tự động nhảy cho dòng vừa Insert vào

. nhưng lần sau làm đừng có meger gì cả. trông đẹp chẳng để làm gì đâu.

Cảm ơn anh lần sau em sẽ rút kinh nghiệm.
Anh giúp em nhé

 

[quoc nhat]

Giúp em với mọi người.
Em nghỉ mải mà không ra
Em xin nói lại yêu cầu của em như sau:
Trên UserForm:
Nhấn nút Thêm: Insert dòng TỔNG CỘNG thêm 1 dòng ( dòng vừa Insert nằm ở trên dòng Tổng cộng. Cột STT tự động kéo Fill từ A10 có công thức xuống dòng vừa Insert xong.Dòng vừa insert có công thức của dòng 10. Ở trong File cách Insert dòng của em quá củ chuối em không biết có cách nào để hợp lý hơn, mong các anh chị chỉ giúp. Nhấn Lưu lại: Khi ta nhập số liệu trên Form xong thì nhấn nút này, dữ liệu sẽ được ghi vào dòng số 10 tương ứng các cột có đề tên màu đỏ tương ứng. Sau đó ta nhấn nút "thêm".>>>NHập dự liệu vào Form ta nhấn nút Lưu lại. dữ liệu sẽ được ghi lại vào dòng số 11 (dòng mới insert)
và cứ tiếp tục mãi như vậy.
Mục đích của em là không muốn xóa các dòng trống bằng thủ công

 

[quoc nhat]

giúp em một lần nữa với mọi người.
em vừa kiếm được code insert dòng rồi nhưng lại vướng mắc một cái nữa là code nhập liệu lại không làm được nó không cho nhập vào dòng vừa insert. Mọi người xem file rồi giúp em với nha