エクセル

質問

エクセルについて質問です。
__ A列 ____ B列____________ C列____ D列
１_番号_____工事件名____ 着手____ 竣功
２_ 20-1_ 上野ビル新設_H.20.4.1_H.20.10.1
３_ 20-2__東京ビル新設_H.20.5.1_H.20.11.1
４
５
６

上記の工事の件名表が何行もあるとして
竣功日が過ぎるとA列からD列まで、竣功月によって色を替えて
自動的にセルに色をつけたい。
条件付書式は、エクセル2003なので3つまでしかできないので
マクロでお願いします。

回答No.3

imogasi

>マクロでお願いします。
マクロに関しては、コードを作ってくれというのは、規約上、丸投げで禁止だと思う。勉強して自分でやり出すこと。
その過程での疑問を質問する。
ーーー
マクロの記録でセルに色をつけるコードはわかるでしょう。
＞竣功月によって色を替えて
なら１２種類の色を場合に分けてつけるのかな。であれば
１２のＣａｓｅ文を並べてIntrrior.ColorIndex=色コード
を書けばよい。
竣功済みかどうかはＴｏｄａｙと竣工日を比べる
全行を順次捉えるのは
Sub test01()
d = Range("A65536").End(xlUp).Row
MsgBox d
For i = 1 To d '開始ぎょう１行からの場合
'その行の竣工判別、竣工月判別、セル色設定
Next i
End Sub
で捉えられる。
ーー
月ごとに色を変えなければ、条件付期初式で出来そうなのに。

回答No.2

hige_082

詳細が良く分からないが
こんなのは如何？
条件付書式はダメ？
まあ、ものは試し
Ａ２、Ｂ２、Ｃ２、Ｄ２の
条件付書式　条件１に
=IF($D2<TODAY(),MOD(MONTH($D2),3)=0,"")
色を赤
条件２に
=IF($D2<TODAY(),MOD(MONTH($D2),3)=1,"")
色を青
条件３に
=IF($D2<TODAY(),MOD(MONTH($D2),3)=2,"")
色を黄

色は適当に変更してください
あとはオートフィルで書式コピー

回答No.1

n-jun

具体的にどこが不明なのでしょうか。