Snasui Excel Forum

snasui wrote: Sun May 08, 2022 8:24 am แนบไฟล์ที่มี Code มาด้วยครับ

ไฟล์ที่จะแนบ Code ได้อย่างน้อยจะต้องมีนามสกุลเป็น .xlsm, .xlsb ไม่ใช่ .xlsx ครับ

snasui wrote: Mon May 09, 2022 5:28 pm ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
Dim i As Integer, j As Integer
With Worksheets("Sheet1")
    For i = .Range("p9").Value To .Range("p10").Value
'            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        .PageSetup.PrintArea = .Range("g4").Offset(j, 0).Resize(7, 5).Address
        .PrintOut
        j = j + 8
    Next i
End With
'Other code

 .PageSetup.PrintArea = .Range("g4").Offset(j, 0).Resize(7, 5).Address

        j = j + 8

Xcelvba wrote: Tue May 10, 2022 8:58 am .Range("g4").Offset(j, 0).Resize(7, 5).Address

Xcelvba wrote: Tue May 10, 2022 8:58 amj = j + 8

snasui wrote: Tue May 10, 2022 1:41 pm

Xcelvba wrote: Tue May 10, 2022 8:58 am .Range("g4").Offset(j, 0).Resize(7, 5).Address

หมายถึงให้แสดงตำแหน่งของ g4 หลังจากย้ายไปด้านล่าง j บรรทัด ไปด้านขวา 0 คอลัมน์และขยายพื้นที่เป็น 7 บรรทัด 5 คอลัมน์ครับ

Xcelvba wrote: Tue May 10, 2022 8:58 amj = j + 8

หมายถึงให้ปรับค่า j โดยเพิ่มไปทีละ 8 เพื่อจะนำค่า j ไปใช้ตามบรรทัดบนครับ