วันนี้เราจะมาทำความรู้จักกับการวนลูป แบบอื่นนอกจากการวนลูป For next กันบ้าง โดยวันนี้เราจะเสริมการแทรก column เข้าไปใน ตารางด้วย
ให้เราสร้างตารางเปล่าๆ ขึ้นมาหนึ่งตารางครับ ไม่ต้องใส่ข้อมูลอะไรลงไป (เพราะว่าเป็นตารางสำหรับทดสอบคำสั่งเท่านั้นเอง) โดยใส่หัวตารางให้ใช้ชื่อเดียวกับ column
โดยเริ่มต้นที่ column A ไปจนถึง Column G
Table
หลังจากนั้นให้ลองใส่ code VBA ตามนี้ลงไป
Code
โดยแต่ละบรรทัด จะขออธิบายให้เช้าใจง่ายๆ ดังต่อไปนี้ คือ ในส่วนหัวก่อนเข้า Sub (subroutine) เป็นการกำหนดค่า i โดยกำหนดให้เป็นค่า integer
โดยเรากำหนด cell reference คือ B1 ตัวโปรแกรมจะทำการแทรก column เข้าไปหน้า cell reference ของเรา (สังเกตผลลัพธ์ )
Description
จากนั้นจะเข้าสู่ ลูป Do Until Loop ซึ่งหลายๆ คนอาจจะคุ้นเคยหรือเห็น Do While Loop มากกว่า ซึ่งMethod ทั้งสองตัวมีขั้นตอนที่แตกต่างกันนิดหน่อย คือ
ตัว Do until Loop จะดำเนินการก็ต่อเมื่อ ตัวดำเนินการหลัง Until เป็น เท็จ คือเรากำหนด i>10 แต่โปรแกรมจำดำเนินการตั้งแต่ i=0 จนถึง 10 (False state)
จบ i>10(true state) โปรแกรมจะหยุดและออกจาก loop ทันที แล้วจึงมา run บรรทัดถัดไป คือ Sheet1.Range(“B1”) = “number” จะได้ผลดังนี้
ดูเพิ่มเติมในซีรีส์
โฆษณา
- ดาวน์โหลดแอปพลิเคชัน
- © 2024 Blockdit
