Excel VBA質問箱 IV

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

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


50712 / 76732 ←次へ | 前へ→

【30905】Re:検索について
発言  HiroHiro  - 05/11/6(日) 22:58 -

引用なし
パスワード
   ▼Sal さん:

何も問題ないと思いますが。
CurrentRegionですので、セルの中に何か文字なり数字があり、セルが繋がっていて
そのセルの中に「テスト」と言う文字があることが条件になります。

>初心者の質問で申し訳ありません。
>VBAの本を見て、セルを検索するマクロを勉強しているのですが
>イマイチ上手くいきません(検索が出来たり出来なかったりします)
>
>------- ここから -------
>Sub Kensaku()
>  Dim fc As Variant
>  Set fc = Range("A1").CurrentRegion.Find("テスト")
>  If fc Is Nothing Then
>    MsgBox ("Nothing")
>  Else
>    MsgBox fc.Address
>    fc.Select
>  End If
>End Sub
>------- ここまで -------
>このマクロを実行しても、何故か成功したりしなかったりします。
>ワークシート内には必ず テスト という文字列を入れて実験しましたが
>検索が成功したり失敗したりする事があり、その法則が全然わかりません。
>(A1に書くと成功しやすいような気がします…)
>
>また、これを発展させて セルを結合させた名前ボックス を取得したいと思うのですが
>出来れば、そちらの方も教えて下さい。
>
>よろしくお願いします。

1 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 お礼

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