|
▼Blue さん:
>一応サンプル
>
>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
後、ここの日の比較はPC内の時間と比較しているんでしょうか>?
|
|