Nhờ các sư phụ sửa đoạn code in từ số đến số

[hadinhmui]

Sub InHD()
Dim STT As Integer
Dim Ws As Worksheet
Set Ws = Worksheets("RP")
STT = 6
For i = 1 To STT
SoSeRi = i
Ws.Range("E1").Value = SoSeRi
Application.ActiveSheet.PrintOut
Next
End Sub
(Đoạn code này chương trình sẽ in mặc định số thứ tự từ 1 đến 6; Em muốn tạo đoạn code trên khi ấn vào lệnh in cho phép mình nhập hai biến số bắt đầu in (số 1) và số đích (số 6)

 

[VetMini]

Các sư nương, sư mẫu, sư tổ tránh ra, không ai nhờ nhé.

 

[guitarnguyen1989]

Sub InHD()
    Dim STT As Integer
    Dim Ws As Worksheet
    Dim SOBATDAU As Long,  SOKETTHUC As Long

    Set Ws = Worksheets("RP")

       SOBATDAU =  Ws.Range("D1").Value   ' nhập số đầu vào ô D1'
       SOKETTHUC =  Ws.Range("D2").Value   ' nhập số kết thúc vào ô D2'
    
      For i = SOBATDAU To SOKETTHUC
         SoSeRi = i
         Ws.Range("E1").Value = SoSeRi
         Application.ActiveSheet.PrintOut
      Next i
End Sub