第7章--使用对话框代码【超实用VBA】(共5页).doc

精选优质文档-倾情为你奉上第7章 使用对话框范例113 使用Msgbox函数显示消息框Sub Mymsg() Dim Mymsg As Integer Mymsg = MsgBox(文件即将关闭,是否保存所作的修改?, vbYesNoCancel + vbQuestion) Select Case Mymsg Case vbYes ThisWorkbook.Save Case vbNo ThisWorkbook.Saved = True Case vbCancel Exit Sub End Select ThisWorkbook.CloseEnd Sub范例114 自动关闭的消息框114-1 使用WshShell.Popup方法显示消息框Sub AutoClose() Dim MyShell As Object Set MyShell =