`MsgBox`函数是Excel VBA中的一个用户交互函数,用于在对话框中显示相关信息,并等待用户点击相应的按钮。以下是一个`MsgBox`函数的示例:
```vba
Sub Example()
Dim result As Integer
result = MsgBox("Hello, World!", vbInformation + vbYesNo, "Message Box")
If result = vbYes Then
MsgBox "You clicked Yes!"
Else
MsgBox "You clicked No!"
End If
End Sub
```
在这个示例中,`MsgBox`函数显示了一个带有"Hello, World!"消息的对话框,按钮包括"是"和"否"。根据用户的选择,程序会显示不同的消息框。
1. `vbInformation`参数指定了消息框的图标类型为信息图标。
2.`vbYesNo`参数指定了消息框的按钮类型为"是"和"否"。
3."Message Box"是消息框的标题。
当用户点击"是"按钮时,程序会显示一个消息框,内容为"You clicked Yes!";当用户点击"否"按钮时,程序会显示一个消息框,内容为"You clicked No!"。