Excel VBA質問箱 IV

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

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


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

19615 / 76732

←次へ　｜　前へ→


	【62546】Re:IF文でBLANKセルを選択し、その条件次第でそのセルに着色したいです

T-K - 09/7/29(水) 16:00 -


	引用なし

	パスワード

▼つんさん：
こんにちは。T-Kです。
恥ずかしながら、こういう理解でよろしいでしょうか。
あとそれに対する処理をご教示頂ければ幸いです。

１．
On Errorでサンドイッチした
Set r = Worksheets("Sheet1").Range("AB3,AC3").SpecialCells(xlCellTypeBlanks)
に入るべき該当セルがなくて、エラーが発生する。

２．
「ｒ」には何も入ってないまま、If文に突入。

３．
If Not r Is Nothing Thenは、Nothingをrに入れてIsで比較。
r←NothingならTrueでif文以下の処理を実行。
がNotゆえTrueとFalseが反転。rはNothingでないならTrueとしてIf文以下を実行。
ここで、rはRange型かつブランクセルプロパティとして既にSetしているから、
rはNothingではない→rは値が入っている、として処理を実行する。

４．
ということは、On Errorでエラー（rはブランクセルだ）を無視(突破？)し、
If Not文に入る前に「rには値が入っているぞ」と
Set（宣言？）しなければならないことに・・・。
しかし、rはブランクセルとしてSetしているし・・・。

５．質問
On ErrorとIf Not間には、rはどうオブジェクト指定すればよいのでしょうか。
それともIf Not→If文に変更？？？
本当にすみません。つんさん、ご助力をお願いします！

127 hits

▼

【62397】IF文でBLANKセルを選択し、その条件次第でそのセルに着色したいです T-K 09/7/16(木) 15:45