Snasui Excel Forum

snasui wrote: Mon Mar 28, 2022 10:26 pm ไม่ทราบมีปัญหาอะไรกับการพิมพ์บรรทัดยอดรวมไปด้วยกรุณาอธิบายเพิ่มเติมครับ

ถ้าจะพิมพ์ส่วนไหนก็แค่เลือกข้อมูล > ไปที่เมนู Page Layout > Print Area > Set Print Area

Excel ไม่มีให้พิมพ์ซ้ำด้านท้ายข้อมูล จะพิมพ์อะไรก็เลือกเอาไว้ก่อน ยกเว้นหัวข้อมูลถึงจะมี Option ให้เลือกได้ว่าให้ซ้ำที่บรรทัดไหน

หากต้องการให้บรรทัดด้านท้ายคงที่อยู่เสมอในทุก ๆ หน้าจะต้องใช้เทคนิคอื่นเข้ามาช่วย เช่นใช้ VBA เก็บภาพด้านท้ายเอาไว้แล้วกำหนดให้ท้ายกระดาษเป็นรูปนั้น เช่นนี้เป็นต้นครับ

1. ที่ O1 คีย์
   =G1+1
   Enter > Copy ลงด้านล่าง
2. ที่ A5 คีย์
   =IFERROR(INDEX(Sheet1!A$2:A$31,10*($G$1-1)+ROWS(A$5:A5)),"")
   Enter > Copy ไปด้านขวาและลงด้านล่าง
3. ที่ I5 คีย์
   =IFERROR(INDEX(Sheet1!A$2:A$31,10*($O$1-1)+ROWS(I$5:I5)),"")
   Enter > Copy ไปด้านขวาและลงด้านล่าง

snasui wrote: Tue Mar 29, 2022 7:41 am เข้าใจว่าต้องการให้สะดวกต่อการแสดงผลข้อมูลทีละ 10 รายการในแต่ละหน้า ตัวอย่างสูตรตามด้านล่างครับ

1. ที่ O1 คีย์
   =G1+1
   Enter > Copy ลงด้านล่าง
2. ที่ A5 คีย์
   =IFERROR(INDEX(Sheet1!A$2:A$31,10*($G$1-1)+ROWS(A$5:A5)),"")
   Enter > Copy ไปด้านขวาและลงด้านล่าง
3. ที่ I5 คีย์
   =IFERROR(INDEX(Sheet1!A$2:A$31,10*($O$1-1)+ROWS(I$5:I5)),"")
   Enter > Copy ไปด้านขวาและลงด้านล่าง

ลองเปลี่ยนค่าที่ G1 เป็นเลขหน้าใด ๆ ที่ต้องการ แล้วดูผลลัพธ์ว่าตรงกับที่ต้องการหรือไม่ครับ

thanadul0816 wrote: Tue Mar 29, 2022 9:04 am

snasui wrote: Tue Mar 29, 2022 7:41 am เข้าใจว่าต้องการให้สะดวกต่อการแสดงผลข้อมูลทีละ 10 รายการในแต่ละหน้า ตัวอย่างสูตรตามด้านล่างครับ

1. ที่ O1 คีย์
   =G1+1
   Enter > Copy ลงด้านล่าง
2. ที่ A5 คีย์
   =IFERROR(INDEX(Sheet1!A$2:A$31,10*($G$1-1)+ROWS(A$5:A5)),"")
   Enter > Copy ไปด้านขวาและลงด้านล่าง
3. ที่ I5 คีย์
   =IFERROR(INDEX(Sheet1!A$2:A$31,10*($O$1-1)+ROWS(I$5:I5)),"")
   Enter > Copy ไปด้านขวาและลงด้านล่าง

ลองเปลี่ยนค่าที่ G1 เป็นเลขหน้าใด ๆ ที่ต้องการ แล้วดูผลลัพธ์ว่าตรงกับที่ต้องการหรือไม่ครับ

ขอบคุณมากครับ ได้ผลใกล้เคียงกับที่ต้องการ พอจะเข้าใจแล้วแล้ว จะนำไปประยุกต์ใช้งานกับ VBA ต่อครับ

snasui wrote: Tue Mar 29, 2022 11:57 pm ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Macro2()
    Dim l As Long
    With Worksheets("DATA")
        For i = 1 To .Range("a" & .Rows.Count).End(xlUp).Value Step 3
            With Worksheets("ãºÊè§")
                .Range("b4").Value = i
                .Range("a1:f29").PrintOut
            End With
        Next i
    End With
End Sub

thanadul0816 wrote: Wed Mar 30, 2022 9:07 pm

snasui wrote: Tue Mar 29, 2022 11:57 pm ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Macro2()
    Dim l As Long
    With Worksheets("DATA")
        For i = 1 To .Range("a" & .Rows.Count).End(xlUp).Value Step 3
            With Worksheets("ãºÊè§")
                .Range("b4").Value = i
                .Range("a1:f29").PrintOut
            End With
        Next i
    End With
End Sub

ขอบคุณครับ ได้ผลที่ต้องการครับ

Sub PrintPreview() '¾ÃÕÇÔÇ¡è͹¾ÔÁ¾ì
'CarryOn = MsgBox("µéͧ¡ÒÃÊÑ觾ÔÁ¾ì ãªè ËÃ×Í äÁè?", vbYesNo, "Confirm Print")
'If CarryOn = vbYes Then
    Dim l As Long
        With Worksheets("DATASHIP3")
        For i = 1 To .Range("j" & .Rows.Count).End(xlUp).Value Step 3
            With Worksheets("Bill")
                .Range("D2").Value = i
                .Range("a1:i33").PrintPreview
                .Application.Dialogs(xlDialogPrint).Show
                'Worksheets("㺻Ð˹éÒ¡Åèͧ 50 ¡ÃÑÁ").PrintOut ActivePrinter:=Sheets("SET").Range("B2")
                    End With
        Next i
        Sheets("BILL").Select
        Range("D2").Select
        ActiveCell.FormulaR1C1 = "1"
        MsgBox "ÊÑ觾ÔÁ¾ìàÃÕºÃéÍÂ"
    End With
    'End If
End Sub