|
▼あり さん:
返信ありがとうございます。
もう一つ質問で申し訳ないのですが、
検索で見つかったセルのみをセレクトの状態には出来るのでしょうか?
宜しくお願い致します。
>▼YOHITO さん:
>>シート内の検索をして、検索の文字が見つかった場合にのみ
>>その後の命令を実行する事は可能なんでしょうか?
>>
>>色々考えてみたんですがまだまだ答えが見つかりません。
>>アドバイスいただければと思います。
>>宜しくお願い致します。
>
>Sub Macro()
> Cells.Select
> On Error GoTo NASI
> Selection.Find(What:="☆", After:=ActiveCell, LookIn:=xlFormulas, _
> LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
> MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
> On Error GoTo 0
> MsgBox "検索した文字がある場合"
> End
>
>NASI:
> MsgBox "検索した文字がない場合終わることにしてます"
> End
> Resume
|
|