ตัวอย่างโค้ด VBA for Excel ใช้ในการสุ่มตัวเลขแบบอนิเมชั่น ซึ่งสามารถนำไปใช้เพิ่มความน่าสนใจใน Excel หรือ สามารถนำไปประยุกต์ใช้สร้างเกมส์ในเอ็กเซลก็ได้ครับ
rnd_num = Int((9999 - 1000 + 1) * Rnd + 1000)
[b2] = rnd_num
i = 1
Do While (i < rnd_num)
i = i + 1
[b3] = i
DoEvents
Loop
บรรทัดที่ 1: จะเป็นการสุ่มตัวเลขจำนวนเต็ม ตั้งแต่ 1,000 ถึง 9,999
บรรทัดที่ 2: นำตัวเลขที่สุ่มไว้ในเซลล์ B2
บรรทัดที่ 3: ประกาศตัวแปร i = 1 ‘ เพื่อกำหนดจุดเริ่มต้นรอบของการวนลูป
บรรทัดที่ 4: Do While (i < rnd_num) ‘ ให้วนรอบตั้งแต่ 1 ถึง ตัวเลขที่สุ่มได้
บรรทัดที่ 5: i = i + 1 ‘ เพิ่มค่า i รอบละ 1
บรรทัดที่ 6: [b3] = i ‘ กำหนดค่าที่เพิ่มทีละ 1 ในเซลล์ B3
บรรทัดที่ 7: DoEvents ‘ ฟังก์ชั่น DoEvents ในนี้ใช้ติดต่ออินเทอร์เฟซของผู้ใช้เป็นระยะๆ ทำให้ผู้ใช้งานจะเห็นตัวเลขวิ่งเพิ่มขึ้นเรื่อยๆ
บรรทัดที่ 8: Loop ‘ ไว้ออกจาก Loop ของ Do While ถ้าเงื่อนไขเป็นเท็จ
