回覆列表
  • 1 # 使用者990540253822

    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時,則所有操作取值取消。

  • 中秋節和大豐收的關聯?
  • 衛生間地磚瓷磚釉破損,整體發黑,怎麼簡單修復不動用工程?