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

unsamesky

试试另一种方法，利用ExeCute函数直接执行工具栏按钮事件。
sub Commandbutton_Click()
[a1].select
Application.CommandBars(1).Controls(2).Controls("查找(&F)...").Execute
...

Sub mef()
Application.CommandBars(1).Controls(2).Controls("查找(&F)...").Execute
...

附:
Application.Sendkeys "xx"和Sendkeys “xx"两个语句有很大区别的。
Private Sub CommandButton1_Click()
[a6].Select
SendKeys "%EF"
...
sub mef()
sendkeys "%EF"
...
利用上面的方法可以通过测试。

[ 本帖最后由 unsamesky 于 2011-4-8 10:09 编辑 ]

lqf301

可以使用以下语句！~
sub Commandbutton_Click()
[a1].select
Application.CommandBars(1).Controls(2).Controls("查找(&F)...").Execute
sub

以下语句出错，并弹出错误提示，见附件图片
Sub mef()
Application.CommandBars(1).Controls(2).Controls("查找(&F)...").Execute
sub end

lqf301

已解决，谢谢！

sub Commandbutton_Click()
[a1].select
Application.CommandBars(1).Controls(2).Controls("查找(&F)...").Execute
sub

baomaboy

原帖由 lqf301 于 2011-4-8 20:43 发表
两个都不能用！

两个按钮都不能用那是你office或者windows系统的事了。

lchzh

lqf301 发表于 2011-4-8 21:57
已解决，谢谢！

sub Commandbutton_Click()

请问具体怎么解决的?

过客fppt

都用VBA了，为什么不用.find方法设置好参数直接查找呢？

sj15627581616

快捷键无效，主要还是这些快捷键都被office或系统占用，可以挑选没有被占用的，如Ctrl+Shift+X