|
一応サンプル
UserForm上に CommandButton1〜CommandButton3があり
Sheet1〜Sheet3の A1 の日付によって、UserFormが立ち上がったときにボタンの色をつける。
(テスト不十分)
Private Sub UserForm_Initialize()
Dim i As Integer
Dim d As Date
Dim c As OLE_COLOR
For i = 1 To 3
' シートiのA1の日付を取得
d = Worksheets(i).Range("A1").Value
' 月の差によって分岐
Select Case Abs(DateDiff("m", d, Date))
' 5ヶ月以上
Case Is >= 5
c = vbGreen
' 3ヶ月以上
Case Is >= 3
c = vbYellow
' 1月以上
Case Is >= 1
c = vbBlue
' 1月未満
Case 0
c = vbRed
End Select
' ボタンの色を設定
Me.Controls("CommandButton" & CStr(i)).BackColor = c
Next
End Sub
|
|