Excel VBA ——msgbox对话框按钮

2025-04-23 21:25:05

在程序中使用对话框一般有两个目的, 一是提示作用,另外一个是让程序响应操作者的意图。如果是后者则需要让弛贾班隧程序去识别操作者的具体操作,然后去执行相应的程序。如单击【确定】按钮继续运行程序,单击【取消】按钮就中止程序运行。

工具/原料

Excel 2013

对话框按钮的配置

1、按钮的配置可以通过MsgBox 函数的第2 个参数来设置,即:MsgBox 提示内容, 对话框按钮代码

Excel VBA ——msgbox对话框按钮

2、(1)当自变值为0 或省略时〈见代码1 和代码2 ),对话框中只有一个按钮

Excel VBA ——msgbox对话框按钮

3、代码1Sub 对话框()MsgBox "当前工作表的名称为:" & Chr(10) & ActiveSheet.Name,0End Sub参数为0

Excel VBA ——msgbox对话框按钮

4、代码2,参数缺省Sub 对话框()MsgBox "当前工作表的名称为:" & Chr(10) & ActiveSheet.NameEnd Sub

Excel VBA ——msgbox对话框按钮

5、<2>当参数为1时Sub 对话框()MsgBox "当前皤材装肢工作表的名称为:" & Chr(10) & ActiveSheet.Name,1End Sub

Excel VBA ——msgbox对话框按钮

6、<3>当参数为2时Sub 对话框()MsgBox "当前皤材装肢工作表的名称为:" & Chr(10) & ActiveSheet.Name,2End Sub

Excel VBA ——msgbox对话框按钮

7、<4>当参数为3时Sub 对话框()MsgBox "当前工作表的名称为:" & Chr(10) & ActiveSheet.Name,3End Sub

Excel VBA ——msgbox对话框按钮

8、<5>当参数为4时Sub 对话框()MsgBox "当前工作表的名称为:" & Chr(10) & ActiveSheet.Name,4End Sub

Excel VBA ——msgbox对话框按钮

9、<5>当参数为3时Sub 对话框()MsgBox "当前工作表的名称为:" & Chr(10) & ActiveSheet.Name,5End Sub

Excel VBA ——msgbox对话框按钮
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢