Help: Xin Code VBA in ấn liên tục theo STT có trên FIle

[thanhtung0112]

Do công việc của em đặc thù là trưng cầu ý kiến CNV, nên em có 1 File "Đính kèm".
Nhờ mấy huynh giúp em đoạn Code, có thể in ấn liên tục theo số thứ tự "tô vàng" bên Sheet Data với ak, em in từng STT thì lâu quá hic hic
Em chân thành cảm ơn.

 

[snow25]

Do công việc của em đặc thù là trưng cầu ý kiến CNV, nên em có 1 File "Đính kèm".
Nhờ mấy huynh giúp em đoạn Code, có thể in ấn liên tục theo số thứ tự "tô vàng" bên Sheet Data với ak, em in từng STT thì lâu quá hic hic
Em chân thành cảm ơn.

Thử xem đúng không.

Sub innhanh()
    Dim a As Long, b As Long, i As Long
    With Sheets("Data")
         a = .Range("D" & Rows.Count).End(xlUp).Row
         b = .Range("A" & a).Value
    End With
    With Sheets("DS")
         For i = 1 To b
             .Range("A12").Value = i
             .PrintOut
             '.PrintPreview
         Next i
   End With
End Sub

 

[thanhtung0112]

Thử xem đúng không.

Sub innhanh()
    Dim a As Long, b As Long, i As Long
    With Sheets("Data")
         a = .Range("D" & Rows.Count).End(xlUp).Row
         b = .Range("A" & a).Value
    End With
    With Sheets("DS")
         For i = 1 To b
             .Range("A12").Value = i
             .PrintOut
             '.PrintPreview
         Next i
   End With
End Sub

Bạn ơi, giúp mình thêm vô File luôn đc k, mình thêm hoài không đc.

 

[snow25]

Bạn ơi, giúp mình thêm vô File luôn đc k, mình thêm hoài không đc.

 

[thanhtung0112]

cảm ơn bạn, mà bạn ơi, sao nó in hết lun z, có in từng STT mình cần hk, VD như là 1 đến 10 ak bạn

 

[snow25]

cảm ơn bạn, mà bạn ơi, sao nó in hết lun z, có in từng STT mình cần hk, VD như là 1 đến 10 ak bạn

Được nhưng bạn muốn chọn in theo kiểu gì.Chọn trực tiếp hay là lấy từ inpot.

 

[thanhtung0112]

Được nhưng bạn muốn chọn in theo kiểu gì.Chọn trực tiếp hay là lấy từ inpot.

trực tiếp dễ hơn fai hk bạn

 

[snow25]

trực tiếp dễ hơn fai hk bạn

Bạn thử.2 ô s5 và s6 bạn nhập số nhé.

 

[thanhtung0112]

Bạn thử.2 ô s5 và s6 bạn nhập số nhé.
[/QUO

Bạn thử.2 ô s5 và s6 bạn nhập số nhé.

cảm ơn bạn, mà bạn ơi, bạn có cách nào, khi chạy hàm excel ra dữ liệu rồi, mà hàm con dư tự động biến mất không. Giống hình bên dưới ak

 

[thanhtung0112]

Bạn thử.2 ô s5 và s6 bạn nhập số nhé.

mình gà bạn giúp mình nha, đừng cười hiz