Dim Rn as Long
Private Sub LoadData(Rn As Long)
Dim Txt As Control
For Each Txt In Me.Controls
If TypeOf Txt Is MSForms.TextBox Then
Txt.Text = Sheets("DATA").Cells(Rn, CLng(Txt.Tag)).Value
End If
Next
End Sub
Private Sub UserForm_Activate()
Rn = Sheets("DATA").Range("A65536").End(xlUp).Row
LoadData Rn
End Sub
Private Sub BtNhapMoi_Click()'Nhập mới'
Rn = Sheets("DATA").Range("A65536").End(xlUp).Row + 1
Dim Txt As Control
For Each Txt In Me.Controls
If TypeOf Txt Is MSForms.TextBox Then
Sheets("DATA").Cells(Rn, CLng(Txt.Tag)).Value = Txt.Text
End If
Next
End Sub
Private Sub BtTruoc_Click()'Chuyển đến dòng trước'
If Rn - 1 >= 5 Then Rn = Rn - 1: LoadData Rn
End Sub
Private Sub BtSau_Click()'Chuyển đến dòng sau'
If Sheets("DATA").Cells(Rn + 1, 2).Value <> "" Then Rn = Rn + 1: LoadData Rn
End Sub
Private Sub BtMoi_Click()'Xóa dữ liệu để làm mới'
Dim Txt As Control
For Each Txt In Me.Controls
If TypeOf Txt Is MSForms.TextBox Then
Txt.Text = ""
End If
Next
End Sub
Ít ra bạn cũng phải thiết kế cái trang A4 ấy trước chứ!
Cái quan trọng là làm sao và dùng hàm nào để in, thông cảm tui mới vọc cái excel và VBA có tí xíu hà, hok có rành. Bạn có thể chỉ mình rõ hơn nữa nhé.
Bạn khiêm tốn quá!!!
1/ Muốn ghi Tiếng Việt trên Comandbuton, bạn dùng font VNI
Private Sub bnhap1_Click()
Sheets("BaoCao").Visible = xlSheeetVisible
.......
End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("BaoCao").Visible = xlSheetHidden
End SubPrivate Sub bnhap1_Click()
Sheets("BaoCao").Visible = xlSheeetVisible
.......
End Sub
