excel利用msgbox函式來避免誤操作關閉程式
工具/原料
excel2013
更多經驗請關注,如果幫到了你,請在上方給個投票謝謝支援。好人一生平安。
先頂後看年薪百萬,如果幫到了你,幫忙給個好評,這對小編很重要,萬分感謝。
方法/步驟
首先讓我們開啟一個工作樣表作為例子。
按下alt+f11進入vba編輯模式,並插入一個新模組命名為msg。並在模組內定義a=msgbox(),按下F5執行後,會彈出一個空白的對話方塊。
msgbox的引數與inputbox的引數類似,這裡需要提出來的是
Value=MsgBox(prompt[,buttons][,title][ ,helpfile,context])
這裡面buttons引數為陣列組合,並且有規定的常量或數值,大家需要熟記一下。
當然也可以藉助vba的自動提示功能來輔助記憶。
為了防止excel工作表被誤關閉,我們需要這樣做。首先在左側工程編輯欄中選擇通用表格。
雙擊thisworkbook後在右側物件選項和動作選項中分別選擇workbook和beforeclose來建立一個模組。
輸入以下程式碼
Dim intreturn As Integer
intReturn = MsgBox("退出程式嗎?", vbYesNo + vbQuestion, "提示")
If intReturn <> vbYes Then Cancel = True
這裡解釋一下定義return變數為一個整數值,當變數RETURN不為yes時,則所有操作取值取消。
輸入完成好,我們切換回excel工作表,點選右上角x關閉工作表,會彈出提示。至此本次操作正確。
注意事項
謝謝你的投票。