How to copy the data and search it by ctrl + f in excel

[hancre]

How can I create a script to copy the data and search it by ctrl+f in excel ?
I tried this following script. But it doesn't work.

Code: Select all

Appskey & f:: 
Send, {f2}
Send ^a
Send ^c
Send ^f
Send ^v
return

How can i fix the issue?
Thanks for any help in advance.

[mikeyww]

Code: Select all

AppsKey::AppsKey
AppsKey & f::
Clipboard =
Send {F2}^a^c
ClipWait, 0
If ErrorLevel {
 MsgBox, 48, Error, An error occurred while waiting for the clipboard. Aborting.
 Return
} Else If !WinExist("ahk_class XLMAIN")
 Return
WinActivate
Send ^f
WinWaitActive, Find and Replace,, 3
Send % ErrorLevel ? "" : "^v"
Return

[flyingDman]

try:

Code: Select all

#\::											; or the hotkey of your choice
xl := ComObjActive("excel.application")
xl.Cells.Find(xl.activecell.text, xl.activecell).select
return

sending simulated keystrokes to an excel sheet is not a great idea...

[mikeyww]

I imagined that the source document was not Excel-- but still agree that the "direct search" method as shown here is better than ^f when possible.

[flyingDman]

If the source is not Excel, why press F2?

[mikeyww]

I have no idea! I was not really trying to guess; I imagine that you are right. With your guess being likely right, your solution seems much more appropriate!

[hancre]

Thank you for your help.
I prefer excel com way. ^^ But it doesn't work.

[hancre]

When I write the script and this article, I forget F2 isn't good for excel Com.
There''re several scripts with excel Com libraries.

Thank you for your help.

[mikeyww]

It worked when I tested it.

[hancre]

My notebook may casuse the problem.
In my notebook, scripts doesn't work sometimes.
But the scripts work well in others' computer.

I'll buy a better notebook later. @.@