Trước tiên bạn tạo 1 Sheet có tên là Data để lưu trữ dữ liệu.
-Nhấn tổ hợp phím Alt+F11 để vào cửa sổ VBA
-Vào Insert\ Userform
-Vẽ 10 TextBox, 2 command button vào form và đặt tên cho chúng.
+ Tên nút command thứ nhất đặt tên cmdAdd, thứ 2 là cmdClose
+ Tên các textbox lần lược như sau: txtCont, txtName, txtAdd, txtTel, txtID, txtDate, txtLocal, txtAccount, txtnote, txtRemaks.
-Sau khi tạo xong các nút, bạn vào View\Code.
Cửa sổ code hiện ra, bạn copy và chép đoạn code sau vào đó.
* Cho nút Thêm
PHP:
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("DATA")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
If Trim(Me.txtCont.Value) = "" Then
Me.txtCont.SetFocus
MsgBox "Vui long dien so hop dong", vbInformation
Exit Sub
End If
ws.Cells(iRow, 1).Value = Me.txtCont.Value
ws.Cells(iRow, 2).Value = Me.txtName.Value
ws.Cells(iRow, 3).Value = Me.txtAdd.Value
ws.Cells(iRow, 4).Value = Me.txtTel.Value
ws.Cells(iRow, 5).Value = Me.txtID.Value
ws.Cells(iRow, 6).Value = Me.txtDate.Value
ws.Cells(iRow, 7).Value = Me.txtLocal.Value
ws.Cells(iRow, 8).Value = Me.txtAccount.Value
ws.Cells(iRow, 9).Value = Me.txtnote.Value
ws.Cells(iRow, 10).Value = Me.txtRemaks.Value
Me.txtCont.Value = ""
Me.txtName.Value = ""
Me.txtAdd.Value = ""
Me.txtTel.Value = ""
Me.txtDate.Value = ""
Me.txtLocal.Value = ""
Me.txtAccount.Value = ""
Me.txtID.Value = ""
Me.txtnote.Value = ""
Me.txtRemaks.Value = ""
Me.txtCont.SetFocus
End Sub
*Cho nút thoát.
PHP:
Private Sub cmdClose_Click()
Unload Me
End Sub
Sau đó nhấn F5 chạy Form để nhập liệu thử
Chúc bạn thành công.
P/S: Sao diễn đàn mình không cho gửi Attach file vậy các bạn?