作者:乔山办公网日期:
返回目录:excel表格制作
不可以,参考以下:
语法
MsgBox(prompt[, buttons] [, title] [, helpfile, context]) MsgBox 函数的语法具有以下几个命名参数:
部分
描述
Prompt 必需的。字符串表达式,作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符,由所用字符的宽度决定。如果 prompt 的内容超过一行,则可以在每一行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或是回车与换行符的组合 (Chr(13) & Chr(10)) 将各行分隔开来。
Buttons
可选的。数值表达式是值的总和,指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等。如果省略,则 buttons 的缺7a64e58685e5aeb9364省值为 0。
Title 可选的。在对话框标题栏中显示的字符串表达式。如果省略 title,则将应用程序名放在标题栏中。
Helpfile 可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile,则也必须提供 context。
Context 可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context,则也必须提供 helpfile。
1、首先打开Excel2013版软件按下组合键Alt+F11切换到VBA界面,在VBA中点击菜单栏中的插入,选择下拉菜单中的模块插入一个模块:
3、在新建的模块中输入代码,zd设置一个msgbox窗体,这里代码中“ Chr(13) ”即代表回车换行符:
3、接着在vba中点击运行子程序的用户窗体按钮,该按钮的快捷键为F5按下可以快版速运行程序:
4、最后就会弹出权窗口,此时就可以看见msgbox中的数字1占据了第一行,数字2占据了第二行,数字3占据了第三行,即实现了换行显示消息的效果:
Sub Test()
n = 0
For r = 1 To 10
n = n + IIf(InStr(1, Cells(r, 1), "好") > 0, 1, 0)
Next
MsgBox "A1:A10中包含抄“好”的单元袭格个数zd为:" & n, vbOKOnly
End Sub
msgbox("内容")可以将返回抄值传递给变量
如:
msg=msgbox("内容")
然后根据变量msg的内容作进一步处理(比如这种用法中,可以返回YES或NO的对应数值)
而
msgbox "内容"
则仅作为显示一个提示信zd息。