|
▼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に書くと成功しやすいような気がします…)
>
>また、これを発展させて セルを結合させた名前ボックス を取得したいと思うのですが
>出来れば、そちらの方も教えて下さい。
>
>よろしくお願いします。
|
|