|
今日は
分岐条件に不可解な点があるので、参考程度に見てください。
'UserForm1モジュールのPrivate Sub UserForm_Initialize()に
Select Case Abs(DateDiff("m", d, Date)) ' 月の差によって分岐
Case Is = 0, 1: c = vbRed ' 0,1ヶ月
Case Is = 2, 3, 4: c = vbBlue ' 2,3,4ヶ月
Case Is = 5, 6: c = vbGreen ' 5ヶ月以上
Case Else: c = vbWhite
End Select
' ボタンの色を設定s
UserForm1.Controls("CommandButton" & i).BackColor = c
'DoEvents '念のため
でどうですか。
>しかし、先ほど値を確認したところ、保管期限が(d=4月15日・date=4月30日)の場合のみでも白くなっています。
>
> ' 1月未満
> Case Is < 1
>
> c = vbRed
>赤になるコードを記述していますが、白くなってしまう原因がわかりません。。
|
|