Excel VBA質問箱 IV

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

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


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

26475 / 76732

←次へ　｜　前へ→


	【55588】Re:実行範囲の指定方法について

VBWASURETA - 08/5/12(月) 13:54 -


	引用なし

	パスワード

▼kanabun さん：
>再掲します
>
>>> Do～Loop のなかで、
>>> セルc の値を書き換えることがなければ、
>>> c が Nothing になることはありえないです。

セルcと言いますか参照先のシートセルですよね？

>
>-------------------
>
>> >>　　　　Loop While Not c Is Nothing And c.Address <> firstAddress
>>
>> を
>> 　　　　　　　If c.Address <> firstAddress Then Exit Loop
>> 　　　　　Loop While Not c Is Nothing
>>
>> とした方がエラーとならないです。
>
>これも FindNext(c) の「次のセル検索」結果 c に Nothing が
>代入される可能性のあるときは
>ヘルプの構文と同じ危険性を孕んでますね。

因みに何故指摘したかと言いますと、この条件の前にりんさんのソースで
以前検証して、Nothingを返されたからです。

で、この条件ですが１行のソースを２つに別けるという意味だけを書いています。
　　　　　　　If c.Address <> firstAddress Then Exit Loop

因みにシートセル書き換えのVBAソースですがデバッグに落ちていません。

後、もし回答者に対して指摘する場合、質問者にも理解し易い
解説（今回のようなデバッグに落ちる解説）がないと
難しいと思われたので指摘させていただきました。

0 hits

▼

【55571】実行範囲の指定方法について marumaru 08/5/11(日) 20:07