Application.SendKeys "^f"　调用无效！

lqf301 · 发表于 2011-4-5 22:20

leecg · 发表于 2011-4-5 22:40

vba制作的快捷键经常会不好用的，
估计接口有问题

lqf301 · 发表于 2011-4-5 22:42

有什么解决的方法没？

leecg · 发表于 2011-4-6 08:53

原帖由 lqf301 于 2011-4-5 22:42 发表
有什么解决的方法没？

没搞定，之前是用其他的方法实现的
vba快捷键一般对office系统内的控制还马马虎虎
对其他程序的操作一般用接口来处理
什么.dll
DAO之类的方法

baomaboy · 发表于 2011-4-6 10:39

不是接口的问题，Ctrl+F是需要焦点的，楼主的两个控件不一样吧？无反应的那个是因为点击后失去焦点了。
可以人为设置一个焦点再测试一下
Private Sub CommandButton1_Click()
Range("L14").Select
Application.SendKeys "^f"
End Sub
或者试试需要不同焦点的快捷键
Private Sub CommandButton1_Click()
Application.SendKeys "%TMS"
End Sub
第一按钮是“嵌入”工作表，相当于工作表的一部分，所以点击后焦点转移到按钮上，而ctrl+f是需要单元格或单元格区域为背景的。
第二按钮不“嵌入”工作表，或者叫“悬浮”吧，点击完只是去调用相应的宏命令，而不会改变工作表的焦点。

[ 本帖最后由 baomaboy 于 2011-4-6 11:22 编辑 ]

lqf301 · 发表于 2011-4-7 22:11

两种方法都没用！

baomaboy · 发表于 2011-4-7 22:51

原帖由 lqf301 于 2011-4-7 22:11 发表
两种方法都没用！

你改的是模块里的当然不管用，给你附件自己看。

lqf301 · 发表于 2011-4-7 22:56

一样点了都没用！

baomaboy · 发表于 2011-4-7 23:26

原帖由 lqf301 于 2011-4-7 22:56 发表
一样点了都没用！

你1楼附件没说清楚是两个都不能用，还是一个能用一个不能用？
如果两个都不能用你是否宏没开启，要是一个能用一个不能用的话，用我给你改过的还是一个能用，两个不能用，那就奇怪了、

lqf301 · 发表于 2011-4-8 20:43

两个都不能用！

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

[求助] Application.SendKeys "^f"　调用无效！

回复 2楼 leecg 的帖子

回复 5楼 baomaboy 的帖子

回复 7楼 baomaboy 的帖子

回复 9楼 baomaboy 的帖子

[求助] Application.SendKeys "^f" 调用无效！

回复 2楼 leecg 的帖子

回复 5楼 baomaboy 的帖子

回复 7楼 baomaboy 的帖子

回复 9楼 baomaboy 的帖子

[求助] Application.SendKeys "^f"　调用无效！