行と列で一定の条件が揃ったときセルに色づけしたい。

質問

ご質問させてください。

　 1 2 3 0 2 4 0
A
D
B
C
D

上記のような場合、「行＝Ｄ」且つ「列＝０以上」の２つの条件が揃った場合
該当セルに色をつけたいのですが、どのような方法がありますでしょうか？

お知恵を貸して頂ければと思います。

回答No.3

tsubuyuki · ベストアンサー

要するに、添付図のようにしたい・・と言うことで良いですか？

だとすると、
図のＢ２セルの位置から開始して、Ｈ６セルまでを選択しておきます。
（この時、Ｂ２セルにフォーカスがあることを確認してくださいね。）

条件付き書式を設定します。
２００７以降なら、ホームタブから条件付き書式⇒新しいルール、
２００３以前なら、書式メニューから条件付き書式です。

ダイアログ内で
　　数式が：=AND($A2="D",B$1=0)
と指定し、お好きな色で塗り潰しを設定してやりましょう。

ちなみに、数式を入力するときは
　「＝ＡＮＤ（＄（比較したい列）（フォーカスがある行）＝”条件”，
　　　　　（フォーカスがある列）＄（比較したい行）＝条件」
としてやりましょう。
「＄」を付け忘れるとかなりずれますので、ご注意くださいませ。
（詳細は「絶対参照・相対参照」という言葉について調べてみましょうね。）

回答No.2

keithin

Ａ２からＡ６にＡＢＣを記入
Ｂ１からＨ１に数字を記入

Ｂ２からＨ６を選択，必ずＢ２がアクティブセル（選択範囲の中で逆反転セルになっている）を確認してから
ホームタブの条件付き書式▼から新しいルールを開始
数式を使用して…を選び
=($A2="D")*(B$1>=0)*(B$1<>"")
と，勿論ですが半角のDと全角文字のＤを間違えないように記入，書式ボタンで色を付けて完成。

＃どこ番地に何を記入しているのかも
＃一体エクセルのどのバージョンを使用しているのかも
＃説明の足りてないご相談です。次回留意して下さい。

お礼

ありがとうございました。
また、説明不足のご指摘も御礼申し上げます。
次回以降、気をつけます。

回答No.1

play_with_you

条件付書式なら
=AND(INDIRECT(アルファベットの入っている列 & ROW()) = "D",INDIRECT(COLUMN(),数値の入っている行)>0)

マクロで変えたいなら
For Each c In 対象範囲
If Cells(c.Row, アルファベットの入っている列).Value = "D" And Cells(数値の入っている行, c.Column).value > 0 Then
c.Interior.Color = 希望の色
c.Font.Color = 希望の色
End IF
Next c

お礼

無事、思っていたものを実現することが出来ました。
とても参考になりました。ありがとうございます。

補足

早々のご回答、ありがとうございます。
=AND(INDIRECT(アルファベットの入っている列 & ROW()) = "D",INDIRECT(COLUMN(),数値の入っている行)>0)

この「アルファベットの入っている列」と書かれてる部分に該当列を設定すればよいでしょうか？
また、「数値の入っている行」と書かれている部分に該当行を設定すればよいでしょうか？

イメージとしては、下記であっていますでしょうか？
=AND(INDIRECT(A:A& ROW()) = "D",INDIRECT(COLUMN(),1:1)>0)