|
こんにちは。かみちゃん です。
>以下のVBAを作ったのですが、
>『Loop While Not c2 Is Nothing And c2.Address <> firstAddress』で
>(オブジェクト変数または With ブロック変数が設定されていません。)の
>エラーメッセージが出てしまいます。
Set c2 = Sheets("カウンター数一覧").Columns("A").FindNext(c2)
Loop While Not c2 Is Nothing And c2.Address <> firstAddress
の部分を
Set c2 = Sheets("カウンター数一覧").Columns("A").FindNext(c2)
If c2 Is Nothing Then Exit Do
Loop Until c2.Address = firstAddress
とするといかがでしょうか?
ヘルプの使用例を参考にされたのかと思いますが、
知っている人は知っている、有名な話のようで、ヘルプの使用例が誤っています。
なお、他の掲示板の過去ログで申し訳ありませんが、以下などが参考になりますでしょうか?
http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200805/08050102.txt
|
|