Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56030 / 76732

←次へ　｜　前へ→


	【25467】Re:Findをループして、データを取得したのですが

つん

- 05/6/1(水) 16:25 -


	引用なし

	パスワード

こんにちは＾＾

>下記のように、マクロを組みました。
>しかし、探すセルの中にデータが入っていない部分があり、
>Set T1の部分がエラーになります。
>どのように回避したらいいでしょうか？
>ご教授ください。よろしくお願いいたします。

えと、あまりちゃんとコードは見てないんですが、
Findメソッドで、ヒットしなかったときのエラー処理は、
ヘルプの使用例が参考になるかと思います。

With Worksheets(1).Range("a1:a500")
　　　 Set c = .Find(2, lookin:=xlValues)
　　　 If Not c Is Nothing Then
　　　　　 firstAddress = c.Address
　　　　　 Do
　　　　　　　c.Value = 5
　　　　　　　Set c = .FindNext(c)
　　　　　 Loop While Not c Is Nothing And c.Address <> firstAddress
　　　 End If
End With

太字の部分

2 hits

▼

【25465】Findをループして、データを取得したのですが さくたん 05/6/1(水) 16:09