Excel VBA質問箱 IV

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

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


19755 / 76732 ←次へ | 前へ→

【62403】Re:IF文でBLANKセルを選択し、その条件次第でそのセルに着色したいです
お礼  T-K  - 09/7/17(金) 15:06 -

引用なし
パスワード
   ▼つん さん
こんにちは。
また直ぐにご回答頂き感謝します。
ご説明により、すっきりしました。
(頓珍漢なこと言ってしまったこと含め。お恥ずかしい)
これで、やる気が俄然出てきました。
本当にありがとうございます。
また、壁にぶつかったらご教示頂ければ幸いです。

P.S
D4とD5:D7って、連続してるセルだけど、分けてるのは
→D4は日付、D5:D7はセル結合して、署名してもらうためでした。
D5の行を広げればよかったのですが、文書のレイアウト上できなくて。

▼つん さん:
>▼T-K さん
>こんにちは^^
>
>>【1】
>>セルの「A4」と「E4:E7」の範囲の空白セルを赤く塗りつぶしたいんですよね?
>>とありますが、実は、E4は単一セルで、E5:E7は「セルを結合した状態」です。
>>下記で試したのですが、E5:E7は色がついてしまいました。
>
>あー結合なんかあ・・・
>「結合」とマクロは相性が悪いので、なるべく結合しない方がいいらしいのですが、そうも言ってられないこともありますよね。
>
>ちうことで、結合してる場合、左上のセルに値が入ってる形になるので
>(ってことでいいんだろうか・・・・)
>
>「E5:E7」で空白セルを見ていくと、E6,E7でヒットしてしまうので、色がついてしまいます。左上のセルだけ指定してやればいいと思います。
>
>
>>End Ifの後に、Set r = Nothingを記述するのは何故でしょうか。
>ht tp://www.moug.net/tech/exvba/0150027.htm
>このへん読んでもらったらわかるかな?
>
>
>>これでも同じ結果が得られると言えるでしょうか。
>>Sub test3()
>>
>>  Dim r As Range
>>    
>>  Set r = Worksheets("Sheet1").Range("a4,d4,d5:d7,e5:e7").SpecialCells(xlCellTypeBlanks)
>> 
>>  Do
>>    r.Interior.ColorIndex = 3
>>  Loop While r Is Nothing
>>  Set r = Nothing
>>  MsgBox "赤セルを入力してちょ"
>>  Cells.Interior.ColorIndex = 0
>>  
>>End Sub
>
>えーっと、一応色はついたりしますが、なんでLoopしてるのかわかりません^^;
>
>Set r = Worksheets・・・・
>の下に、「r.Select」でもしてもらったらわかるけど、変数「r」に、処理対象のセル範囲が全部入ってます。
>それで、一気に処理出来るので、Loopする必要はないかと・・・
>(う・・・説明が難しい)
>
>で、メッセージの直後に
>Cells.Interior.ColorIndex = 0
>が、入ってますが、すぐ色が消えてしまうけど、それはかまへんの?
>あと、これ入れるなら、
>r.Interior.ColorIndex = 0
>で、OKです。
>Cellsにすると、もし対象セル以外に、何か色づけされてたら、それも解除されちゃいます。
>
>
>あ、あと、
>Range("a4,d4,d5:d7,e5:e7")
>のところで、D4とD5:D7って、連続してるセルだけど、分けてるのはなんで?

85 hits

【62397】IF文でBLANKセルを選択し、その条件次第でそのセルに着色したいです T-K 09/7/16(木) 15:45 質問
【62398】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/16(木) 16:56 回答
【62401】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/17(金) 12:06 質問
【62402】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/17(金) 12:45 回答
【62403】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/17(金) 15:06 お礼
【62449】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/22(水) 17:28 質問
【62450】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/22(水) 17:46 発言
【62468】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/23(木) 9:35 お礼
【62484】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/24(金) 15:32 質問
【62488】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/24(金) 23:59 回答
【62508】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/27(月) 17:24 質問
【62509】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/27(月) 17:45 発言
【62512】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/27(月) 19:13 発言
【62520】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/28(火) 15:09 お礼
【62535】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/29(水) 10:55 質問
【62536】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/29(水) 11:31 発言
【62540】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/29(水) 13:00 質問
【62541】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/29(水) 13:21 発言
【62546】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/29(水) 16:00 質問
【62547】Re:IF文でBLANKセルを選択し、その条件次第... もも 09/7/29(水) 16:42 発言
【62549】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/29(水) 16:54 発言
【62550】私なにかぼけぼけな誤解してるのかなあ つん 09/7/29(水) 16:59 発言
【62552】Re:IF文でBLANKセルを選択し、その条件次第... もも 09/7/29(水) 17:54 発言
【62556】Re:IF文でBLANKセルを選択し、その条件次第... bykin 09/7/29(水) 22:33 発言
【62558】Re:IF文でBLANKセルを選択し、その条件次第... もも 09/7/30(木) 8:52 発言
【62559】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/30(木) 9:53 発言
【62561】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/30(木) 17:24 お礼

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