การดึงข้อมูล มาใส่ template แล้วให้ก๊อปปี้ตัวเอง เรียงตามแถวข้อมูลที่มี

[sweetken]

สวัสดีค่ะอาจารย์

ดิฉัน ต้องการดึงข้อมูล ข้อมูลจาก sheet ที่ชื่อ Panal list แล้วให้ Copy ตัวเองใส่เทมเพลต แล้วแสดงเรียงออกมา 2 แถวให้พอดีหน้ากระดาษ A4 โดยที่ข้อมูลไม่ผิดพลาด ทั้งนี้ดิฉันได้แนบไฟล์ตัวอย่างมาให้แล้วคะ

คำถาม
1. เนื่องจากดิฉันไม่มีความรู้เรื่อง VBA เลย จึงเขียนตามที่ได้เปิดหนังสือ แล้วก๊อปเอามาใส่บ้าง รู้สึกถึงความไม่เรียบร้อย จึงอยากจะขอคำแนะนำว่า มีวิธีเขียนให้กระชับกว่านี้ไหม
2. แล้วมีวิธีเขียนให้ ก๊อปปี้ตัวเองโดยไม่ผ่าน เทมเพลตไหมคะ
3. ดิฉันพยายามดึงรูป ไปไว้หน้า Print แต่ไม่สามารถดึงไปได้ ขอความกรุณาแนะนำวิธีด้วยคะ (เนื่องจากเขียนให้ดึงข้อมูลจากหน้า เทมเพลต แล้วก๊อบตัวเองลงมา จนบรรทัดสุดท้าย แล้วหยุดค่ะ)

ขอบพระคุณอย่างสูง

[snasui]

เข้าใจว่าเป็นการ Loop ค่าในชีท Panel List เข้าชีต Template แล้ว Copy จากชีต Template ไปวางในชีต Print อีกที

สามารถลดขั้นตอนโดยให้ Link ตรงไปยังชีต Print ได้เลย จะได้ไม่ต้องเสียเวลา Copy อีกรอบ

ส่วนรูปก็ Copy ไปเอาวางเองยังตำแหน่งที่ต้องการได้เลยครับ

การจะให้พอดีหน้า A4 สามารถจัดเอาไว้ล่วงหน้าได้ ไม่จำเป็นต้องจัดหน้าใหม่ทุกครั้งที่ Run Code ไม่ทราบว่าหากทำตามข้างต้นนี้จะติดปัญหาใดหรือไม่ครับ

การใช้ Code โดยไม่ผ่าน Template จะยุ่งยากมากกว่าวิธีที่ใช้อยู่นี้ หากต้องการจะทำต้องเขียนมาเองก่อน ติดแล้วค่อยถามกันครับ

กรณี Code ยาวและไม่กระชับแต่สามารถแก้ไขได้เองย่อมจะให้ประโยชน์มากกว่า Code สั้นแต่เข้าใจยากและแก้ไขเองลำบาก หากไม่ติดปัญหาใด ค่อย ๆ ปรับปรุงไปเรื่อย ๆ ไม่ต้องรีบร้อน ปรับเองแล้วติดตรงไหนสามารถสอบถามมาได้ครับ

[sweetken]

ขอบพระคุณสำหรับคำแนะนำค่ะ

[sweetken]

สวัสดีค่ะอาจารย์
ตอนนี้ติดปัญหาเรื่องการวางรูป ที่ก๊อบมาแล้วรูปไม่ตามมาด้วย จึงพยายามใช้ macro ผลที่ได้คือ จะทำการแทรกได้เท่าที่เรากำหนด ดังโค๊ดต่อไปนี้

Code: Select all

Sheets("template").Select
    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    Selection.Copy
    Sheets("Print").Select
    Range("A9").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=3
    Range("F9").Select
    ActiveWindow.SmallScroll Down:=3
    ActiveSheet.Paste

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

ขอบพระคุณค่ะ

[niwat2811]

Code: Select all

Sub test()
Dim lr As Long
Application.ScreenUpdating = False
lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 9 To lr Step 9
        If Range("A" & i).Value = 1 Then
            Sheets("Template").Activate
            Range("A9").Copy
            Sheets("Print").Select
            Range("A" & i).Select
            ActiveSheet.Paste
        End If
    Next i
lr = Range("F" & Rows.Count).End(xlUp).Row
    For i = 9 To lr Step 9
        If Range("F" & i).Value = 1 Then
            Sheets("Template").Activate
            Range("A9").Copy
            Sheets("Print").Select
            Range("F" & i).Select
            ActiveSheet.Paste
        End If
    Next i
Application.ScreenUpdating = True
End Sub

สำหรับการ Copy รูปภาพลองใช้ Code นี้ดูว่าตรงตามความต้องการไหม

[sweetken]

ขอบพระคุณมากค่ะ ตอนนี้ดิฉันสามารถรันโปรแกรมได้ ไม่ติดขัดแล้วค่ะ