ExcelVBA常用技巧使用对话框.doc

VBA 常用技巧目录第6章使用对话框2技巧1使用Msgbox函数2技巧2自动关闭的消息框9技巧3使用InputBox函数11技巧4使用InputBox方法15技巧5内置对话框18技巧6调用操作系统“关于”对话框25第6章 使用对话框技巧1 使用Msgbox函数1-1 显示简单的提示信息在使用Excel的过程中，如果需要向用户显示简单的提示信息，可以使用MsgBox函数显示一个消息框，如下面的代码所示。#001 Sub mymsgbox()#002 MsgBox 欢迎光临Excel Home!#003 End Sub代码解析：Mymsgbox过程使用MsgBox函数显示一个消息框。MsgBox函数用于显示提示信息，语法如下：MsgBox(prompt, buttons , title , helpfile, context)参数prompt是必需的，代表在消息框中作为信息显示的字符或字符串，最多只能接受约1024个字符，取决于所使用字符的宽度。参数buttons是可选的，用于指定消息框中显示按钮的数目及类型、使用的图标样式、缺省按钮以及消息框的强制回应等。如果省略，则buttons参数的缺省值为0，消息框只显示“确定”按钮。参数title是可选的，代表在消息框标题栏中作为标题的字符或字符串。如果省略，则在标题栏中显示“Microsoft Excel”。参数helpfile和参数context是可选的，用来为消息框提供上下文相关帮助的帮助文件和帮助主题。如果提供了其中一个参数，则必须提供另一个参数，两者缺一不可。运行Mymsgbox过程，显示如图 731所示的消息框。图 11简单的信息提示1-2 定制个性化的消息框如果希望MsgBox函数显示的消息框具有特定的按钮、图标和标题栏，那么可以使用MsgBox函数的buttons参数和title参数，如下面的代码所示。#001 Sub Specialmsbox()#002 MsgBox Prompt:=欢迎光临 Excel Home!, _#003 Buttons:=vbOKCancel + vbInformation, _#004 Title:=Excel Home#005 End Sub代码解析：Specialmsbox过程使用MsgBox函数显示一个具有特定的按钮、图标和标题栏的消息框。第3行代码设置消息框的Buttons参数，使消息框显示时具有“确定”、“取消”按钮和信息消息图标。MsgBox函数的buttons参数设置值如表格 731所示。参数组常数值描述第一组设置消息框按钮数目和类型vbOKOnly0只显示“确定”按钮（默认设置）VbOKCancel1显示“确定”和“取消”按钮VbAbortRetryIgnore2显示“放弃”、“重试”、和“忽略”按钮VbYesNoCancel3显示“是”、“否”和“取消”按钮VbYesNo4显示“是”和“否”按钮VbRetryCancel5显示“重试”和“取消”按钮第二组设置图标的风格VbCritical16显示危险消息图标VbQuestion32显示警告询问图标VbExclamation48显示警告消息图标VbInformation64显示信息消息图标第三组设置默认按钮vbDefaultButton10第一个按钮为默认按钮vbDefaultButton2256第二个按钮为默认按钮vbDefaultButton3512第三个按钮为默认按钮vbDefaultButton4768第四个按钮为默认按钮第四组设置消息框特征vbApplicationModal0应用程序模式：用户必须对消息框作出响应才能继续使用当前的应用程序vbSystemModal4096系统模式：应用程序都被挂起直至用户对消息框作出响应第五组附加选项vbMsgBoxHelpButton16384在消息框上添加“帮助”按钮VbMsgBoxSetForeground65536将消息框设置为前景窗口vbMsgBoxRight524288显示右对齐的消息框vbMsgBoxRtlReading1048576指定在希伯来和阿拉伯语系统中显示的文本应当从右到左阅读表格 11MsgBox函数的buttons参数值在设定buttons参数值时，这些值可以相加使用，但每一组中只能选择一个值。在程序代码中也可以使用buttons参数的常数名称，而不必使用实际数值。第4行代码将消息框的Title参数设置为“Excel Home”，使消息框的标题栏显示“Excel Home”。运行Specialmsbox过程后，显示一个如图 732所示的消息框，该消息框具有“Excel Home”标题、信息消息图标和“确定”、“取消”按钮并以“确定”按钮作为默认按钮。 图 12具有特定按钮、图标和标题栏的消息框1-3 获得消息框的返回值如果希望能根据用户对于消息框的不同选择，进行相应的操作，可以对消息框的返回值进行判断，如下面的代码所示。#001 Private Sub Workbook_BeforeClose(Cancel As Boolean)#002 Dim iMsg As Integer#003 iMsg = MsgBox(文件即将关闭,是否保存?, 3 + 32)#004 Select Case iMsg#005 Case 6#006 Me.Save#007 Case 7#008 Me.Saved = True#009 Case 2#010 Cancel = True#011 End Select#012 End Sub代码解析：工作簿的BeforeClose过程，在关闭工作簿前使用MsgBox函数显示一个消息框，并根据用户的回应用进行相应的操作。第3行代码，使用MsgBox函数显示一个具有“是”、“否”和“否”按钮的消息框，并把用户的回应，即消息框的返回值赋给变量iMsg。MsgBox是一个函数，这意味着它将返回一个值，如果希望获得返回值，可使用和第3行相似的代码，此时如果不使用括号将参数封闭起来，则会提示编译错误，如图 733所示。图 13提示编译错误第4行到第11行代码，Select Case结构语句，根据变量iMsg的值判断用户的回应，如果变量iMsg的值为6，说明用户选择了“是”按钮，则使用Save方法保存工作簿；如果变量iMsg的值为7，说明用户选择了“否”按钮，则将工作簿的Saved属性设置为True，不保存更改而直接关闭工作簿。关于Save方法和Saved属性请参阅技巧Error! Reference source not found.。如果变量iMsg的值为2，说明用户选择了“取消”按钮，是将BeforeClose过程的Cancel 参数设置为True，取消关闭工作簿操作。MsgBox函数的返回值如表格 732所示，在程序代码中也可以使用常数名称，而不必使用实际数值。常数值描述vbOK1确定vbCancel2取消vbAbort3放弃vbRetry4重试vbIgnore5忽略vbYes6是vbNo7否表格 12MsgBox函数的返回值在关闭本工作簿时将显示一个如图 734所示的消息框，询问用户是否保存，并根据用户的回应用进行相应的操作。图 14询问消息框1-4 在消息框中排版如果在消息框中显示的字符串很长，比如是一段多行的文字内容，为了达到美观的效果，需要首字缩进，并将各行分隔开来，如下面代码所示。#001 Sub Newlinemsbox()#002 MsgBox Space(4) & 欢迎来到 ExcelHome 技术论坛，全球最领先的 Excel 技术论坛之一。 & Chr(10) _#003 & Space(4) & 在这里，我们讨论 Microsoft Office 系列产品的应用技术，重点讨论 & Chr(10) _#004 & Microsoft Excel。 & Chr(10) _#005 & Space(4) & 本论坛从属于 Excel Home 这一全球最大的华语 Excel 技术门户，目前 & Chr(10) _#006 & 是个人、非营利性质的网站学习平台。 & Chr(10) _#007 & Space(4) & Lets do it better! 这是 Excel Home 的口号，我们的宗旨是帮助大 & Chr(10) _#008 & 家解决在使用Office软件中的问题，提升自己的应用技能。#009 End Sub代码解析：Newlinemsbox过程使用消息框显示一段经过排版后的文本内容。代码中使用Space 函数在每段的首字前插入4个空格，使首字缩进，在需要换行的地方插入换行符 （Chr(10)） 将各行分隔开来。也可以使用回车符 （Chr(13)）、或是回车与换行符的组合 （Chr(13) & Chr（10)）换行。在程序代码中也可以使用vbCrLf、vbNewLine等常数，而不必使用Chr 函数，如表格 733所示。常数等于描述vbCrLfChr(13) + Chr(10)回车符与换行符结合vbCrChr(13)回车符vbLfChr(10)换行符vbNewLineChr(13) + Chr(10) or, on the Macintosh, Chr(13)平台指定的新行字符表格 13回车符与换行符运行Newlinemsbox过程, 用消息框显示一段经过排版后的文本内容,效果如图 735所示。图 15在消息框中排版1-5 对齐消息框中显示的信息在用消息框显示如图 736所示的工作表中多行多列的单元格区域时，如果只用换行符（Chr(10)）等进行换行，而数据列没有对齐，会使显示的信息显得杂乱无章，缺乏可读性，如图 737所示。图 16工作表单元格区域图 17没有对列进行分隔的消息框为了达到消息框中显示信息各列对齐的效果，在使用换行符（Chr(10)）等进行换行的基础上，还需要使用制表符（Chr(9)）或常数vbTab，对数据列进行分隔，使之排列整齐，如下面代码所示。#001 Sub Outmsbox()#002 Dim sMsg As String#003 Dim iRow As Integer#004 Dim iCom As Integer#005 For iRow = 1 To 11#006 For iCom = 1 To 5#007 sMsg = sMsg & Cells(iRow, iCom) & Chr(9)#008 Next#009 sMsg = sMsg & Chr(10)#010 Next#011 MsgBox sMsg#012 End Sub代码解析：Outmsbox过程使用两层循环读取当前工作表中A1到E11单元格的内容，并用消息框显示出来。第7行代码，iCom循环中在把逐列读取的单元格内容赋给变量myMsg时插入一个制表符（Chr(9)），对列进行分隔。第9行代码，iRow循环中在读取下一行单元格内容赋给变量myMsg时插入一个换行符（Chr(10)），对行进行换行。运行Outmsbox过程将用消息框显示当前工作表中A1至E11单元格区域中的内容，并排列整齐，如图 738所示。图 18分列显示数据的消息框技巧2 自动关闭的消息框在程序执行完毕后给用户一个提示信息，但用MsgBox函数显示的消息框将一直保持，需要用户单击“确定”或“关闭”按钮才会关闭。如果希望显示的消息框自动关闭，那么可以使用以下方法显示消息框。2-1 使用WshShell.Popup方法显示消息框#001 Sub WshShell()#002 Dim WshShell As Object#003 Set WshShell = CreateObject(Wscript.Shell)#004 WshShell.popup 执行完毕!, 2, 提示, 64#005 Set WshShell = Nothing#006 End Sub代码解析：WshShell过程使用WshShell.Popup方法显示消息框，2秒后自动关闭。WshShell.Popup方法的语法如下：WshShell.Popup(strText, natSecondsToWait, strTitle, natType) = intButton参数strText是必需的，与Msgbox的Prompt参数类似，代表在消息框中作为信息显示的字符或字符串。如果显示的内容超过一行，可以在每一行之间用换行符 （Chr(10)）等将各行分隔开来。参数natSecondsToWait是可选的，其时间单位为妙。如果提供natSecondsToWait参数且其值大于零，则消息框在natSecondsToWait 参数指定的秒数后关闭。参数strTitle是可选的，代表在消息框标题栏中作为标题的字符或字符串，若省略，则窗口标题为“Windows 脚本宿主”。参数natType是可选的，指定消息框中显示按钮的数目及类型、使用的图标样式、缺省按钮以及消息框的强制回应等，与MsgBox函数buttons参数相同，请参阅技巧1-2中的表格 11。参数intButton指示用户所单击的按扭编号，与MsgBox函数的返回值相同，请参阅技巧1-3中的表格 12。若用户在natSecondsToWait 秒之前不单击按扭，则返回值为 -1 。运行WshShell过程显示一个如图 741所示消息框，无需点击“确定”按纽，2秒后自动关闭。图 21自动关闭的消息框2-2 使用API函数显示消息框使用API函数也可以达到这一效果，如下面的代码所示。#001 Public Declare Function SetTimer Lib user32 ( _#002 ByVal hWnd As Long, _#003 ByVal nIDEvent As Long, _#004 ByVal uElaspe As Long, _#005 ByVal lpTimerFunc As Long) As Long#006 Public Declare Function KillTimer Lib user32 ( _#007 ByVal hWnd As Long, _#008 ByVal nIDEvent As Long) As Long#009 Dim TID As Long#010 Sub Test()#011 TID = SetTimer(0, 0, 2000, AddressOf CloseTest)#012 MsgBox 执行完毕!#013 End Sub#014 Sub CloseTest(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idevent As Long, _#015 ByVal Systime As Long)#016 Application.SendKeys , True#017 KillTimer 0, TID#018 End Sub代码解析：第1行代码到第9行代码是API函数声明。Test过程显示一个消息框并在3秒钟后运行CloseTest过程。CloseTest过程发送一个确定键给Excel程序关闭显示的消息框。运行Test过程显示一个如图 742所示的消息框并在2秒钟后关闭。图 22自动关闭的消息框技巧3 使用InputBox函数3-1 简单的数据输入Excel的使用过程中，有时需要用户输入简单的数据，此时可以使用InputBox函数显示一个对话框，供用户在对话框中输入数据信息，如下面的代码所示。#001 Sub myInputBox()#002 Dim sInt As String#003 Dim r As Integer#004 r = Sheet1.Range(A65536).End(xlUp).Row#005 sInt = InputBox(请输入人员姓名：)#006 If Len(Trim(sInt) 0 Then#007 Sheet1.Cells(r + 1, 1) = sInt#008 Else#009 MsgBox 您没有输入内容!#010 End If#011 End Sub代码解析：myInputBox过程使用InputBox函数显示一个对话框供用户在对话框中输入数据，InputBox函数显示一个对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串，语法如下：InputBox(prompt, title , default , xpos , ypos , helpfile, context)参数prompt是必需的，作为对话框消息出现的字符串表达式。参数title是可选的，作为显示在对话框标题栏中的字符串表达式，如果省略title参数，则在标题栏中显示“Microsoft Excel”。参数default是可选的，显示在文本框中的字符串表达式，在没有其它输入时作为缺省值，如果省略default参数，则文本框为空。参数xpos是可选的，指定对话框的左边与屏幕左边的水平距离。如果省略xpos参数，则对话框会在水平方向居中。参数ypos是可选的，指定对话框的上边与屏幕上边的距离。如果省略ypos参数，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。参数helpfile和参数context是可选的，为对话框提供上下文相关的帮助和编号，如果提供了其中一个参数，则必须提供另一个参数，两者缺一不可。第5行代码，使用InputBox函数显示一个提示用户输入邮政编码的对话框，其中“请输入人员姓名：”是必需的prompt参数，其他参数使用缺省值。第4行代码，使用Len函数和Trim函数判断返回的去除空格后的字符串长度。如果字符串长度大于零，说明用户单击了对话框的“确定”按钮，则将用户输入的数据写到工作表的A列单元格。如果返回的是长度为零的字符串，说明用户单击了对话框的“取消”按钮，则显示一条提示消息。因为当用户单击对话框的“确定”按钮后，InputBox函数返回包含文本框内容的字符串，如果用户单击对话框的“取消”按钮则返回一个长度为零的字符串（），通过返回的字符串长度可以判断用户做出的选择。运行sInput过程将显示一个提示用户输入数据的对话框，如图 751所示。图 31InputBox函数显示的对话框3-2 使用对话框输入密码使用InputBox函数显示的对话框输入密码简单方便，但有个明显的缺陷，就是输入过程中不能用占位符显示密码，不够安全。借助API函数可以在输入密码过程中以占位符“*”号来显示密码，如下面的代码所示。#001 Public Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long#002 Public Declare Function FindWindowEx Lib user32 Alias FindWindowExA (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long#003 Public Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long#004 Public Declare Function timeSetEvent Lib winmm.dll (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Long#005 Public Declare Function timeKillEvent Lib winmm.dll (ByVal uID As Long) As Long#006 Public Declare Function GetTickCount Lib kernel32 () As Long#007 Public Const EM_SETPASSWORDCHAR = &HCC#008 Public lTimeID As Long#009 Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, ByVal dw1 As Long, ByVal dw2 As Long)#010 Dim hwd As Long#011 hwd = FindWindow(#32770, 密码)#012 If hwd 0 Then#013 hwd = FindWindowEx(hwd, 0, edit, vbNullString)#014 SendMessage hwd, EM_SETPASSWORDCHAR, 42, 0#015 timeKillEvent lTimeID#016 End If#017 End Sub#018 Sub Password()#019 Dim Password As Variant#020 lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)#021 Password = InputBox(请输入密码：, 密码)#022 If Password = 123456 Then#023 MsgBox 密码正确!#024 Else#025 MsgBox 密码错误!#026 End If#027 End Sub代码解析：Password过程使用InputBox函数显示一个输入密码的对话框，并且以占位符“*”号显示输入的密码。第1行到第8行代码，API函数声明。第9行到第17行代码，TimeProc过程是timeSetEvent的回调函数，获得对话框句柄。第18行到第27行代码，Password过程显示一个提示用户输入密码的对话框。运行Password过程将显示一个密码输入框，输入的密码以占位符“*”号代替，如图 752所示。图 32密码输入框技巧4 使用InputBox方法在Excel中输入简单的数据可以使用InputBox函数显示的对话框，但是如果输入的数据类型不匹配时，过程运行时会产生意外错误。为了避免此类情况发生，可以使用另一种获得用户输入的方式InputBox方法。4-1 输入指定类型的数据使用InputBox方法输入数据时可以指定数据的类型，如下面的代码所示。#001 Sub dInput()#002 Dim dInput As Double#003 Dim r As Integer#004 r = Sheet1.Range(A65536).End(xlUp).Row#005 dInput = Application.InputBox(Prompt:=请输入数字：, Type:=1)#006 If dInput False Then#007 Sheet1.Cells(r + 1, 1).Value = dInput#008 Else#009 MsgBox 你已取消了输入!#010 End If#011 End Sub代码解析：dInput过程使用InputBox方法显示一个提示用户输入数字的对话框。InputBox方法显示一个接收用户输入的对话框，返回此对话框中输入的信息，语法如下：expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)参数expression是必需的，返回一个Application对象。参数Prompt是必需的，作为对话框消息显示的字符串表达式。参数Title是可选的，作为显示在对话框标题栏中的字符串表达式。如果省略Title参数，将使用默认的标题。参数Default是可选的，在对话框显示时出现在文本框中的初始值。如果省略Default参数，则文本框为空。参数Left是可选的，指定对话框相对于屏幕左上角的 x 坐标。参数Top是可选的，指定对话框相对于屏幕左上角的 y 坐标。参数HelpFile和参数HelpContextId是可选的，为对话框提供上下文相关的帮助和编号，如果提供了其中一个参数，则必须提供另一个参数，两者缺一不可。参数Type是可选的，指定返回的数据类型。如果省略Type参数，对话框将返回文本。InputBox方法的语法和InputBox函数的语法相似，最大的区别在于最后一个参数Type。通过Type参数可以指定返回值的数据类型，表格 761列出了Type参数可以使用的数值。数值期望的返回值0一个公式1一个数字2文本（字符串）4一个逻辑值，例如true或false8一个单元格引用16一个错误值64一个值的数组表格 41Type参数的值这些数值可以相加使用，如果希望返回数字和文本，可以将Type参数设置为1+2。InputBox方法与InputBox函数相比，优点是内置的出错处理。在第5行代码中将Type参数值设置为1，这意味着对话框只能输入数值。当用户输入的不是数值时，显示一个如图 761所示的消息框提示输入错误。图 41提示输入错误第6行到第10行代码，如果用户单击对话框的“确定”按钮，将用户输入的数字写入工作表的A列单元格。如果用户单击对话框的“取消”按钮，则显示一条提示消息。InputBox方法和InputBox函数的另一个区别是，当用户单击“取消”按纽时返回False而不是长度为零的字符串。运行dInput过程将显示一个提示用户输入数字的对话框，如图 762所示。图 42InputBox方法显示的对话框注意 在VBA代码中，Application.InputBox 调用的是InputBox方法，不带对象识别符的InputBox调用的是InputBox 函数。4-2 获得单元格区域地址InputBox方法很适合用户选择工作表单元格区域，并对所选择的单元格区域进行操作，如下面的代码所示。#001 Sub RngInput()#002 Dim rng As Range#003 On Error GoTo line#004 Set rng = Application.InputBox(请使用鼠标选择单元格区域：, , , , , , , 8)#005 rng.Interior.ColorIndex = 15#006 line:#007 End Sub代码解析：RngInput过程使用InputBox方法显示一个对话框，提示用户在工作表中选择一个单元格区域，并改变所选单元格区域内部的颜色。第3行代码，错误处理语句。因为当对话框显示后，如果用户单击“取消”按钮，将显示一错误信息，如图 763所示，所以必需使用On Error GoTo语句来绕过错误。图 43提示运行错误第4行代码，使用Set语句将用户选择的单元格区域赋给变量rng。当Type参数设置为8时，将返回一个Range对象，必须用Set 语句将结果指定给一个Range对象。第5行代码，改变用户所选单元格区域内部的颜色。运行RngInput过程，将显示一个对话框，提示用户在工作表中选择一个单元格区域，并改变所选单元格区域内部的颜色，如图 764所示。图 44使用InputBox方法获得区域地址技巧5 内置对话框5-1 调用内置的对话框如果需要使用“打开”、“打印”等Excel内置对话框已经具有的功能，可以使用代码直接调用这些内置的对话框，如下面的代码所示。#001 Sub DialogOpen()#002 Application.Dialogs(xlDialogOpen).Show arg1:=ThisWorkbook.Path & *.xls#003 End Sub代码解析：DialogOpen过程显示内置的“打开”对话框并选定示例所在的文件夹。显示内置对话框语法如下：Application.Dialogs(xlDialogConst).ShowDialogs集合代表所有的内置对话框，每个Dialog对象代表一个内置对话框，不能新建内置对话框或向该集合中添加内置对话框。参数xlDialogConst是内置对话框的内置常量，每个常量都以“xlDialog”开头，其后是对话框的名称，如“打开”对话框的常量为“xlDialogOpen”。常用内置对话框的内置常量如表格 771所示。常量值说明xlDialogActiveCellFont476单元格格式(字体）xlDialogBorder45单元格格式(边框）xlDialogCellProtection46单元格格式(保护）xlDialogDeleteFormat111单元格格式(数字）xlDialogFormatNumber42单元格格式(数字）xlDialogPatterns84单元格格式(图案）xlDialogClear52清除xlDialogColumnWidth47列宽xlDialogRowHeight127行高xlDialogConditionalFormatting583条件格式xlDialogDefineName61定义名称xlDialogDefineStyle229样式xlDialogDisplay27显示选项xlDialogFont26字体xlDialogSetBackgroundPicture509工作表背景xlDialogInsert55插入xlDialogInsertHyperlink596插入超链接xlDialogInsertPicture342插入图片xlDialogNew119新建工作簿xlDialogOpen1打开xlDialogSaveAs5另存为xlDialogWorkbookCopy283移动或复制工作表（建立副本）xlDialogWorkbookInsert354插入工作表xlDialogWorkbookMove282移动或复制工作表xlDialogWorkbookName386重命名工作表xlDialogWorkbookNew302新建工作表xlDialogWorkbookProtect417保护工作簿xlDialogPageSetup7页面设置xlDialogPrint8打印内容xlDialogPrinterSetup9打印机设置xlDialogPrintPreview222打印预览xlDialogSetPrintTitles23设置打印标题xlDialogRun17宏xlDialogTable41模拟运算表xlDialogSendMail189发送邮件表格 51内置对话框的内置常量显示内置对话框使用Show方法，应用于Dialog对象的Show方法语法如下：expression.Show(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg