ExcelVBA之内置函数MsgBox介绍

VB有个VarType函数，它返回一个值变量类型的整数。图1-1例显示了函数VarType的语法和它返回的值。

                           图1-1 函数VarType函数

 

1.打开立即窗口

2.  输入下列给变量赋值的语句
age = 18
birthdate = #1/1/1981#
firstName = "John"
3.  现在询问VB每个变量的数据类型是什么：
?varType(age)
你按下回车时，VB返回2，如图1－1所示，数字2代表整数类型。
?varType(birthdate)
VB返回7代表日期。如果你在变量名称上犯了个小错误（比如说，你输入了birthday而不是birthdate），VB将返回0。
?varType(firstName)
VB告诉你变量firstName的数据是字符串（8）。

MsgBox函数允许你使用其它参数，使你可能决定可用的按钮数目，或者将默认的信息框的标题（Microsoft Excel）改为你自己的标题。也可以设置你自己的帮助主题。MsgBox的语法如下：

 

MsgBox (prompt [, buttons] [, title], [, helpfile, context])

注意，MsgBox函数有五个参数，只有第一个，Prompt（提示），是必须的；这些列在方括号里面的参数都是可选的。当你在提示参数输入一个非常长的文本时，VB决定如何断句，使文本适合信息框大小。我们在立即窗口里来做些练习，看不同的文本格式技巧：

当你的信息文本特别长时，你可以使用VBA函数Chr将它分割为好几行。Chr函数需要你跟参数，这个参数是0到255之间的数字，它返回这个数字代表的字符。例如Chr(13)返回的是回车（这和按下回车键相同），以及Chr(10)返回换行字符（这在文本行之间添加空行很有用）。

你必须将每段文本片断用引号括起来，内嵌在括号里面的文本（显示状态）需要再用一对括号来括起来，例如““Chap04.xls””。Chr(13)函数指明你希望开始新的一行的地方。字符串的连接字符（&）用来返回连接字符串的字符。

Sub MyMessage2()
         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

那么我们就来仔细地看看MsgBox函数的下一个参数吧。尽管按钮参数时可选的，但是它的使用还是很频繁的。这个按钮参数明确多少个按钮，并且是什么样的按钮你想要出现了信息框上：

'Sub MsgYesNo()
'         Dim question As String
'         Dim myButtons As Integer
'         question = "是否要打开一个新工作簿?"
'         myButtons = vbYesNo + vbQuestion + vbDefaultButton2
'         'myButtons = 4 + 32 + 256
'         MsgBox question, myButtons
'End Sub
Sub MsgYesNo2()
         Dim question As String
         Dim myButtons As Integer
         Dim myTitle As String
         question = "Do you want to open a new workbook?"
         myButtons = vbYesNo + vbQuestion + vbDefaultButton2
         myTitle = "New workbook"
         MsgBox Title:=myTitle, prompt:=question, Buttons:=myButtons, HelpFile:="HelpX.hlp", Context:=55
End Sub

 Results：

 

总结：本文主要对内置函数MsgBox 进行了介绍