MsgBox(prompt[, buttons] [, title])
ตัวอย่างการใช้งาน
- MsgBox "Value is : " & [Source]
แสดงค่าในเซลล์ชื่อ Source
- MyVar = MsgBox("Value is : " & [Source], vbOKCancel)
If MyVar = vbOK Then [Target] = [Source]
แสดงค่าในเซลล์ชื่อ Source แล้วถ้ากดปุ่ม OK
จะส่งค่าจาก Source ไปเก็บไว้ที่ Target
สังเกตว่า หลัง MsgBox มีวงเล็บเพื่อทำงานแบบสูตร - ถ้าแก้ไขเพิ่มเติมรหัสบรรทัดแรกในข้อ 2 เป็น
MyVar = MsgBox("Value is : " & [Source], vbOKCancel
+ vbDefaultButton2, "Expert")
สังเกตว่า คราวนี้ปุ่ม Cancel เป็นปุ่มที่พร้อมใช้แทน และมีคำำว่า Expert แทน คำว่า Microsoft Excel ในส่วนที่เป็น Title ด้านบน
เราสามารถเลือกใช้ปุ่มได้หลายประเภท โดยใช้รหัสต่อไปนี้แทนลงไปในส่วนของ buttons
- vbOKOnly
- vbOKCancel
- vbAbortRetryIgnore
- vbYesNoCancel
- vbYesNo
- vbRetryCancel
- vbCritical
- vbQuestion
- vbExclamation
- vbInformation
ในกรณีที่ใช้ปุ่มหลายปุ่ม ให้ใช้รหัสต่อไปนี้บวกต่อท้ายรหัสปุ่ม เพื่อเลือกให้เป็นปุ่มที่พร้อมใช้งานเมื่อกดปุ่ม Enter
- vbDefaultButton1
- vbDefaultButton2
- vbDefaultButton3
