<<Convert Excel Spreadsheets to Web Pages \| Trading Software That Operates Within Excel \| Convert Excel, Access & Other Databases \| Merge Excel Files>>

Excel Message Box (MsgBox) Function

TRY OUT: Smart-VBA | Code-VBA | Analyzer-XL | Downloader-XL | Trader-XL| More Free Downloads.. Best Value: Finance Templates Bundle

THE MESSAGE BOX (MSGBOX) FUNCTION

How to capture which button the user clicked.

Option Explicit
'Message Box Syntax
'MsgBox(prompt[, buttons] [, title] [, helpfile, context])


Sub MsgBox_Static_Title_Msg()
'Move to very top of Module To make it _
    available to all Procedures within'
'Use as _
    Public Const strTitle As String = "Ozgrid.com" _
    At the very top of any Public Module to make _
    To all Public and Private Procedures
Const strTitle As String = "Ozgrid.com"
Const strMsg As String = "How are you feeling Today?"

'Run by placing cursor within Procedure & push F5
MsgBox strMsg, vbOKOnly, strTitle
End Sub


Sub MsgBox_Mix_Look()
'We can join looks and buttons by use of +

'Run by placing cursor within Procedure & push F5
    MsgBox "Hello Subscribers", vbInformation + vbOKOnly
End Sub


Sub Msgbox_Capure_Reply()
Dim lReply As Long


'Run by placing cursor within Procedure & push F5
    lReply = MsgBox("Do you wish to continue.", vbYesNoCancel + vbQuestion)

    Select Case lReply
        Case vbYes
          MsgBox "You chose Yes"
        Case vbNo
          MsgBox "You chose No"
        Case vbCancel
          MsgBox "You chose Cancel"
    End Select
          
End Sub


Sub Msgbox_Capure_Reply_Change_Default_Button()
Dim lReply As Long


'Run by placing cursor within Procedure & push F5
    lReply = MsgBox("Do you wish to continue.", vbYesNoCancel + vbQuestion + vbDefaultButton3)

    Select Case lReply
        Case vbYes
          MsgBox "You chose Yes"
        Case vbNo
          MsgBox "You chose No"
        Case vbCancel
          MsgBox "You chose Cancel"
    End Select
          
End Sub

Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Try out: Analyzer XL | Downloader XL | Smart VBA | Trader XL Pro (best value) | ConsoXL | MergeXL | O2OLAP for Excel | MORE>>

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft Ž and Microsoft Excel Ž are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft