質問: faddress then exit do loop 3日悩んで、大変困っております。よろしくお願いします。(os:windosxp、office2003)
回答: >sheet1の先頭行しか検索してくれませんでした findメソッドだけでなく、findnext[が必要なだけでは。 googleで「エクセル vba 検索」で照会してコードをさがして、真似したら。 初心者にはfind、findねxtは使うのが難しいと思う。 しかし、まあそれは本件で使っているのですね。 ーー 質問にロジックの説明が無く、ありふれたケースではないので、判るのに時間がかかる。 実例だけでなく、しっかり文章でも説明のこと。 ーー ロジックは、検索対象としては行単位で考えるらしい。本件ではその範囲はsheet1の各行1-3列 検索語としては第1回目が、条件1がsheet2の犬。次いで猫の検索をまわさないとならないようだが、質問のコードではそれが見えないが。 犬と猫の検索をvbaで1度でやる方法は無いと思う。if分ならorを使って、やれそうだがsheet2のa列のように多いとそれも使えない。 だからこれらのループをfor nextの総なめ法でテスト的にコードを作り、結果が正しくなったら、それからfind法に置き換えたら。 sheet1の「ある1行」の列の判別ループ sheet2の条件の各列の各行のループ 条件が条件1、条件2・・と複数あるループ。 を見据える。 ーー ).vakue=1 はvalue でしょう。