1、首先讓我們開啟一個工作樣表作為例子。
2、按下alt+f11進入vba編輯模式,並插入一個新模組命名為msg。並在模組內定義a=msgbox(),按下F5執行後,會彈出一個空白的對話方塊。
3、msgbox的引數與inputbox的引數類似,這裡需要提出來的是:Value=MsgBox(prompt[,buttons][,title][ ,helpfile,context]),這裡面buttons引數為陣列組合,並且有規定的常量或數值,大家需要熟記一下。當然也可以藉助vba的自動提示功能來輔助記憶。
4、為了防止excel工作表被誤關閉,我們需要這樣做。首先在左側工程編輯欄中選擇通用表格。
5、雙擊thisworkbook後在右側物件選項和動作選項中分別選擇workbook和beforeclose來建立一個模組。
6、輸入以下程式碼
Dim intreturn As Integer
intReturn = MsgBox("退出程式嗎?", vbYesNo + vbQuestion, "提示")
If intReturn <> vbYes Then Cancel = True
這裡解釋一下定義return變數為一個整數值,當變數RETURN不為yes時,則所有操作取值取消。
1、首先讓我們開啟一個工作樣表作為例子。
2、按下alt+f11進入vba編輯模式,並插入一個新模組命名為msg。並在模組內定義a=msgbox(),按下F5執行後,會彈出一個空白的對話方塊。
3、msgbox的引數與inputbox的引數類似,這裡需要提出來的是:Value=MsgBox(prompt[,buttons][,title][ ,helpfile,context]),這裡面buttons引數為陣列組合,並且有規定的常量或數值,大家需要熟記一下。當然也可以藉助vba的自動提示功能來輔助記憶。
4、為了防止excel工作表被誤關閉,我們需要這樣做。首先在左側工程編輯欄中選擇通用表格。
5、雙擊thisworkbook後在右側物件選項和動作選項中分別選擇workbook和beforeclose來建立一個模組。
6、輸入以下程式碼
Dim intreturn As Integer
intReturn = MsgBox("退出程式嗎?", vbYesNo + vbQuestion, "提示")
If intReturn <> vbYes Then Cancel = True
這裡解釋一下定義return變數為一個整數值,當變數RETURN不為yes時,則所有操作取值取消。