ขอยกตัวอย่างแบบง่ายๆ หากต้องการ copy เซลล์หนึ่ง มีชื่อว่า Source ไปใช้ paste ยังอีกเซลล์หนึ่ง มีชื่อว่า Target โดยใช้ Macro Recorder จะได้ชุดรหัส ดังนี้
Sub Macro1()
Application.Goto Reference:="Source"
Selection.Copy
Application.Goto Reference:="Target"
ActiveSheet.Paste
End Sub
ขอให้สังเกตตำแหน่งเซลล์ที่เลือกไว้ จะพบว่าชุดคำสั่งข้างบนนี้ copy เซลล์ชื่อ Source แล้วย้ายตำแหน่งเซลล์ที่เลือกไปที่เซลล์ชื่อว่า Target แล้วจึง paste ลงไป
เราสามารถเขียนรหัสให้สั้นลงเหลือเพียง
Sub Macro2()
Range("Source").Copy Range("Target")
End Sub
นอกเหนือจากการ copy ไป paste ตามที่เราต้องการ ยังพบอีกว่า Macro2 ไม่ได้ย้ายตำแหน่งเซลล์ที่เลือกแต่อย่างใด
หากต้องการส่งเฉพาะ value จาก Source ไปยัง Target ให้ใช้รหัสคำสั่งว่า
Sub Macro3()
Range("Target") = Range("Source")
End Sub
| Home |
| เอกสารประกอบหลักสูตร
Excel Expert Training http://www.tpa.or.th/xlsiam http://xls.i.am |
26/11/2544 |