|
▼たけし さん:
>以前お世話になりました、たけしです。
>
>大変恥ずかしいのですが、この前問題が起きてしまいました。
>
>1、一ヶ月未満を赤に変更したいのですが、残り2ヶ月をきると赤に変わってしまいます。。
> ⇒一ヶ月未満に設定すると、使用者がいないコマンドボタンも赤くなって
> しまうのです。
>
>2、残り2週間前になったら文章をメールにて送りたいのですが、方法が良くわかりません。。
>
> 素人質問で申し訳ないですが、ご教授のほどお願いします。
すいません。。これがコードです
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 = 1: c = vbRed ' 0,1ヶ月
Case Is = 2, 3, 4: c = vbYellow ' 2,3,4ヶ月
Case Is = 5, 6: c = vbGreen ' 5ヶ月以上
Case Else: c = vbWhite
End Select
' ボタンの色を設定s
UserForm1.Controls("CommandButton" & CStr(i)).BackColor = c
Next
|
|