|
こんばんは。
いつもお世話になっております。
今回、表記件についてご質問させていただきました。
『内容』
1.保管する期限を決めて、「5ヶ月前=緑 3ヶ月前=青 1ヶ月前=赤」などに色 分けを行っており、期限を設定していない(使用していない時)は白で表示
させるようにしています。
しかし、残り一ヶ月前になっても、赤ではなく白に変わってしまいます。
どなたか、ご教授お願いします。。。
コードは以下のとおりです。
Dim i As Integer
Dim d As Date
Dim c As OLE_COLOR
For i = 1 To 39
' シートiのA1の日付を取得
d = Worksheets(i + 1).Range("A91").Value
' 月の差によって分岐
Select Case Abs(DateDiff("m", d, Date))
Case Is = 0
c = vbWhite
' 5ヶ月以上
Case Is >= 5
c = vbGreen
' 3ヶ月以上
Case Is >= 3
c = vbBlue
' 1月未満
Case Is > 1
c = vbRed
End Select
' ボタンの色を設定s
UserForm1.Controls("CommandButton" & CStr(i)).BackColor = c
|
|