Page 1 of 1

สอบถามการ copy และ paste ข้อมูลโดยใช้ Macro ครับ

Posted: Sat Jan 10, 2015 3:02 pm
by bboy_access
สวัสดีครับขอสอบถามการ copy และ paste ข้อมูลครับ

ผมมีตาราง 2 ตารางครับ

ตารางที่ 1 จะกรอกข้อมูลแค่บรรทัดเดียวเท่านั้น (ซึ่งข้อมูลจะมีการเปลี่ยนแปลงทุกวันที่ผมได้ทำการซื้อขาย)

ส่วนตารางที่ 2 ผมจะรวบรวมข้อมูลทั้งหมดที่เคยกรอกในตารางที่ 1

ผมต้องสร้าง macro โดยใช้ Code อะไรครับ (เพื่อให้ง่ายในการ copy และ paste ข้อมูลครับ)

รบกวนอาจารย์หรือท่านผู้รู้ช่วยให้คำแนะนำหน่อยครับ

ปล.1 ที่ผมสร้างตารางขึ้นมา 2 ตาราง เพราะว่าตารางที่ 1 ผมใส่สูตร Vlookup ดึงข้อมูลมาวางไว้เฉยๆ ดังนั้นผมจึงอยากจะรวบรวมข้อมูลทั้งหมดที่ดึงมาไว้แล้วนำมาเก็บรวบรวมในตารางที่ 2

ปล.2 ผมแนบไฟล์ตัวอย่างไว้ให้นะครับ

ปล.3 Microsoft excel 2010 ครับ


ขอบคุณครับ

Re: สอบถามการ copy และ paste ข้อมูลโดยใช้ Macro ครับ

Posted: Sat Jan 10, 2015 7:26 pm
by snasui
:D แนบไฟล์ที่มี Macro ที่เขียนมาเองแล้วด้วย จะได้ช่วยดูต่อไปจากนั้น สำหรับไฟล์ที่มี Macro อย่างน้อยนามสกุลต้องเป็น .xlsm ครับ

Re: สอบถามการ copy และ paste ข้อมูลโดยใช้ Macro ครับ

Posted: Sat Jan 10, 2015 7:56 pm
by bboy_access
รบกวนช่วยดูหน่อยครับ

คือผมทำเป็น macro แล้วแต่พอใช้ macro ในตารางที่ 2 จะ copy & paste วนอยู่บรรทัดเดิมตลอดเลยครับ

จะต้องแก้ตรงไหนถึงจะมีการเก็บข้อมูลไปเรื่อยๆครับ ผมอยากให้เรียงลงไปที่ละแถวครับ

ขอบคุณครับ

Re: สอบถามการ copy และ paste ข้อมูลโดยใช้ Macro ครับ

Posted: Sat Jan 10, 2015 8:02 pm
by snasui
:D ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub Macro1()
'
' Macro1 áÁâ¤Ã
'
' Keyboard Shortcut: Ctrl+q
'
    Range("A3:G3").Select
    Selection.Copy
    Range("A100000").Select 'ไปยัง A100000
    Selection.End(xlUp).Offset(1, 0).Select 'จาก A100000 ขึ้นไปบนสุดหาบรรทัดที่มีข้อมูลแล้วขยับลงไปบรรทัดว่าง
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A9").Select
    Application.CutCopyMode = False
End Sub

Re: สอบถามการ copy และ paste ข้อมูลโดยใช้ Macro ครับ

Posted: Sat Jan 10, 2015 10:33 pm
by bboy_access
ขอบคุณครับ