卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

使用Excel的MsgBox函數(shù)來避免誤操作關(guān)閉程序

示例工作樣表首先,讓我們打開一個工作樣表作為例子。進入VBA編輯模式按下ALT F11進入VBA編輯模式,并插入一個新模塊命名為msg。在模塊內(nèi)定義a MsgBox(),然后按下F5運行后,會彈出一

示例工作樣表

首先,讓我們打開一個工作樣表作為例子。

進入VBA編輯模式

按下ALT F11進入VBA編輯模式,并插入一個新模塊命名為msg。在模塊內(nèi)定義a MsgBox(),然后按下F5運行后,會彈出一個空白的對話框。

MsgBox函數(shù)的參數(shù)

MsgBox的參數(shù)與InputBox的參數(shù)類似,需要注意的是Value MsgBox(prompt[, buttons][, title][ ,helpfile,context])。這里面的buttons參數(shù)為數(shù)組組合,并且有規(guī)定的常量或數(shù)值,需要熟記一下。當(dāng)然也可以借助VBA的自動提示功能來輔助記憶。

防止Excel工作表被誤關(guān)閉

為了防止Excel工作表被誤關(guān)閉,我們需要進行以下步驟:

1. 首先,在左側(cè)的工程編輯欄中選擇“通用表格”。

2. 雙擊“ThisWorkbook”,然后在右側(cè)的對象選項和動作選項中分別選擇“Workbook”和“BeforeClose”來創(chuàng)建一個模塊。

3. 輸入以下代碼:

```

Dim intReturn As Integer

intReturn MsgBox("退出程序嗎?", vbYesNo vbQuestion, "提示")

If intReturn <> vbYes Then Cancel True

```

這段代碼定義了一個變量intReturn為一個雙字節(jié),當(dāng)變量intReturn不等于vbYes時,則取消關(guān)閉操作。

測試功能

輸入完成后,切換回Excel工作表,點擊右上角的X關(guān)閉工作表,會彈出提示。至此,本次操作正確。

以上就是使用Excel的MsgBox函數(shù)來避免誤操作關(guān)閉程序的方法。希望本文能夠幫助到大家,如果還有其他問題需要咨詢,可以聯(lián)系小編進行咨詢。祝大家生活愉快!

標簽: