19、VBA用户交互与自定义对话框创建指南

VBA用户交互与自定义对话框创建指南

1. VBA中获取用户反馈

1.1 MsgBox函数的使用

在VBA里， MsgBox 函数能让程序和用户交互并获取反馈。以下代码展示了如何使用 MsgBox 函数来询问用户是否插入主标题超链接：

msgPrompt = "Do you want to insert the Main Heading hyperlinks?" & _
vbCr & vbCr & _
"Yes = Insert links for Main Heading style" & vbCr & _
"No = Insert links for Listing style" & vbCr & _
"Cancel = No links inserted"
msgButtons = vbYesNoCancel + vbQuestion + vbDefaultButton1
msgTitle = "Insert Hyperlinks"
msgResult = MsgBox(msgPrompt, msgButtons, msgTitle)
Select Case msgResult
Case vbYes
    InsertHyperlinks "Main Heading"
Case vbNo
    InsertHyperlinks "Listing"
Case vbCancel
    Exit Sub
End Select

此代码运行后，会弹出一个消息框，提供三