เขียน vba สั่งให้ ประสานเซลล์ ( การ ผสานเซลล์ vba 2007 )

1. เปิด ms Excel ขึ้นมา 2. นำปุ่ม commandbutton1 จาก แท็บนักพัฒนา จากแท็บเครื่อง มือ ทำตามภาพด้านล่างนี้เลยขอรับ 3. หลังจากที่นำ comman... thumbnail 1 summary

15:18:00

1. เปิด ms Excel ขึ้นมา
2. นำปุ่ม commandbutton1 จาก แท็บนักพัฒนา จากแท็บเครื่อง มือ ทำตามภาพด้านล่างนี้เลยขอรับ
3. หลังจากที่นำ commandbutton1 มาวางบน เอกสารของ ms excel แล้ว ให้ ดับเบิ้ลคลิกที่ commandbutton1 ที่อยู่ บน ms excel จากนั้น ให้ เขียนโค้ดต่อไปนี้ลงไป ระหว่าง บล็อก ของ private sub commandbutton1_click()..... end sub
เมื่อวางโค้ดลงไปแล้วจะได้ โค้ดทั้งหมด ดังนี้
Private Sub CommandButton1_Click()
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End Sub
4. กด alt+ F11 เพื่อกลับมายัง ms excel 2007
5. มองหาปุ่มที่ชื่อว่า " โหมดออกแบบ " แล้วคลิ้กให้ เด้งขึ้นมา ( การที่ปุ่ม โหมดออกแบบ เด้งขึ้นมา แสดงว่าอยู่ใน โหมด รันโปรแกรม )
6. ให้ลอง ใช้เมาส์เลือกช่วงเซลล์ที่ต้องการจะประสานรวมกัน เมื่อเลือกช่วงเซลล์เรียบร้อยแล้ว
7. ขั้นต่อไป ให้ กด ที่ ปุ่ม commandbutton1 1 ครั้ง เพื่อสั่งให้โค้ดโปรแกรมที่เราได้เขียนไป ทำงาน
8. สังเกตุผลการรัน ถ้าไม่มีอะไรผิดพลาด เซลล์ ต่าง ๆ ที่ถูกระบาย จะ ถูก รวม ( merge ) เป็นเซลล์เดียวกัน ถือว่าบรรลุผลสำหรับ งานนี้ครับ