|
▼初心者@ さん:
>▼じゅんじゅん さん:
>>▼初心者@ さん:
>例えば、検索範囲には”りんご”,”りんごりら”,”りんごりらっぱ”の順番でインスタンスが入ってるとします。検索値には”り”を打ったとして、CommandButtonを押すごとに前述、”りんご”,”りんごりら”,”りんごりらっぱ”順番でActiveCellを移動してヒットするようにしたいんです。が、無理でしょうか?
こちらの
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_find.html
FindNext メソッド
【例2】部分一致
が参考になると思いますが。
>Set c = .Find(What:=myKey, LookIn:=xlValues, lookat:=xlWhole, _
Set c = .Find(What:=myKey, LookIn:=xlValues, lookat:=xlPart, _
lookatの定数を変更して下さい。
> c.Interior.ColorIndex = 4 '明るい緑
c.Select で順番にActiveに出来ると思います。
*データ範囲及び検索値の与え方は、適宜修正の事。
>CommandButtonを押すごとに
ちょっと私には難しいかも。
|
|