vba - 如何发送 ALT TAB 键？

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 中运行。