如何自定义Excel 2016中的消息框VBA - 傻瓜

视频: Excel VBA Basics | How to Create Message in Excel Using VBA Code | Excel VBA MsgBox in Tamil 2024

VBA按钮参数的灵活性使您可以轻松定制您的Excel消息框。您可以选择要显示的按钮，确定是否出现图标，并确定哪个按钮是默认按钮（如果用户按Enter键，默认按钮是“单击”）。

你可以使用buttons参数的内建常量。如果你愿意，你可以使用该值而不是一个常量（但使用内置常量要容易得多）。

<！ - 1 - >

要使用多个这些常量作为参数，只需使用+运算符连接它们即可。例如，要显示带有“是”和“否”按钮和感叹号图标的消息框，请使用以下表达式作为第二个MsgBox参数：

vbYesNo + vbExclamation

或者，如果您希望使代码不太可理解，请使用值为52（即4 + 48）。

以下示例使用常量组合显示带有“是”按钮和“否”按钮（vbYesNo）以及问号图标（vbQuestion）的消息框。常量vbDefaultButton2指定第二个按钮（No）作为默认按钮 - 也就是说，如果用户按下Enter键，该按钮将被点击。为简单起见，将这些常量分配给Config变量，然后使用Config作为MsgBox函数中的第二个参数：

<！ - 2 - >

Sub GetAnswer3（）Dim Config As Long Dim Ans As Integer Config = vbYesNo + vbQuestion + vbDefaultButton2 Ans = MsgBox（“Process the monthly report？”，Config）If Ans = vbYes Then RunReport End Sub

签出Excel执行GetAnswer3过程时显示的消息框。如果用户单击“是”按钮，例程将执行名为RunReport的过程。如果用户单击“否”按钮（或按Enter），则例程结束，不执行任何操作。由于在MsgBox函数中省略了标题参数，因此Excel使用默认标题Microsoft Excel。

<！ - 3 - >

MsgBox函数的按钮参数决定了消息框中显示的内容。

下面的例程提供了使用MsgBox函数的另一个示例：

Sub GetAnswer4（）Dim Msg As String，Title As String Dim Config As Integer，Ans As Integer Msg =“您是否要处理月度报表？ “Msg = Msg&vbNewLine&vbNewLine Msg = Msg&”处理月报将“Msg = Msg&”大约需要15分钟。 “Msg = Msg&”会为当前“Msg = Msg&”月份生成一个30页的“Msg = Msg&”所有销售办事处的报告。 “Title =”XYZ Marketing Company“Config = vbYesNo + vbQuestion Ans = MsgBox（Msg，Config，Title）如果Ans = vbYes Then RunReport End Sub

本示例演示了在消息框中指定较长消息的有效方法。一个变量（Msg）和连接运算符（&）用于在一系列语句中构建消息。 vbNewLine常量插入一个换行符，开始一个新行（使用两次插入一个空白行）。标题参数用于在消息框中显示不同的标题。这是执行此过程时Excel显示的消息框。

由MsgBox函数显示的此对话框显示标题，图标和两个按钮。

您可以使用常量（例如vbYes和vbNo）作为MsgBox函数的返回值。这里还有其他一些常量。

常量	值	含义
vbOK	1	用户单击确定。
vbCancel	2	用户单击取消。
vbAbort	3	用户单击中止。
vbRetry	4	用户单击重试。
vbIgnore	5	用户点击忽略。
vbYes	6	用户点击是。
vbNo	7	用户点击编号