Excel VBA質問箱 IV

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

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


56030 / 76732 ←次へ | 前へ→

【25467】Re:Findをループして、データを取得したのですが
回答  つん E-MAIL  - 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

太字の部分
0 hits

【25465】Findをループして、データを取得したのですが さくたん 05/6/1(水) 16:09 発言
【25467】Re:Findをループして、データを取得したの... つん 05/6/1(水) 16:25 回答
【25494】Re:Findをループして、データを取得したの... Jaka 05/6/2(木) 11:16 回答
【25496】Re:Findをループして、データを取得したの... さくたん 05/6/2(木) 11:49 お礼

56030 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free