Question

我在Excel工作簿中使用IDE并尝试执行以下代码。

if (boolean1 && boolean2 && boolean3){
    // ...
}

并不是说我不知道其他方式，但只是好奇为什么这不起作用。我尝试使用键盘快捷键和cmdbutton运行此代码。任何帮助将不胜感激。

Answer 1

使用sendKeys充其量只是粪便。我假设您正在从代码窗口启动代码，因此，命令正在尝试引用该窗口。需要激活Excel才能接收命令。

Sub cpypaste()
AppActivate Application.Caption 'Activates the window.
Range("E7").Select

SendKeys String:="^c", Wait:=True

Application.Wait (Now + TimeValue("00:00:01"))' this line I belive is not needed, with the wait as true.
Range("G7").Select
SendKeys String:="^v", Wait:=True

End Sub

VBA - 带Sendkeys的CopyPasteCode

1 个答案: