|
皆さんの暖かい回答感謝いたします。
僕は WindowsXP EXCEL2002 を利用しています。
今、色々試したのですがどうしても検索結果 Nothing が出てしまいます。
しかし成功するセルもあります。
成功するセルは A1 B1 A2 B2 です(少な!)
さっきまで C1 C2 も検索成功してた気がしますが…今やってみたら駄目になりました。
念の為 テスト という文字はワークシート内で1つだけしか書いていません。
マクロの実行方法は
ツール(T) - マクロ(M) - マクロ(M)を選んだ後
マクロ名 Kensaku を選んで 実行(R)ボタンを押しています。
現在試してるマクロは ponpon さんの
Sub Kensaku()
Dim fc As Range
Set fc = Range("A1").CurrentRegion.Find(what:="テスト", LookAt:=xlWhole)
If fc Is Nothing Then
MsgBox "Nothing"
Else
MsgBox fc.Address
fc.Select
End If
End Sub
です。
|
|