Xin được sự giúp đỡ hoàn thiện tạo From nhập liệu. (2 người xem)

[Cát Lượng]

Đã 3h20 rùi, Hic em mày mò từ tối đến giờ vẫn không được.
Em nhờ anh/chị trên GPE giúp em hoàn thiện Form nhập liệu với nội dung như sau:
1/Khi đặt chuột vào ô A13 sẽ điền số thứ tự là 1 và điền thông tin vào Form nhập liệu như hình dưới
2/Tiếp theo nhấn lưu để dữ liệu được điền vào hàng thứ 13 thì đồng thời dữ liệu được điền vào From cũ sẽ được Restart lại trạng thái ban đầu để điền dữ liệu tiếp vào Form.
3/Cứ như vậy số thứ tự được điền sẽ là số 02 vào ô A14 và thao tác lặp lại như lần 01.
...Tiếp tục nhập đến khi hết dữ liệu.
4/Nhấn thoát để thoát khỏi bảng Form nhập liệu.
ghi chú: ngày/tháng/năm nhập vào sẽ có dữ liệu cụ thể là: ngày......tháng.....năm (ví dụ: ngày 01 tháng 03 năm 2019)
Em xin cảm ơn!

 

[SA_DQ]

Xin mời bạn vận hành thử form

 

[Cát Lượng]

Xin mời bạn vận hành thử form

Dạ em cám ơn thầy!
Chúc thầy sức khỏe và nhiều niềm vui!

 

[Cát Lượng]

T

Xin mời bạn vận hành thử form

Thầy ơi, em tác động trực tiếp vào dấu "X" ở Form để tắt nhập liệu cũng được.
Thầy có thể giúp em chút nữa để nút "thoát" có tác dụng được không ạ!

Bài đã được tự động gộp: 1/3/19

T

Thầy ơi, em tác động trực tiếp vào dấu "X" ở Form để tắt nhập liệu cũng được.
Thầy có thể giúp em chút nữa để nút "thoát" có tác dụng được không ạ!

Em làm được rồi! hi

 

[Cát Lượng]

Xin mời bạn vận hành thử form

Em nhờ Thầy chút xíu nữa!
Khi nhấn lưu để điền dữ liệu từ Form vào các hàng trong excel thì các dữ liệu đã được lưu vào hàng và dữ liệu trong Form đã tự động xóa đi, nhưng ở Form có TextBox "ngày/tháng/năm" là chưa được xóa đi, thầy giúp em để mỗi lần nhấn nút Lưu thì dữ liệu "ngày/tháng/năm" trong Form nhập liệu được xóa đi như những TextBox khác.
Thầy giúp em hoàn thiện nhé! Thanks thầy.

 

[dovanhoc84]

Họ đã làm cho đến nơi rồi chỉ còn lại 1 ô cuối thì chịu khó tự sửa đi thì mới nhớ dc vào đầu chứ.

ví dụ trong cái sub đấy nó như dưới này. Đơn giản là vì nó k xóa biến mà tự thêm biến Me!tbNgay.Value = Date nên nó mới có ngày trên đó. chỉ càn cho nó = "" là xong mà?

Private Sub CmdLuu_Click()
Dim lRs As Long

lRs = [A65500].End(xlUp).Row + 1
With Cells(lRs, "A")
.Value = Me!tbSTT.Value: Me!tbSTT.Value = Me!tbSTT.Value + 1
.Offset(, 1).Value = Me!tbTVB.Text: Me!tbTVB.Text = ""
.Offset(, 2).Value = Me!tbKH.Text: Me!tbKH.Text = ""
.Offset(, 3).Value = Me!tbNgay.Value: Me!tbNgay.Value = ""
.Offset(, 4).Value = Me!tbCQBH.Text: Me!tbCQBH.Text = ""
.Offset(, 5).Value = Me!tbGT.Text: Me!tbGT.Text = ""
.Offset(, 6).Value = Me!tbGC.Text: Me!tbGC.Text = ""

End With
End Sub

 

[Cát Lượng]

Họ đã làm cho đến nơi rồi chỉ còn lại 1 ô cuối thì chịu khó tự sửa đi thì mới nhớ dc vào đầu chứ.

ví dụ trong cái sub đấy nó như dưới này. Đơn giản là vì nó k xóa biến mà tự thêm biến Me!tbNgay.Value = Date nên nó mới có ngày trên đó. chỉ càn cho nó = "" là xong mà?

Private Sub CmdLuu_Click()
Dim lRs As Long

lRs = [A65500].End(xlUp).Row + 1
With Cells(lRs, "A")
.Value = Me!tbSTT.Value: Me!tbSTT.Value = Me!tbSTT.Value + 1
.Offset(, 1).Value = Me!tbTVB.Text: Me!tbTVB.Text = ""
.Offset(, 2).Value = Me!tbKH.Text: Me!tbKH.Text = ""
.Offset(, 3).Value = Me!tbNgay.Value: Me!tbNgay.Value = ""
.Offset(, 4).Value = Me!tbCQBH.Text: Me!tbCQBH.Text = ""
.Offset(, 5).Value = Me!tbGT.Text: Me!tbGT.Text = ""
.Offset(, 6).Value = Me!tbGC.Text: Me!tbGC.Text = ""

End With
End Sub

Vâng, em cám ơn!