「二つのセルの条件によってセルの色替」をマクロで実施するには？

質問

エクセルファイルの任意セルのコメントによって、あるセルを色付けする方法をご教示いただけないでしょうか。
列 An Bn Cn Dn　 En Fn Gn Hn 　In Jn Kn Ln　 (n=1,2,3,・・・n)
An～Hnのセルには「使用」または「未使用」のコメントが入力されています。
InはAn,En、JnはBn,Fn、KnはCn,Gn、LnはDn,Hnのコメントによって色付けします。
<やりたいこと>
1.　In～Hnが空欄なら、2,3,4の処理は行わない。
2.　En=「使用」かつAn=「未使用」　→　In：黄で色付け
　　Jn,Kn,Lnはそれぞれの対象セルの状態で色付け
3.　En=「未使用」かつAn=「使用」　→　In：シアンで色付け
　　Jn,Kn,Lnはそれぞれの対象セルの状態で色付け
4.　En=An=「使用」　→　In：ピンクで色付け
　　Jn,Kn,Lnはそれぞれの対象セルの状態で色付け
　＊行数nは、シートによって様々です。最大512行です。

とりあえず条件付書式を設定して対応したのですが、マクロを使用すれば簡便化できると聞きました。しかし初心者の為、マクロ知識が乏しく判りません。同じ処理を施したいエクセルファイルが多数あり、なんとか効率よく作業ができないかと思案しています。どなたかマクロ処理をご教示していただけないでしょうか。宜しくお願い致します。

回答No.4

hige_082 · ベストアンサー

やりたいことがよくわかりませんし
禁止事項で丸投げ禁止と有りますので
参考になりそうな、コードを提示しておきます
'------------------------------------------------------------------
Sub test()
Dim i As Integer
For i = 1 To 512
If Range("I" & i).Value <> "" Or Range("J" & i).Value <> "" Or Range("K" & i).Value <> "" Or Range("L" & i).Value <> "" Then
If Range("A" & i).Value = "使用" And Range("E" & i).Value = "使用" Then Range("I" & i).Font.ColorIndex = 7
If Range("A" & i).Value = "使用" And Range("E" & i).Value = "未使用" Then Range("I" & i).Font.ColorIndex = 8
If Range("A" & i).Value = "未使用" And Range("E" & i).Value = "未使用" Then Range("I" & i).Font.ColorIndex = 6
End If
Next i
End Sub
'------------------------------------------------------------------
アレンジはご自分で

お礼

ご回答をどうもありがとうございました。
質問内容が言葉足らずだったようで反省するとともに、この場をお借りしてお詫びいたします。

それでも貴重なアドバイス、とてもありがたく参考させて頂きます。
では、失礼致します。

回答No.3

某HN クロメート(Chromate)（@CoalTar）

マクロとのことなので お力になれませんが条件付き書式では
こんな感じでしょうか？
I列からL列までを選択する(I1セルがアクティブであること)
条件付き書式
条件1 数式が =AND(A1="未使用",E1="使用",COUNTA($I1:$L1)=4)
　 　 書式で黄色
条件2 数式が =AND(A1="使用",E1="未使用",COUNTA($I1:$L1)=4)
　 　 書式でシアン
条件3 数式が =AND(A1="使用",E1="使用",COUNTA($I1:$L1)=4)
　 　 書式でピンク

をマクロの記録をして対処できませんか？

# コメントってセルに挿入されるコメントのことじゃないですよね

補足

ご回答どうもありがとうございました。
また、自分の質問が不十分だったようなので訂正します。

「1.　In～Hnが空欄なら、2,3,4の処理は行わない。」
と質問に記載しましたが表現が曖昧でした。
正しくは
「1.　Inが空欄ならInは色付けしない。
　　　Jnが空欄ならJnは色付けしない。
　　　Knが空欄ならKnは色付けしない。
　　　Lnが空欄ならLnは色付けしない。」
です。紛らわしい書き方をしてすみません。
（ちなみに色付けの優先順位は、高いほうから順に<やりたいこと>の１→４→２→３です。）

というわけですので、条件付書式設定には、CoalTarさんが回答を下さった条件式から「COUNTA($I1:$L1)=4」を省いた式を設定しています。

マクロ初心者なので、条件１、２、３数式をマクロに記録できるかどうか判りませんが、いろいろなサイトで調べて見ます。

＞# コメントってセルに挿入されるコメントのことじゃないですよね
はい。『コメント』とは予め入力されている文字列のことです。（An～Hnには「使用」「未使用」のいずれかが必ず入力されており、In～Lnには空欄か任意の文字列が入力されています。）

回答No.2

FEX2053

VBAは動態でデータを決定していくため、リアルタイムで内容が変わる
処理には余り向いていません。データを全部入力して、あとで一気に
変換する、と言うのなら比較的簡単なんですが・・・。

現状でも「条件付書式」はちゃんと出来ているようですので、「コピー」
「形式を選択して貼り付け」「書式」とすれば、「条件付書式」も
きっぱりコピーしてくれます。

ちなみに「条件付書式」の参照先セルを、「=$A$1」などから「=A1」に
書き換えておくのを忘れないで下さい。これをサボると、書式コピー時
に参照先セルが自動的に変動しませんので。

補足

丁寧なご回答、ありがとうございます。
説明不足でした。使用するファイルは既に全データが入力されています。「使用」「未使用」のコメントは変りません。但し、行数はファイル毎に異なり、最大で512です。

やはり、条件付書式の方が簡単なようですね。
ただ、今後参照するセルが増えた場合(エクセル２０００なので条件付書式では３つまでしか登録できません）どうすればよいのか考えておきたくて、投稿した次第です。

回答No.1

n-jun

http://officetanaka.net/excel/vba/cell/cell04.htm
http://www.officepro.jp/excelvba/cell_comment/index2.html

などが参考になるかもです。
違ったらごめんなさい。

お礼

早速のご回答、どうもありがとうございます。
添付していただいたサイトを見てみます。