我如何发送一个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中运行.