Form nhập dữ liệu và tự động lưu. (1 người xem)

[fbppi]

Hi ACE,

Hiện tại em đang có vấn đề muốn được giúp đở.

Hiện tại em đang có một file.

Mục đích:
Nhập dử liệu bằng form tạo sẳn, sau khi bấm SAVE thì sẽ tự động lưu vào file excell.

Quá trình:

Sau khi bấm vào nút " Nhập dữ liệu" => tiếp theo sẽ hiện form=> Nhập xong thông tin.=> Bấm "SAVE" là tự động lưu vào file.
Sau khi lưu, thì tự động xóa form. Nếu muốn nhập tiếp thì tiếp tục, CÒn không thì bấm "EXIT".

Thanks ACE

 

[Let'GâuGâu]

Up cho ACE giúp đở.......

thấy đóng code của bạn ngán quá làm vài cái,,,,bạn thử làm tiếp nha

lệnh gọi form

Private Sub CommandButton1_Click()
InputShowForm.Show
End Sub

lệnh cho nút save

Private Sub nt_save_Click()
With Sheet1.[b10000].End(3).Offset(1)
.Value = ComboBox1.Value
.Offset(, 1).Value = ComboBox2.Value
.offset(, 2).Value = ComboBox3.Value
End With
ThisWorkbook.Save
End Sub

tương tự như vậy bạn chép giá trị của cái textbox còn lại xuống cell

 

[fbppi]

NỘI DUNG ĐÃ ĐỰƠC ẨN

Chân thành cảm ơn bạn nhiều.
Mình đã làm được form nhập và save rồi.
Còn nút EXIT :

Private Sub nt_exit_Click() Dim wb As Integer
AllowClose = True


Application.IgnoreRemoteRequests = False
Application.DisplayAlerts = True


wb = Application.Workbooks.Count
If wb < 2 Then
Application.Quit
Else
ThisWorkbook.Close
End If


End Sub

Nhưng nó thoát luôn chứ không phải tắt bạn ak

 

[Let'GâuGâu]

Chân thành cảm ơn bạn nhiều.
Mình đã làm được form nhập và save rồi.
Còn nút EXIT :



Nhưng nó thoát luôn chứ không phải tắt bạn ak

dùng lệnh thisworkbook.close thì nó đóng file là đúng rồi
phải dùng lệnh Unload Me

 

[fbppi]

dùng lệnh thisworkbook.close thì nó đóng file là đúng rồi
phải dùng lệnh Unload Me

Thanks bạn,
Cho mình hỏi tí.
Mình đã làm tới phần này và nhập thành công rồi.
Còn một vấn đề là sau khi bấm SAVE, data vừa nhập không tự mất ở form mà phải xóa cái củ mới nhập cái mới và SAVE tiếp.

Mong bạn giúp đở.

 

[Let'GâuGâu]

Thanks bạn,
Cho mình hỏi tí.
Mình đã làm tới phần này và nhập thành công rồi.
Còn một vấn đề là sau khi bấm SAVE, data vừa nhập không tự mất ở form mà phải xóa cái củ mới nhập cái mới và SAVE tiếp.

Mong bạn giúp đở.

bạn phải viết lệnh cho nó xóa thì nó mới xóa được chứ, sau khi chép các giá trị xuống sheet thì xóa nó
ví dụ

combobox1.value=""

 

[fbppi]

bạn phải viết lệnh cho nó xóa thì nó mới xóa được chứ, sau khi chép các giá trị xuống sheet thì xóa nó
ví dụ

combobox1.value=""

Mình cảm ơn bạn
Mình đã viết thành công theo bạn hướng dẫn.
Cho mình hỏi nhé:

Private Sub nt_save_Click()
With Sheet1.[b10000].End(3).Offset(1)
.Value = ComboBox1.Value
.Offset(, 1).Value = ComboBox2.Value
.offset(, 2).Value = ComboBox3.Value
End With
ThisWorkbook.Save
End Sub

và code này?

ws.Cells(iRow, 2).Value = Me.cmdDate.Value
ws.Cells(iRow, 3).Value = Me.cmdRunby.Value
ws.Cells(iRow, 4).Value = Me.cmdTeam.Value
ws.Cells(iRow, 5).Value = Me.txtLotcode.Value
ws.Cells(iRow, 6).Value = Me.cmdPartscode.Value

Có khác nhau gì vậy bạn?