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

595

看到一篇文章，我照着试验了一下，结果却没有实现。在本论坛里搜索，发现有高手说DOWN用小写down，但是我试了还是不行。我的系统是windows7 64位（office2003），不知道是不是和windows7 64位这个系统有关系？

当我们在Excel表格中需要输入大量的重复数据时，往往利用数据的有效性来制作一个下拉菜单以
提高重复数据的输入速度。但在实际的操作过程中，必须选中需要输入重复数据的单元格并单击该单元
格右边的下拉箭头，才可以看到自己事先定制的数据有效性的下拉菜单。那么，能否实现在选中单元格时
自动展开数据有效性的下拉菜单以使得重复数据的输入更快一步呢？答案当然是肯定的。接下来。就
给大家介绍一下如何来实现。
先启动Excel 2003并打开某个已设置好数据有效性下拉菜单的工作簿（如“工资表xls"），然后在“Visual Basic编辑器”窗口中输入以下代码：
Option Explicit
Private Sub Worksheet_Selec-tionChange (ByVal Target As Range)   
    If Target.Column =3 Then Application.SendKeys("%{down}")
End Sub
上述代码输入完毕后，关闭“Visual Basic编辑器”窗口，此时我们输入的代码就会自动保存。
完成E述操作后，关闭“工资表．xls”并保存对其所做的修改，然后重新打开它，接着选中c列或D列的任
意一个单元格，此时就可以看到该列单元格自动展开的数据有效性的下拉菜单了，这样以来我们输入那些重复的数据就可以比原来更快一步了。

lcjy11185

application.sendkeys "%{down}"

595

lcjy11185 发表于 2012-12-15 20:36
application.sendkeys "%{down}"

不需要括号是吗？还是不行

hai167

595 发表于 2012-12-15 21:47
不需要括号是吗？还是不行

可以的啊，如果不行，上传附件。
Application.SendKeys ("%{DOWN}")

595

sendkeys.zip (7.07 KB, 下载次数: 86)

2012-12-15 23:18 上传

点击文件名下载附件

附件上传，烦劳了。会不会和windows7有关系 ？

zhaogang1960

595 发表于 2012-12-15 23:16
附件上传，烦劳了。会不会和windows7有关系 ？

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

595

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 3 Then Application.SendKeys "%{down}"
End Sub
就是没有作用，郁闷。
我的系统是64位的，楼上的也是吗？谢谢了

595

已经确认了，是windows系统的原因，在xp一切正常。
windows7 64位的问题？

tpjj

呵呵，我遇到过vba的sendkeys不起作用的情况，要不你试试这样

Dim WS As Object
Set WS = CreateObject("WSCript.Shell")
然后用 WS.SendKeys ，调用参数是一样的

就是不用vba的sendkeys，改用WSCript的sendkeys.
==============================================

如果非要用vba的Sendkeys，试试这样

在每次Sendkeys后面加个0参数，强制立即执行，例如
Sendkeys "AAA",0

再不行就Sendkeys之后调用一次Sleep
调用API的Sleep要记得加上
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
然后这样
Sendkeys "AAA",0
Sleep 50
就是调用完Sendkeys后等个50毫秒，让其他程序有处理信息的时间，50毫秒不行就试试100或者500

再不行就Sleep后面再加一个DoEvents，强制vba把CPU控制权交给其他程序，这样
Sendkeys "AAA",0
Sleep 50
DoEvents

Sleep和DoEvents可以分别单独试试，也可以把顺序倒过来先DoEvents在Sleep，或者干脆Sleep、DoEvents之后再一次Sleep

再不行就用WSCript的sendkeys吧，呵呵

七八个星_天外

或者是Windows7的问题，但应该不是64位的原因，我最近几天刚好也遇到楼主所提的问题。
我办公室和家里的电脑都是32位Win7系统，而这个语句（Application.SendKeys "%{down}"）在办公室运行无误，回到家里就不行呢，到现在都没找出原因，请求路过大侠现身说法。