Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


50708 / 76732 ←次へ | 前へ→

【30909】皆さんありがとうございます
質問  Sal E-MAIL  - 05/11/7(月) 0:06 -

引用なし
パスワード
   皆さんの暖かい回答感謝いたします。

僕は 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
です。

0 hits

【30904】検索について Sal 05/11/6(日) 22:44 質問
【30905】Re:検索について HiroHiro 05/11/6(日) 22:58 発言
【30906】Re:検索について Kein 05/11/6(日) 23:17 回答
【30907】Re:検索について ponpon 05/11/6(日) 23:20 発言
【30909】皆さんありがとうございます Sal 05/11/7(月) 0:06 質問
【30910】Re:皆さんありがとうございます awu 05/11/7(月) 1:23 発言
【30911】Re:皆さんありがとうございます HiroHiro 05/11/7(月) 7:09 回答
【30917】お恥ずかしい Sal 05/11/7(月) 11:05 お礼
【30930】Re:お恥ずかしい Kein 05/11/7(月) 13:04 発言
【30954】ホント ありがとうございました。 Sal 05/11/7(月) 22:02 お礼

50708 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free