空白セルには背景色を適用しない方法

質問

Excel2007を使用しています。

コマンドボタンをクリックすると、特定の複数セルの背景色が変わるようにしています。
コマンドボタンに記述している内容は下記の通りです。

----------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Worksheets("ワークシート名").Range("P1,U1,Z1,P5,U5,Z5").Interior.Color = RGB(174, 148, 196)
End Sub
----------------------------------------------------------------------------------

上記に設定しているこの"P1,U1,Z1,P5,U5,Z5"というセルには文字が入っているのですが、空白セルになる場合もあり、その場合には背景色は不要になります。
現在は手作業で背景色を「色なし」にしているのですが、毎回手間がかかることと今後数が増えていきそうなことから、空白セルの場合には背景色を適用しないようにしたいと思っています。

コードで記述するのが良いのか、何か他の方法があるのか、色々検索して試してみたのですが
行き詰ってしまいました。

当方初心者でして説明不足の箇所あったら申し訳ありません。
初歩的なことで恐縮ですが、どなたかご教授願えませんでしょうか。
宜しくお願い致します。

回答No.1

keithin · ベストアンサー

とりあえずカタイ手：
Private Sub CommandButton1_Click()
　dim h as range
　for each h in Worksheets("ワークシート名").Range("P1,U1,Z1,P5,U5,Z5")
　if h <> "" then
　　h.Interior.Color = RGB(174, 148, 196)
　end if
　next
End Sub

またわざわざマクロを使うまでもなく，ホームタブの条件付き書式▼で
セルの値が　指定の値に等しくない　=""
の時に色を付ける，などの設定を施してしまった方が簡単と思います。

なお
＞…というセルには文字が入っているのですが、空白セルになる場合もあり

これらのセルの具体的な中身が，
○「手打ちで生データを入れているが，何も入れない空っぽのままのある」という意味なのか，それとも
○「数式が何かのデータか，もしくは""を計算している」という意味なのかによっても，
適切なマクロが変わる場合があります。
目に見える具体的なエクセルの内容をご相談で情報提供するよう心がけてみてください。

お礼

丁寧なご回答ありがとうございます。
ご教授頂いた内容で解決できました！

＞○「手打ちで生データを入れているが，何も入れない空っぽのままのある」という意味なのか，それとも
＞○「数式が何かのデータか，もしくは""を計算している」という意味なのかによっても，適切なマクロが変わる場合があります。

とおっしゃって頂いた通り、見た目は空白セルだけれども数式は入っている、というような場合もこれから出てきそうです。
その際にはご指導頂いたように具体的な内容を盛り込んで、また新しく質問させて頂きたいと思います。

画像も入れて頂きとても分かりやすかったです。
本当にありがとうございました。

回答No.3

mu2011

>コードで記述するのが良いのか、何か他の方法があるのか
　⇒既にマクロ組み込みされているのだからコード記述ではないでしょうか。
　　例えば、For　Each～Next文とIF～Else文を利用してセルの内容が空白か否かで色設定・解除を記述してみて下さい。　　他の方法は、条件付き書式設定になります。

>今後数が増えていきそう
　⇒対象セルの拡張規則を明示していないので何とも回答できません。　

因みに条件付き書式設定は以下の通りです。
（１）P1を選択→ホーム→条件付き書式→新しいルール→指定の値を含む～を選択→セルの値欄で「空白なし」を選択→書式→塗りつぶしタブで色を選択→ＯＫ
（２）後は、P1をその他の対象セルにコピー＆貼り付け

お礼

ご回答ありがとうございます。
コード記述の内容はまだまだ勉強不足ですが、教えて頂いた内容にトライしてみます。
ご教授頂いた方法も含めて、今後は最適な方法を選択できるように頑張りたいと思います。
また質問する際には何が必要な内容なのか、ということも今回勉強させて頂きました。
ありがとうございました！

回答No.2

imogasi

初心者の場合今動いているのはそのままにしたい、かもしれない
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Range("P1,U1,Z1,P5,U5,Z5").Interior.Color = RGB(174, 148, 196)
For Each cl In Worksheets("Sheet1").Range("P1,U1,Z1,P5,U5,Z5")
If cl.Value = "" Then
cl.Interior.ColorIndex = xlNone
End If
Next
End Sub
という、（ミクロ的に無駄だが）訂正するような方法もあろう。

お礼

初心者心理ズバリ的中です(笑)
まさしく今のものはそのままで使えたらいいなと思っていました。
アルファベットが並んでいるだけでもう難しいという先入観に捉われてしまいがちなのですが、教えて頂いた内容も試してみながら、理解できるよう少しずつ取り組んでいきたいと思います。
ありがとうございました！