In phiếu thu (1 người xem)

[cuonghoa176]

Các bác cho e xin cái VBA để in toàn bộ số phiếu sẽ xuất hiện tại G1?

 

[cuonghoa176]

Nếu tại G1 là name "lop" với các text 6A,6B,6C,6D,6E...7A...8A...9A...9E thì làm sao cho được bác?

 

[befaint]

Nếu tại G1 là name "lop" với các text 6A,6B,6C,6D,6E...7A...8A...9A...9E thì làm sao cho được bác?

Sub PrintAll()
Dim i As Long, lop()
lop = Array("6A", "6B", "6C") 'Nếu số lượng lớp nhiều thì cho vào 1 vùng nào đó của sheet > gán vào mảng.
For i = 0 To UBound(lop)
    Sheet2.Range("G1") = lop(i)
    Sheet2.Range("A1:F20").PrintOut
Next i
End Sub

 

[cuonghoa176]

Nguồn tại Sheet1 "AX7:AX27" sao không được Bác?


Sub PrintAll_lop()
Dim I As Long, lop_in()
lop_in = Array("AX7:AX27")
For I = 0 To UBound(lop_in)
Sheet1.Range("F2") = lop_in(I)
Sheet1.Range("A1:J46").PrintOut
Next I
End Sub

 

[Vo Tinh]

Nguồn tại Sheet1 "AX7:AX27" sao không được Bác?


Sub PrintAll_lop()
Dim I As Long, lop_in()
lop_in = Array("AX7:AX27")
For I = 0 To UBound(lop_in)
Sheet1.Range("F2") = lop_in(I)
Sheet1.Range("A1:J46").PrintOut
Next I
End Sub

Bạn sửa lại dòng này xem sao

lop_in = Sheet1.Range("AX7:AX27")

 

[cuonghoa176]

Không được đâu Bác ơi..nếu nhập "6A",...thì được.

 

[Vo Tinh]

Không được đâu Bác ơi..nếu nhập "6A",...thì được.

Bạn đưa file bạn đang làm lên đi, có file mới test được
File ở bài #1 thì in ở Sheet2, còn code bạn đưa bài #5 thì in ở Sheet1

 

[Vo Tinh]

Nguồn tại Sheet1 "AX7:AX27" sao không được Bác?


Sub PrintAll_lop()
Dim I As Long, lop_in()
lop_in = Array("AX7:AX27")
For I = 0 To UBound(lop_in)
Sheet1.Range("F2") = lop_in(I)
Sheet1.Range("A1:J46").PrintOut
Next I
End Sub

Đọc lại cả topic thấy trước là mảng 1 chiều giờ bạn đưa vào mảng 2 chiều thì sửa code như sau

Sub PrintAll_lop()
Dim I As Long, lop_in()
lop_in = Sheet1.Range("AX7:AX27")
For I = 0 To UBound(lop_in,1)
     Sheet1.Range("F2") = lop_in(I,1)
     Sheet1.Range("A1:J46").PrintOut
Next I
End Sub

Nếu chưa đựơc thì bạn đưa file lại nha

 

[taivat]

Bạn xem được chưa , bỏ vào sheet PHIEUTHU nhé


Sub InLienTuc()
Dim n As Long, i As Long
n = Sheet1.Range("L65000").End(xlUp).Row
For i = 3 To n
Sheet2.Range("G1") = Sheet1.Range("L" & i)
Sheet2.PrintOut From:=1, To:=1, Copies:=1
Next
End Sub

 

[cuonghoa176]

Cái Bác Votinh làm vẫn không được.

 

[cuonghoa176]

Cái của Bác Vo Tinh làm vẫn chưa được. Gửi Bác xem File...

 

[cuonghoa176]

Chưa được đâu Bác Vo Tinh ơi...gửi Bác xem File..

 

[Vo Tinh]

Chưa được đâu Bác Vo Tinh ơi...gửi Bác xem File..

Sửa For I = 1 To UBound(lop_in, 1)

Sub PrintAll_lop()
Dim I As Long, lop_in()
lop_in = Sheet1.Range("AX7:AX27")
For I = 1 To UBound(lop_in, 1)
    Sheet1.Range("F2") = lop_in(I, 1)
    Sheet1.Range("A1:J46").PrintOut
Next I
End Sub