为什么Application.SendKeys("%{down}")没有反应呢？

hlh10211 · 发表于 2013-9-21 11:18

上楼的是对的，运行后成功，上传完整代码：Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WS As Object
Set WS = CreateObject("WSCript.Shell")
If Target.Column = 1 Then WS.SendKeys "%{down}"
If Target.Column = 2 Then WS.SendKeys "%{down}"

End Sub

ＭisterRight · 发表于 2014-2-23 14:34

我使用了创建WS对象的方法，并不能实现，必须通过在工作表创建控件，再链接宏，才能实现代码的功能。

360583279 · 发表于 2015-2-13 09:40

Application.SendKeys("%{down}")快捷键是ALT+DOWN，你确定你按对了吗

ayumi503 · 发表于 2017-10-26 15:41

路过，改成下面这句就可以了。
Application.SendKeys "%{down}", true

竹影000 · 发表于 2020-1-3 23:16

tpjj 发表于 2013-8-22 23:31
呵呵，我遇到过vba的sendkeys不起作用的情况，要不你试试这样

Dim WS As Object

大神啊，我也遇到这个问题了，然后只加了doevent 现在问题就解决了，可是究竟为什么会这样呢？

Takuyahan · 发表于 2022-3-19 21:52

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then Application.SendKeys ("%{down}")
End Sub

win10+64bite 没问题

		自动登录	找回密码
密码			免费注册

[求助] 为什么Application.SendKeys("%{down}")没有反应呢？