excel利用msgbox函數(shù)來(lái)避免誤操作關(guān)閉程序

1、首先讓我們打開(kāi)一個(gè)工作樣表作為例子。

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

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

4、為了防止excel工作表被誤關(guān)閉，我們需要這樣做。首先在左側(cè)工程編輯欄中選擇通用表格。

5、雙擊thisworkbook后在右側(cè)對(duì)象選項(xiàng)和動(dòng)作選項(xiàng)中分別選擇workbook和beforeclose來(lái)創(chuàng)建一個(gè)模塊。

6、輸入以下代碼

Dim intreturn As Integer

    intReturn = MsgBox("退出程序嗎？", vbYesNo + vbQuestion, "提示")

    If intReturn <> vbYes Then Cancel = True

這里解釋一下定義return變量為一個(gè)整數(shù)值，當(dāng)變量RETURN不為yes時(shí)，則所有操作取值取消。

7、輸入完成好，我們切換回excel工作表，點(diǎn)擊右上角x關(guān)閉工作表，會(huì)彈出提示。至此本次操作正確。

相關(guān)推薦：

excel怎么使用if多重函數(shù)制作員工年假表?

excel怎么計(jì)算數(shù)據(jù)方差? excel方差函數(shù)的使用方法

excel怎么提取漢字和英文?excel不使用函數(shù)提取的方法