如何添加消息框VbCancel

Question

我在网站上找到了MS Word的宏(如下(https://excelchamps.com/blog/vba-code-search-google-chrome/

Sub GoogleSearch()
Dim chromePath As String
Dim search_string As String
Dim query As String
query = InputBox("Please enter the keywords", "Google Search")
search_string = query
search_string = Replace(search_string, " ", "+")
chromePath = "C:Program Files (x86)GoogleChromeApplicationchrome.exe"
Shell (chromePath & " -url http://www.google.com/search?hl=en&q=" & search_string)
End Sub

当我错误地按下"宏"按钮/运行此宏时，我想关闭消息框。然而，无论我按什么(是/否/关闭该消息框(，它都会忽略所有这些选择，并自动搜索我在消息框中键入的内容。

我试图添加下面的代码，但它不起作用。

If MsgBoxResult = vbCancel Then
Exit Sub
Else

我是Word Macro的大三学生。我可以问一下，是否有人对让消息框发挥作用有什么建议吗？(按取消或关闭窗口，然后不要打开Chrome并自动搜索(感谢您的关注。

Answer 1

只需查看InputBox的官方文档

在对话框中显示提示，等待用户输入文本或单击按钮，然后返回包含文本框内容的字符串。

(…(

如果用户选择"确定"或按ENTER键，InputBox函数将返回文本框中的内容。如果用户选择Cancel，函数将返回一个零长度的字符串("(。

因此(与MsgBox相反(，InputBox总是返回一个String，而vbCancel是一个数字。您需要检查返回值是否为空字符串。请注意，您无法区分"；用户没有输入什么并且按下[OK]"；或"；用户按下[取消]"；。

If MsgBoxResult = "" Then Exit Sub