| |
▼Jaka さん：
重ね重ねありがとうございます。
自分なりに書店でfindのafterについて調べました。
指定したセルは最後に検索される、とありました。
VBAの入門書はたくさんあるのですが、
Cellsの引数にCountプロパティ（？）を使うという手法は
本屋さんでは見つけられませんでした。
裏技の本なんかも見たんですが…。
やはり基礎からじっくり時間をかけて勉強していくしかないのですね。
また質問を立てて、お薦めの参考書をみなさんに
聞きたいと思います。
ありがとうございました。
>位置を間違ってました。
>このままだと、見つからなかった場合エラーになります。
>
>> Set saigocel = .Find("*", After:=saishocel, LookIn:=xlValues, LookAt:=xlPart)
>> SaveCel = saigocel.Address
>> If Not saigocel Is Nothing Then
>> Do
>> saigocel.Select
>> Set saigocel = .FindNext(saigocel)
>> Loop Until saigocel.Address = SaveCel
>> End If
> ↓
>
> Set saigocel = .Find("*", After:=saishocel, LookIn:=xlValues, LookAt:=xlPart)
> If Not saigocel Is Nothing Then
> SaveCel = saigocel.Address '←ここにしないとダメです。
> Do
> saigocel.Select
> Set saigocel = .FindNext(saigocel)
> Loop Until saigocel.Address = SaveCel
> End If
|
|
植木ねこ
- 07/11/20(火) 11:59 -
