マクロ 日付の内容でセルを塗りつぶす

質問

セルに記載された日付が、『TODAY以上なら赤色』・『TODAY以下なら青色』・『それ以外なら塗り潰し無し』にしようと下記のマクロを記述しましたが、思うようになりませんでした。どうしたら治るでしょうか？御指導お願い致します。

Sub セルを色で塗りつぶす()
Dim C As Integer
C = 5
Do While Cells(5, C).Value <> ""
With Cells(6, C)
Dim Today As Date
Today = Date
Select Case .Value
Case Is <= Today
.Interior.ColorIndex = 8
Case Is >= Today
.Interior.ColorIndex = 3
Case Else
.Interior.ColorIndex = xlNone

End Select
End With
C = C + 1
Loop
End Sub

回答No.1

keithin · ベストアンサー

こんばんは。

まず。
そもそもの「算数」の問題ですが、「以上」とは「等しいか又は大きい」、「以下」とは「等しいか又は小さい」という意味です。
「今日以上」が赤で「今日以下」が青では、今日はいったいどちらでしょう。

次に。
問題の６行目には、一体全体「具体的に何が入ってくる」可能性があるのでしょう。
マクロ以前にエクセルの基本として、「今日より大きい」のは何も日付ばかりではありません。たとえば「履歴なし」といった文字列も、今日という数値よりも必ず「大きい」と判定されます。

＃言い換えると
具体的に「どんなデータが入ってるセル」で、意図したのと違う結果が現れて「思うようにならない」のか、目に見える「どうなっている」の情報が適切に説明されていません。

作成例：
sub macro1()
　dim c as long
　dim res as variant

　for c = 5 to cells(6, columns.count).end(xltoleft).column
　　if isdate(cells(6, c)) then
　　　if cells(6, c) < date then
　　　　res = 8
　　　else
　　　　res = 3
　　　end if
　　else
　　　res = xlnone
　　end if
　　cells(6, c).interior.colorindex = res
　next c
end sub

お礼

説明足らずで申し訳ありません。自分では分かるけど、初見の人には、この質問の仕方ではわかりませんよね。質問の要点としては、空欄まで色表示されてしまうので、空欄の時、色表示を無くすにはどうしたら良いのか？という質問でした。回答にはそれを上回る事（日付以外の文字の場合等）を書いてくれてありがとうございます。

日付か日付じゃないかを確認する『IsDate関数』があったんですね。勉強になりました。あと、このマクロ記述はかなり応用力と経験がないと書けないです。自分には応用力がかなりないので、マクロを書きまくるしかないのかなぁと思いました。