Em chào anh, cũng là in phiếu lương hàng loạt theo cột Số thứ tự trong bảng lương theo đoạn code sau:
Sub print_PL()
Dim p1, p2, i&
p1 = Sheet16.Range("E1").Value
p2 = Sheet16.Range("E2").Value
If IsNumeric(p1) = False Or IsNumeric(p2) = False Then
tb = MsgBox("So STT phai la so.", , "Thông...