วันนี้เราจะมาคุยกันเกี่ยวกับ การ Set Object เนื่องจากเป็นเรื่องที่สำคัญพอสมควร เพราะหลายๆ ครั้งที่เราต้องการ ใส่ Property หรือ Method ให้กับCells ที่เราต้องการ
แต่ไม่สะดวกที่จะวนลูปเข้าไป หรือทำทีละCells ให้ยุ่งยาก การ Set Object ยังเป็นตัวช่วยที่ดีในกระบวนการแบบนี้
ก่อนอื่นเลย ต้องสร้างตารางข้อมูลตัวอย่างสำหรับทดสอบ ระบบ การ Set Object ให้ทำในSheet1
Sheet1
ส่วนรายการตารางนี้ให้เราทำใน Sheet2
Sheet2
คลิ๊กเข้าไปที่แถบ Developer แล้วเลือก visual basic แล้วจะมี POPUP VBA ขึ้นมา ไปที่ Project -VBAProject แล้วเลือก Workbook คลิ๊กขวา insert > module แล้วเขียนโค๊ด ลงไปตามนี้
แล้วจะมาอธิบายให้ว่ามันคืออะไร ทำงานยังไง
Code
ก่อนอื่น code ที่เราจะทำ ต้องกำหนด sample ให้เป็น Object โดยกำหนด Dim Sample as Object ซึ่งเราต้องทำการประกาศตัวแปรก่อน เพื่อให้ตัวโปรแกรมทราบ
แล้ว ใช้ คำสงวน Set เพื่อ สร้าง Set Object ดังนี้ Set Sample = Range("A1", Range("A1").End(xlDown))
ตอนนี้ Sample จะกลายเป็น Object เป็นที่เรียบร้อยแล้ว ซึงตอนนี้เราสามารถใส่ คุณสมบัติ และ การดำเนินการต่างๆ กับ Object ได้เลย เช่นการใส่สี ให้กับCells หรือใส่สีให้กับตัวอักษร
ตามที่ผมเขียน Code ซึ่งเราสามรถนำ Object ตัวนี้ไปใช้กับ Sheet1 หรือ Sheet อื่นๆได้ด้วย โดยเราเปลี่ยนจาก Sheet2.Activate เป็น Sheet1.Activate เท่านั้นเอง
เมื่อผม run โปรแกรม จะได้ผลตามนี้ (กด F5 หรือ กดปุ่มเครื่องหมายลูกศร )
Results
ใครอยากจะลอง ว่า Object นำไปใช้ Sheetอื่นได้ไหม ให้เปลี่ยน Sheet2 เป็นSheetอื่น (ในที่นี้คือ Sheet1) แล้วลองดูผลการเปลี่ยนแปลงเอาเองนะ
ดูเพิ่มเติมในซีรีส์
โฆษณา
- ดาวน์โหลดแอปพลิเคชัน
- © 2024 Blockdit
