如何在MsgBox打开的情况下仍然保持在excel中工作？

Question

我在vba上运行一段代码，我使用MsgBox显示结果。我想在一个单独的 excel 文件中输入结果值时保持这些结果的显示，但 Excel 不允许我在另一个 excel 文件中工作，直到我按下 MsgBox 上的确定或取消按钮。如何保持msgbox打开，并仍然在单独的excel文件上工作？

Answer 1

不要使用 MsgBox. 使用定制的 Userform 而不是调用它，然后以modeless的形式显示出来。

UserForm1.Show vbModeless

比如说

Sub Sample()
    '
    '~~> Rest of your code
    '
    MsgBox "Hello World"
    '
    '~~> Rest of your code
    '
End Sub

也可写成

Sub Sample()
    '
    '~~> Rest of your code
    '
    UserForm1.Label1.Caption = "Hello World"
    UserForm1.Show vbModeless
    '
    '~~> Rest of your code
    '
End Sub