Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End SubPrivate Sub UserForm_Initialize()
TextBox1 = 1
TextBox2 = Sheets("Sheet4").Range("A10").End(xlDown).Value
TextBox3 = 1
MaxNum = TextBox2
End SubPrivate Sub CommandButton1_Click()
If Val(TextBox1) = 0 Then
MsgBox "Ban phai nhap so trang vao [ Tu So ]"
GoTo SetFocus1
ElseIf Val(TextBox2) = 0 Then
MsgBox "Ban phai nhap so trang vao [ Den So ]"
GoTo SetFocus2
ElseIf Val(TextBox1) > MaxNum Then
MsgBox "Danh sach lon nhat chi co " & MaxNum & vbLf & _
vbLf & "Ban phai nhap [ Tu So ] nho hon hoac bang so nay!"
GoTo SetFocus1
ElseIf Val(TextBox2) > MaxNum Then
MsgBox "Danh sach lon nhat chi co " & MaxNum & vbLf & _
vbLf & "Ban phai nhap [ Den So ] nho hon hoac bang so nay!"
GoTo SetFocus2
ElseIf Val(TextBox1) > Val(TextBox2) > MaxNum Then
MsgBox "[ Tu So ] phai nho hon hoac bang [ Den So ]"
GoTo SetFocus1
ElseIf Val(TextBox3) = 0 Then
MsgBox "Ban phai nhap so ban copy vao [ So To ]"
With TextBox3
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If
Dim Copies As Long
Application.Calculation = xlCalculationAutomatic
Unload Me
For Copies = Val(TextBox1) To Val(TextBox2)
Sheets("PHIEU DIEM").Range("O1").Value = Copies
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=Val(TextBox3), Collate:=True
Next
Exit Sub
SetFocus1:
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
SetFocus2:
With TextBox2
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
