excel - 在 msgbox 之后更改工作表

Question

在 msgbox 上点击“确定”后，我试图打开一个特定的工作表。所以，如果我在“sheet1”中运行一个循环，会出现一个 msgbox 并说“找到 x 记录”，然后在点击“ok”后，“sheet2”会打开。这可能吗？

Answer 1

Msgboxes 是模态的，代码执行将在它们打开时停止并且它们也会返回一个值（取决于按下的按钮）

下面的示例将消息框的响应放入response，然后根据响应使用 if 来运行代码。

Sub Main()
Dim Response As VbMsgBoxResult

' Do Processing stuff here

Response = MsgBox(Prompt:="Prompt!", Buttons:=vbOKCancel, Title:="Title!")

If Response = vbOK Then
    ' Do stuff for OK
Else
    ' Do nothing or something else
End If

End Sub

这If是可选的，如果您不关心按下了什么按钮，您可以将所有代码放在调用之后msgbox()，它会在消息框关闭时执行。

Answer 2

Sub Sample()     
'Your Loop    
Msgbox "Loop Finished!" & vbcrlf & "Found x records"    
Sheets("Sheet2").Activate    
End Sub