我如何发送一个ALT选项卡？

Question

Application.SendKeys“{PGDN}”，True

工作正常，但Application.SendKeys“{％TAB}”，True和Application.SendKeys“％{TAB}”，True无效。

如何使用sendkeys执行alt-tab切换窗口？

以下是代码：

Application.SendKeys "{PGDN}", True
Application.SendKeys "{PGDN}", True
xreply = MsgBox("Is this page for women? Record:" & i, vbYesNo, "Gender Checker")   
If xreply = vbYes Then
ActiveSheet.Range("C" & i).Value = vbYes
End If

Answer 1

使用此：

Sub ReturnToWindows()
    Application.SendKeys ("%{TAB}")
    DoEvents
End Sub

必须在Excel中运行而不是VBE 。