vba程式設計中msgbox函式如何使用

IT科技
關注：1.32W次

以下是幫助文件中關於 MsgGox 函式的說明：使用示例程式碼如下：本示例使用 MsgBox 函式，在具有“是”及“否”按鈕的對話方塊中顯示一條嚴重錯誤資訊。示例中的預設按鈕為“否”，MsgBox 函式的返回值視使用者按哪一個鈕而定。本示例假設 DEMO.HLP 為一幫

MsgBox函式一般有兩種用法：一是純粹作訊息框使用，比如顯示訊息“執行結束！”，程式碼：msgbox "執行結束！"。二是在對話方塊中顯示訊息，等待使用者單擊按鈕，並返回一個 Integer 告訴使用者單擊了哪一個按鈕。比如：If MsgBox("單擊“是”則刪除該檔案，“否”放棄", vbYesNo) = vbYes Then'刪除檔案的程式碼 End If執行這個msgbox函式將在對話方塊中出現“是”“否”兩個按鈕，讓使用者選擇下一步要進行的操作。下面我就以例項來說明Excel的VBA程式設計中MsgBox函式的使用方法供需要的朋友們參考：

首先來看一下MsgBox的基本語法格式： MsgBox(prompt[, buttons] [, title] [,helpfile, context]) 下面就其中的各引數進行詳細的講解。 prompt引數（必選引數）：該引數用於表明輸出對話方塊所顯示的內容，由於該引數只代表長度為255個字元的一個

方法

第一步：首先讓我們開啟一個工作樣表作為例子（如下圖）：

MsgBox(prompt[, buttons] [, title] [, helpfile, context])MsgBox 函式的語法具有以下幾個命名引數： Prompt-------必需的。字串表示式，作為顯示在對話方塊中的訊息。prompt 的最大長度大約為 1024 個字元，由所用字元的寬度決定。如果 prom

第二步：按下alt+f11進入vba編輯模式，並插入一個新模組命名為msg。並在模組內定義 a=msgbox()，按下 F5執行後，會彈出一個空白的對話方塊（如下圖）：

如果只作訊息框使用，就在函式後面空格後接一個字串即可，如： msgbox "計算結束！！" 如果要作選擇對話方塊使用，則要使用不同的引數，生成不同的按鈕。比如： If MsgBox("此操作要花費很長時間，是否繼續？", vbYesNo) = vbYes Then '此處是運

第三步：msgbox的引數與inputbox的引數類似，這裡需要提出來的是： Value=MsgBox(prompt[，buttons][，title][ ，helpfile，context]) ，這裡面buttons引數為陣列組合，並且有規定的常量或數值，大家需要熟記一下。當然也可以藉助vba的自動提示功能來輔助記憶。（如下圖）：

第四步：為了防止excel工作表被誤關閉，我們需要這樣做。首先在左側工程編輯欄中選擇通用表格。（如下圖）：

if msgbox("繼續嗎？（Y/N）",vbquestion+vbyesno,“提示”)=vbyes then '你的程式碼1 else '你的程式碼2 end if

第五步：雙擊thisworkbook後在右側物件選項和動作選項中分別選擇workbook和beforeclose來建立一個模組（如下圖）：

要在VBA中使用工作表中使用的函式的話，要在函式前面加WorksheetFunction 以下是例子，自己看看吧。 for j = 1 to 10 msgbox worksheetfunction.vlookup(,,j,) next

第五步：輸入以下程式碼：“Dim intreturn As Integer intReturn = MsgBox("退出程式嗎?"，vbYesNo + vbQuestion， "提示")If intReturn <> vbYes Then Cancel = True”這裡解釋一下定義return變數為一個整數值，當變數RETURN不為yes時，則所有操作取值取消（如下圖）：

按鈕執行效果相當於F9吧（計算所有工作表），那麼下面的一個語句即可： Calculate