整理使用MsgBox函数.docx

1、整理使用MsgBox函数使用MsgBox 函数你目前使用的MsgBox函数局限于给用户用一个简单的，一个按钮的对话框显示信息。你点击确定按钮或者回车来关闭该信息框。要创建一个简单的信息框，只要在MsgBox函数名称后面带上一个用引号包括起来的文本就可以了。换句话说，要显示信息“过程已完成”，你应该准备下列语句：MsgBox 过程已完成 （注意，英文状态的引号）你可以将它输入立即窗口，快速地测试上面的指令，当你输入完这条指令并且回车后， VB就显示如，图45的信息框。图45 将文本作为MsgBox函数的参数，来给用户显示信息MsgBox函数允许你使用其它参数，使你可能决定可用的按钮数目，或者将默

2、认的信息框的标题（Microsoft Excel）改为你自己的标题。也可以设置你自己的帮助主题。MsgBox的语法如下：MsgBox (prompt , buttons , title, , helpfile, context)，注意，MsgBox函数有五个参数，只有第一个，Prompt（提示），是必须的；这些列在方括号里面的参数都是可选的。当你在提示参数输入一个非常长的文本时，VB决定如何断句，使文本适合信息框大小。我们在立即窗口里来做些练习，看不同的文本格式技巧：1. 在立即窗口输入以下指令，确保在一行里输入整个文本，回车MsgBox All done. Now open Chap04.x

3、ls and place an empty disk in the diskette drive.The following procedure will copy this file to the disk.一旦回车，VB显示信息框，如图46图46 如果你设置一下文本格式，长信息看上去将会更吸引人如果你遇到编译错误，可以点击确定，然后确定文件名用双引号括起来“Chap04.xls”。当你的信息文本特别长时，你可以使用VBA函数Chr将它分割为好几行。Chr函数需要你跟参数，这个参数是0到255之间的数字，它返回这个数字代表的字符。例如Chr(13)返回的是回车（这和按下回车键相同），以及Ch

4、r(10)返回换行字符（这在文本行之间添加空行很有用）。2. 将上面的指令修改为下述方式：MsgBox All done. & Chr(13) & Now open Chap04.xls and place & Chr(13) & an emptydisk in the diskette drive. & Chr(13) & The following procedure will copy this file to the disk.图47 通过使用Chr(13)可以将长文本分割成几行你必须将每段文本片断用引号括起来，内嵌在括号里面的文本（显示状态）需要再用一对括号来括起来，例如“Chap0

5、4.xls”。Chr(13)函数指明你希望开始新的一行的地方。字符串的连接字符（&）用来返回连接字符串的字符。在一行输入及其长的文本的时候，很容易失误。回想一下，VB有一个专门的线连续字符（下划线_）帮你将长VBA语句分割为几行，不幸的是，这个线连续符不能在立即窗口使用。3. 在工程MyFunctions (Chap04.xls)里添加一个新模块并命名为Sample64. 激活模块Sample6并且输入如下所示的子程序MyMessage，确保在每个线连续符前面加个空格：Sub MyMessage()MsgBox All done. & Chr(13) _91& Now open Chap04.

6、xls and place & Chr(13) _& an empty disk in the diskette drive. & Chr(13) _& The following procedure will copy this file to the disk.End Sub你运行过程MyMessage时，VB显示如图47一样的信息。正如你看到的，在几行输入的文本更具可读性，而且代码更容易维护。你可以在文本行之间添加一下空白行，来增加信息的可读性。使用Chr(13)或two Chr(10)函数就可以做到，如下列步骤所述。5. 输入下面的MyMessage2过程：Sub MyMessage2

7、()MsgBox All done. & Chr(10) & Chr(10) _& Now open Chap04.xls and place & Chr(13) _& an empty disk in the diskette drive. & Chr(13)& Chr(13) _& The following procedure will copy this file to the disk.End Sub图48显示了MyMessage2过程产生的信息框。图48 你可以通过在文本行之间添加空行增加信息的可读性既然你已经掌握了文本的格式技术，那么我们就来仔细地看看MsgBox函数的下一个参数

8、吧。尽管按钮参数时可选的，但是它的使用还是很频繁的。这个按钮参数明确多少个按钮，并且是什么样的按钮你想要出现了信息框上，这个参数可以是个常量（参见表41），也可以是个数字。如果你忽略这个参数，结果辛苦只会有一个“确定”按钮，正如你在前面的例子里看到的那样。表41 MsgBox按钮参数的设置常量按钮设置vbOKOnlyvbOKCancelvbAbortRetryIgnorevbYesNoCancelvbYesNovbRetryCancel图标设置vbCriticalvbQuestionvbExclamationvbInformation默认按钮设置vbDefaultButton1vbDefaul

9、tButton2vbDefaultButton3vbDefaultButton4信息框形式vbApplicationModal值0123451632486402565127680描述仅显示确定按钮，这是默认值显示确定和取消按钮显示终止，重试和忽略按钮显示是，否和取消按钮显示是和否按钮显示重试和取消按钮显示重要信息图标显示问号图标显示警告信息图标显示信息图标第一个按钮是缺省值第二个按钮是缺省值第三个按钮是缺省值第四个按钮是缺省值应用程序强制返回；应用程序一直被挂起，直到vbSystemModalMsgBox显示的其它设置vbMsgBoxHelpButtonvbMsgBoxSetForegroun

10、dvbMsgBoxRightvbMsgBoxRtlReading409616384655365242881048576用户对消息框作出响应才继续工作。系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。将Help按钮添加到消息框指定消息框窗口作为前景窗口文本为右对齐指定文本应为在希伯来和阿拉伯语系统中的从右到左显示你什么时候应该使用按钮参数呢？假设你要用户对一个问题回到“是”或“否”，你的信息框就需要两个按钮，当信息框有一个以上的按钮时，就需要将其中一个设置为缺省值，当用户回车的时候，这个默认的按钮就会自动地被选上。因为，你可以显示各种各样的信息（重要，警告，信息），所以，

11、你需要通过按钮参数设置图形代表（图标）来指明信息的重要性。除了信息类型之外，按钮参数还可以设置是否用户必须先关闭该信息框才能切换到另外的应用程序。很多情况下，用户需要在对信息框的问题做出反应之前，切换到另外的程序或者进行另外的操作。如果这个信息框是应用程序模式（vbApplication Modal）的话，用户必须先关闭该信息框后才能继续使用你的应用程序另一方面，如果你想要在用户对信息框响应之前，将所有应用程序挂起，那么你必须在按钮参数里加上系统强制返回设置（vbSystemModal）。按钮参数的设置分为五组：按钮设置，图标设置，默认按钮设置，信息框形式和其它的MsgBox显示设置（参见图4

12、1）。每组设置里面只能选一个加入按钮参数里面。你可以将每种需要的设置加和起来，来设置按钮参数，例如，要显示一个带两个按钮（“是”和“否”），问号图标以及将“否”按钮设置为缺省值的信息框，你可以在表41里查找相应的值并且加和起来，你应该得到292（4+32+256）。你可以在立即窗口里面输入下列代码，快速查看使用该计算的按钮参数的信息框：MsgBox Do you want to proceed?, 292下面显示的就是信息框结果。当你直接使用加和起来的值作为参数时，你的程序可读性就不高了，因为没有参考索引表格供你检查292背后的意思。要改善你信息框函数的可读性，最好使用常量，而不要使用它们的值

13、，例如，在立即窗口输入下列修改后的语句：MsgBox Do you want to proceed?, vbYesNo + vbQuestion + vbDefaultButton2上面的语句得到如图49所示的相同结果。图49 你可以使用可选的按钮参数来确定信息框上的按钮个数，下面的例子示范如何在VB过程里使用按钮参数：1. 在工程MyFunctions (Chap04.xls)里添加一新模块，并命名为Sample72. 激活Sample7模块，并且输入如下子程序MsgYesNo：Sub MsgYesNo()Dim question As StringDim myButtons As Inte

14、gerquestion = 是否要打开一个新工作簿?myButtons = vbYesNo + vbQuestion + vbDefaultButton2MsgBox question, myButtonsEnd Sub在上面的子程序里，变量question 储存了你的信息文本， 而按钮参数的设置则储存于变量myButtons。除了使用常量名称之外，你还可以使用它们的值，例如下面的：myButtons = 4 + 32 + 256，但是，明确了按钮常数的常量名称的话，你可以使你的程序对你自己以及将来可能要使用该程序的人来说更容易理解。变量question和myButtons用作MsgBox函数

15、的参数。运行该程序后，你将看到如图49所示的结果。注意，现在按钮“否”是被选中的，它是该对话框的默认按钮，如果你按下回车，Excel将该信息框从屏幕上移除，因为MsgBox函数后面没有任何指令，所以，不会发生其它操作。将默认按钮换成vbDefaultButton1设置，可以更改默认按钮。MsgBox函数的第三个参数是标题，虽然这也是个可选参数，但是它很方便，因为当你忽略它们（默认为Microsoft Excel）时，就不能给程序提供可视提示。你可以使用这个参数，将标题栏设置为你想要的任何文字。假设你要过程MsgYesNo显示标题为“新工作簿”，下面的过程MsgYesNo2示范如何使用标题参数：

16、Sub MsgYesNo2()Dim question As StringDim myButtons As IntegerDim myTitle As Stringquestion = Do you want to open a new workbook?myButtons = vbYesNo + vbQuestion + vbDefaultButton2myTitle = New workbookMsgBox question, myButtons, myTitleEnd Sub标题参数文本储存于变量myTitle。如果你没有明确标题参数的内容，VB将默认显示为“MicrosoftExcel

17、”。注意，参数是基于MsgBox函数决定的顺序列出的，如果你要按你自己的顺序列出这些参数的话，你就必须将参数名称一起写出，例如：MsgBox title:=myTitle, prompt:=question, buttons:=myButtons后面两个参数帮助文件（helpfile）和上下文（context）经常为那些对Windows环境下的帮助文件很熟悉的程序员使用。参数helpfile指明某个包含你要显示给用户的附加信息的具体帮助文件的名称，当你明确了这个参数后，Help按钮就会在信息框上显示出来。当你使用helpfile参数时，你同时也使用context参数。这个参数表明在帮助文件里你

18、要显示的那个帮助主题。假设Help.hlp是你创建的帮助文件，55是你要使用的帮助主题，你可以按照如下指令来显示这些信息于信息框上：MsgBox title:=mytitle, _prompt:=question _buttons:=mybuttons _helpFile:= HelpX.hlp, _context:=55上面只是一条VBA语句，使用连接符打断为好几行。12.MsgBox 函数的运行值当你显示只有一个按钮的信息框时，可以点击确定按钮或者回车键将信息框从屏幕上移除，然而，当信息框有两个或以上的按钮时，你的程序需要知道按的是哪个按钮。你可以将信息框结果储存在一个变量上来实现。表42

19、 显示了MsgBox函数返回值。表42 MsgBox函数返回值选择的按钮OK（确定）Cancel（取消）Abort（终止）Retry（重试）Ignore（忽略）Yes（是）No（否）常数VbOKvbCancelvbAbortvbRetryvbIgnorevbYesvbNo值1234567MsgYesNo3过程是MsgYesNo2过程修改后的版本，示范如何确定用户按下的是哪个按钮：Sub MsgYesNo3()Dim question As StringDim myButtons As IntegerDim myTitle As StringDim myChoice As Integerques

20、tion = Do you want to open a new workbook?myButtons = vbYesNo + vbQuestion + vbDefaultButton2myTitle = New workbookmyChoice = MsgBox(question, myButtons, myTitle)MsgBox myChoiceEnd Sub在上面的过程里，你将MsgBox函数的结果赋给变量myChoice。注意，现在，MsgBox函数的参数列在括号里面：myChoice = MsgBox(question, myButtons, myTitle)当你运行MsgYesN

21、o3时，出现带有两个按钮的信息框，当你点击“是”时，MsgBox myChoice将显示数字6；当点击“否”则得到数字7。你将在第五章里面学习如果让程序根据按钮的选择进行不同的任务。技巧411 MsgBox函数使用还是不使用括号？当你需要使用MsgBox函数返回的结果时，需要使用括号将该函数的参数包括起来。不使用括号，意味着你告诉VB你将忽略该函数的结果。当MsgBox函数包含两个或以上的按钮时，你很可能想要使用该函数的结果。13.使用InputBox 函数InputBox函数显示一个信息提示用户输入数据，这个对话框有两个按钮“确定”和“取消”，当你点击确定时，InputBox函数返回用户输入

22、在信息框里的信息；当你点击取消时，函数则返回空字符串（” ”）。InputBox函数的语法显示如下：InputBox(prompt , title , default , xpos , ypos _ , helpfile, context)第一个参数，prompt，是你想要显示在对话框上的信息，你可以使用函数Chr(13)或Chr(10)将长文本打断为几行（参见本章中使用MsgBox函数的例子）。剩下所有的参数都是可选的。第二个参数，title，让你改变对话框的默认标题，默认的标题是Mictosoft Excel。InputBox函数的第三个参数，default，让你在文本框里显示一个默认值，

23、如果你忽略这个参数的话，显示的将是空白编辑框。接下来的两个参数，xpos和ypos，允许你设置该对话框在屏幕上出现的位置，如果你忽略这两个参数，对话框就会出现了当前窗口的中央，xpos参数决定对话框在屏幕上从左起的水平位置，忽略它时，对话框显示在水平中央，而ypos参数决定对话框在屏幕从上而下的竖直位置，忽略它，对话框就在竖直大约三分之一的位置。xpos和ypos都使用一个叫twips的专门单位衡量，1twip大约等于0.0007英寸。最后两个参数，helpfile和context，和在本章前期讨论的MsgBox函数相应的参数使用方法一样。现在你知道了InputBox参数的意义了，我们来看看这

24、个函数的使用示例：1. 在MyFunctions (Chap04.xls)工程里添加一个新模块，重命名为Sample82. 激活Sample8模块，并且输入下列子程序：Sub Informant()InputBox prompt:=Enter your place of birth: & Chr(13) _& (e.g., Boston, Great Falls, etc.) End Sub上面的过程显示一个带两个按钮的对话框，输入提示显示在两行里。象MsgBox函数一样，如果你想要使用用户输入的数据，那么你应该使用一个变量来储存该对话框结果。下面显示的子程序Informant2将InputB

25、ox函数的结果赋值给变量town:图410 Informant子程序产生的对话框Sub Informant2()Dim myPrompt As StringDim town As StringConst myTitle = Enter datamyPrompt = Enter your place of birth: & Chr(13) _& (e.g., Boston, Great Falls, etc.)town = InputBox(myPrompt, myTitle)MsgBox You were born in & town & ., , Your responseEnd Sub注意

26、，这次，InputBox函数的参数列在了括号中间。如果你需要在稍后的程序中需要使用InputBox函数的结果，那么括号是必须的。Informant2子程序使用常数来确定显示在对话框标题上的文本。因为，这个值在过程执行过程中从始至终都是保持不变的，所以，可以将对话框的标题声明为一个常量，然而，如果你愿意，你也可以使用一变量。当你运行使用了InputBox的过程时，使用该函数的对话框总是出现在屏幕的同一位置，你可以按前面解释的那样，提供xpos和ypos参数来改变对话框的位置。3. 修改过程Informant2中的InputBox函数，让对话框显示在屏幕的左上角，例如：town = InputBo

27、x(myPrompt, myTitle, , 1, 200)注意，参数myTitle后面紧跟两个逗号，第二个逗号是忽略掉的默认值参数。下面两个参数决定对话框的水平和竖直位置。如果你忽略了参数myTitle后面的第二个逗号，VB将会使用数字1作为默认值。如果你使用了参数名称的话，（ 例如， prompt:=myPrompt, title:=myTitle,xpos:=1,ypos:=200)，你就不必记住在每个忽略了参数的地方加逗号了。如果你输入了一个数字，而不是一个城镇的名称，后果会怎样？因为，用户经常会在对话框里输入错误的数据，所以，你的程序必须验证用户输入的数据是否可以在将来的数据操作里使

28、用。InputBox函数本身并没有提供验证数据的工具，要验证用户的输入，你必须使用其它的VBA指令，这将在下章里讲述。14.数据类型转变InputBox函数的结果总是字符串，如果用户输入的是个数字，用户输入的字符串值必须转换成为数字值之后，才能用于你程序里的数学计算。VB转换数据类型轻而易举，不过，在早期的Excel版本里，这是不可能的。1. 激活模块Sample8，并输入以下过程AddTwoNums：Sub AddTwoNums()Dim myPrompt As StringDim value1 As StringConst myTitle = Enter dataDim mySum As

29、SinglemyPrompt = Enter a number:value1 = InputBox(myPrompt, myTitle, 0)mySum = value1 + 2MsgBox mySum & ( & value1 & + 2)End Sub96图411 要给用户提示数据的确切类型，你可以在编辑框里提供一个默认值上面的程序显示如图411所示的对话框。注意，这个对话框使用了两个专门的功能，InputBox函数的可选参数标题和默认值。该对话框显示了有常量myTitle确定的文本字符串作为标题，而不是默认的“Microsoft Excel”。在编辑框里面的0提示用户输入数字，而不能输入

30、文本。一旦用户输入了数据并点击确定时，用户的输入就被赋值给了变量value1value1 = InputBox(myPrompt, myTitle, 0)变量value1的数据类型是字符串，你可以在上面指令的下面加上如下语句，快速地查看它的数据类型：MsgBox varType(value1)当VB运行上面的代码时，将显示信息数字8，你可以在本章的图44里查看该数字代表字符串类型。技巧412 定义常量你可以将标题文本赋值到一个常量上，以确保某个VBA程序里所有的标题栏都显示相同的文本。依照这个技巧，你可以在多次输入某标题文本时节省时间。技巧413 避免类型不匹配错误如果你试图在Excel的早期

31、版本里（2000以前版本）运行AddTwoNums过程，当VB试图执行下列代码行时，你将得到类型不匹配的错误：mysum = value1 + 2使用内置函数CSng将储存于value1的字符串转换为一个单精度浮点类型的数字，可以避免类型不匹配错误，代码写成：mysum = CSng(value1) + 2下一行，mySum = value1 + 2，在用户输入的数据上加上2，并且将计算结果赋值给变量mySum。因为变量value1的数据类型时字符串，在使用它计算之前，VB在后台进行数据类型的转换，VB知道转换的需要。没有它，两种不兼容的数据类型（文本和数字）将会产生类型不匹配错误。程序最后是一个MsgBox函数，显示计算的结果已经给用户显示总数是如何组成的。15.使用InputBox 方法除了InputBox函数之外，还有InputBox方法，如果你激活对象浏览器，然后搜索“in