vba編程中msgbox函數(shù)如何使用

以下是幫助文檔中關(guān)于 MsgGox 函數(shù)的說(shuō)明： 使用示例代碼如下： 本示例使用 MsgBox 函數(shù)，在具有“是”及“否”按鈕的對(duì)話框中顯示一條嚴(yán)重錯(cuò)誤信息。示例中的缺省按鈕為“否”，MsgBox 函數(shù)的返回值視用戶按哪一個(gè)鈕而定。本示例假設(shè) DEMO.HLP 為一幫

MsgBox函數(shù)一般有兩種用法：一是純粹作消息框使用，比如顯示消息“運(yùn)行結(jié)束！”，代碼：msgbox "運(yùn)行結(jié)束！"。二是在對(duì)話框中顯示消息，等待用戶單擊按鈕，并返回一個(gè) Integer 告訴用戶單擊了哪一個(gè)按鈕。比如：If MsgBox("單擊“是”則刪除該文件，“否”放棄", vbYesNo) = vbYes Then'刪除文件的代碼 End If執(zhí)行這個(gè)msgbox函數(shù)將在對(duì)話框中出現(xiàn)“是”“否”兩個(gè)按鈕，讓用戶選擇下一步要進(jìn)行的操作。下面我就以實(shí)例來(lái)說(shuō)明Excel的VBA編程中MsgBox函數(shù)的使用方法供需要的朋友們參考：

首先來(lái)看一下MsgBox的基本語(yǔ)法格式： MsgBox(prompt[, buttons] [, title] [,helpfile, context]) 下面就其中的各參數(shù)進(jìn)行詳細(xì)的講解。 prompt參數(shù)（必選參數(shù)）：該參數(shù)用于表明輸出對(duì)話框所顯示的內(nèi)容，由于該參數(shù)只代表長(zhǎng)度為255個(gè)字符的一個(gè)

方法

第一步：首先讓我們打開一個(gè)工作樣表作為例子（如下圖）：

MsgBox(prompt[, buttons] [, title] [, helpfile, context])MsgBox 函數(shù)的語(yǔ)法具有以下幾個(gè)命名參數(shù)： Prompt-------必需的。字符串表達(dá)式，作為顯示在對(duì)話框中的消息。prompt 的最大長(zhǎng)度大約為 1024 個(gè)字符，由所用字符的寬度決定。 如果 prom

第二步：按下alt+f11進(jìn)入vba編輯模式， 并插入一個(gè)新模塊命名為msg。并在模塊內(nèi)定義 a=msgbox()， 按下 F5運(yùn)行后， 會(huì)彈出一個(gè)空白的對(duì)話框（如下圖）：

如果只作消息框使用，就在函數(shù)后面空格后接一個(gè)字符串即可，如： msgbox "計(jì)算結(jié)束??！" 如果要作選擇對(duì)話框使用，則要使用不同的參數(shù)，生成不同的按鈕。比如： If MsgBox("此操作要花費(fèi)很長(zhǎng)時(shí)間，是否繼續(xù)？", vbYesNo) = vbYes Then '此處是運(yùn)

第三步：msgbox的參數(shù)與inputbox的參數(shù)類似 ，這里需要提出來(lái)的是： Value=MsgBox(prompt[，buttons][，title][ ，helpfile，context]) ，這里面buttons參數(shù)為數(shù)組組合，并且有規(guī)定的常量或數(shù)值，大家需要熟記一下。當(dāng)然也可以借助vba的自動(dòng)提示功能來(lái)輔助記憶。（如下圖）：

MsgBox(prompt[, buttons] [, title] [, helpfile, context])MsgBox 函數(shù)的語(yǔ)法具有以下幾個(gè)命名參數(shù)： Prompt-------必需的。字符串表達(dá)式，作為顯示在對(duì)話框中的消息。prompt 的最大長(zhǎng)度大約為 1024 個(gè)字符，由所用字符的寬度決定。 如果 prom

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

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

第五步：雙擊thisworkbook后在右側(cè)對(duì)象選項(xiàng)和動(dòng)作選項(xiàng)中分別選擇workbook和beforeclose來(lái)創(chuàng)建一個(gè)模塊（如下圖）：

要在VBA中使用工作表中使用的函數(shù)的話，要在函數(shù)前面加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變量為一個(gè)整數(shù)值，當(dāng)變量RETURN不為yes時(shí)，則所有操作取值取消（如下圖）：

按鈕執(zhí)行效果相當(dāng)于F9吧（計(jì)算所有工作表），那么下面的一個(gè)語(yǔ)句即可： Calculate

第六步：輸入完成好，我們切換回excel工作表，點(diǎn)擊右上角x關(guān)閉工作表，會(huì)彈出提示。至此本次操作正確。以上就是VBA編程中MsgBox函數(shù)的使用過程（如下圖）：

按鈕執(zhí)行效果相當(dāng)于F9吧（計(jì)算所有工作表），那么下面的一個(gè)語(yǔ)句即可： Calculate

擴(kuò)展閱讀，以下內(nèi)容您可能還感興趣。

EXCEL VBA 函數(shù)Msgbox應(yīng)用

按鈕執(zhí)行效果相當(dāng)于F9吧（計(jì)算所有工作表），那么下面的一個(gè)語(yǔ)句即可：

Calculate

vba編程中msgbox函數(shù)在調(diào)試的時(shí)候能觸發(fā),但是回到excel界面就不能觸發(fā)了

這個(gè)是宏表函數(shù)，你沒有指定運(yùn)行條件。

寫到

即可

Private Sub Workbook_Open()

If Cells(1, 1).Value <> "" Then

Call MsgBox("你好大帥哥，請(qǐng)選擇時(shí)間。", vbOKOnly)

Range("BC1").Select

End If

End Sub

VBA MSGBOX函數(shù)怎么了？

沒問題,但可以這么寫：

Sub test()

MsgBox "確定？"

Range("A2:B14").Clear

End Sub

2. 如圖所示：

VBA編程:計(jì)算所選工作表區(qū)域中單元格的最小值,用MsgBox函數(shù)輸出結(jié)果

MsgBox Application.WorksheetFunction.Min(Selection)

VBA中使用MSGBOX函數(shù)時(shí)彈出的對(duì)話框中怎樣顯示小數(shù)點(diǎn)前面的零？

arr = Range("a1") - Range("a2")

MsgBox (Format(arr, "0.00"))

聲明：本網(wǎng)頁(yè)內(nèi)容旨在傳播知識(shí)，若有侵權(quán)等問題請(qǐng)及時(shí)與本網(wǎng)聯(lián)系，我們將在第一時(shí)間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com