วันพุธที่ 24 ธันวาคม พ.ศ. 2551

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

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

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 = False
End With

End Sub

4. กด alt+ F11 เพื่อกลับมายัง ms excel 2007
5. มองหาปุ่มที่ชื่อว่า " โหมดออกแบบ " แล้วคลิ้กให้ เด้งขึ้นมา ( การที่ปุ่ม โหมดออกแบบ เด้งขึ้นมา แสดงว่าอยู่ใน โหมด รันโปรแกรม )
6. ให้ลอง ใช้เมาส์เลือกช่วงเซลล์ที่ต้องการยกเลิกการประสานรวมกัน เมื่อเลือกช่วงเซลล์เรียบร้อยแล้ว
7. ขั้นต่อไป ให้ กด ที่ ปุ่ม commandbutton1 1 ครั้ง เพื่อสั่งให้โค้ดโปรแกรมที่เราได้เขียนไป ทำงาน
8. สังเกตุผลการรัน ถ้าไม่มีอะไรผิดพลาด เซลล์ ต่าง ๆ ที่ถูกระบาย จะ ถูกยกเลิกการ รวม ( merge ) เซลล์ ถือว่าบรรลุผลสำหรับ งานนี้ครับ