Excel VBA编程  典型实例——使用提示对话框
在工作表中，执行某些操作后，系统会返回一个状态，如要查看执行的结果是否正确，可通过在VBE中编写代码来控制当前的操作执行状态，并返回其执行结果。本例利用提示对话框，提示保存“出差开支明细表”结果状态。
（1）在A1至E9单元格区域中，输入相应的字段信息，并设置单元格的格式，如图6-11所示。
图6-11  创建表单
（2）在工作表中，绘制【按钮】控件。完成后，弹出【指定宏】对话框，在该对话框【宏名】文本框中输入saveTable文字，并单击【新建】按钮。
（3）在弹出的VBE窗口中的模块1的【代码】编辑窗口的过程saveTable中，输入代码，如图6-12所示。
图6-12  输入代码
代码如下：
Sub saveTable()
'保存
    '遍历工作簿
For Each w In Application.Workbooks
        w.Save        '保存当前的工作簿
Next w
'提示用户
MsgBox "保存成功！", vbOKOnly + vbInformation + vbDefaultButton1, "保存"
End Sub
弹出窗口代码编写（4）在Excel工作簿中，设置按钮的标题为“保存”。
（5）在【出差开支明细表】工作表中输入数据后，单击【确定】按钮，如图6-13所示。
图6-13  保存表单