MsgBox Function

MsgBox(prompt[, buttons] [, title])

ตัวอย่างการใช้งาน

1. MsgBox "Value is : " & [Source]
   แสดงค่าในเซลล์ชื่อ Source
   
   
2. MyVar = MsgBox("Value is : " & [Source], vbOKCancel)
   If MyVar = vbOK Then [Target] = [Source]
   
   
   
   แสดงค่าในเซลล์ชื่อ Source แล้วถ้ากดปุ่ม OK
   จะส่งค่าจาก Source ไปเก็บไว้ที่ Target
   สังเกตว่า หลัง MsgBox มีวงเล็บเพื่อทำงานแบบสูตร
3. ถ้าแก้ไขเพิ่มเติมรหัสบรรทัดแรกในข้อ 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