Microsoft Excel 2010: Insert Table using vba

Microsoft Excel 2010: Insert Table using vba

Microsoft Excel 2010: Insert Table using vba · เปิด Microsoft Excel ขึ้นมา แล้ว กด ALT+F11 · จากนั้น Insert->Module เข้าม... 14:14:00

Microsoft Excel 2010: Insert Table using vba

· เปิด Microsoft Excel ขึ้นมา แล้ว กด ALT+F11

· จากนั้น Insert->Module เข้ามา 1 อัน

ใส่โค้ดต่อไปนี้เข้าไป
Sub Macro1()

' Macro1 Macro

Range("F7:M21").Select

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$F$7:$M$21"), , xlNo).Name = _

"Table2"

Range("Table2[#All]").Select

End Sub

ตัวหนังสือไม่ชัดดูโค้ดจากภาพด้านล่างจ๊ะ

· กด ALT+F11 เพื่อกลับมาที่ Microsoft Excel อีกครั้งหนึ่ง

· คลิ้กที่ Tab Developer

· คลิ้กที่ ไอคอน Insert จะปรากฏปุ่มต่างๆให้เลือก ให้เราเลือกปุ่ม button(Form Control) ซึ่งอยู่ในส่วน Form Controls

· ตอนนี้เม้าส์ได้กลายเป็นเครื่องหมายกากบาท ซึ่งหมายความว่าเราสามารถวาด button ลงบนพื้นที่เซลล์ใดๆก็ได้ ในที่นี้ให้เราวาด แถวๆเซลล์ A1

· เมื่อเราเริ่มวาด button ลงไป จะปรากฏกรอบโต้ตอบ Assign Macro เด้งขึ้นมา

· ให้เราเลือก Macro1 แล้วกด Ok ทดสอบการทำงานโดยการคลิ้กที่พื้นที่ว่าง บนเซลล์ใดๆ 1 ครั้งแล้ว เลื่อนเม้าส์ไปบนปุ่ม button ถ้าเม้าส์กลายเป็นรูปมือก็ให้กดสั่งงานได้เลย ซึ่งผลการทำงานก็จะเป็นดั่งภาพด้านล่างนี้