Question

我有一个宏调用了许多其他可以正常工作的宏，但我想让它更加自动化 - 目前它要求用户点击“是”＆＃39;或者＆＃39;否＆＃39;或者与宏运行的其他类似选项。

示例如下：

Sheets("Macro").Select
Sheets("Hidden").Visible = True
Application.ScreenUpdating = False
Application.DisplayAlerts = False

intList = MsgBox("HerpDerp?", vbYesNo + vbQuestion)

If intList = vbNo Then Exit Sub

If (Range("asd").Value = "sdf" Or Range("asd").Value = "dfg") Then

othermacro1
othermacro2

Else

othermacro3
othermacro4

End If

Sheets("Macro").Select

Application.DisplayAlerts = True

Sheets("Hidden").Visible = False

MsgBox "DerpHerp", vbInformation + vbOKOnly, "Save"

End Sub

通过故障排除，我认为设置警报以自动不显示这将避免问题，但用户需要点击更多潜水按钮而不是“是”＆＃39;或者没有＆＃39;为了继续使用宏，这可能就是为什么会出现这种情况（虽然我会预料到这只会使警报不会出现......）。

我们非常感谢您提供的任何帮助，并且可以轻松提供所需的任何其他信息。

提前感谢您的帮助！

Answer 1

检查此示例代码并希望这可以帮助您：

源代码：

Sub MsgBoxDemo()
    Dim Answer As Long

     Answer = MsgBox("Select Yes or No", vbExclamation + vbYesNo, "Reply")

      If Answer = vbYes Then
        MsgBox "Yes"
      End If
      If Answer = vbNo Then
        MsgBox "No"
      End If

End Sub

如何从VBA中的警报中选择某些选项

1 个答案: