|
▼taka さん:
>フォーム上combobox1とlabel1〜31(1行目)と32〜62(2行目)が貼り付けてあります。label1〜31は日付なので1〜31の数字を打ってあります。comboboxから月を選択すると、label32〜62に曜日が出るようにし、土曜は薄い青、日曜は薄い赤にしたいのですが、どういうコードを記入すればよいですが?
>是非よろしくお願い致します。
>又、他にこうした方が良いというのがあれば教えて下さい。
----------------------------------------------
ラベルの文字色を変える
Me.Label1.ForeColor = vbRed
----------------------------------------------
曜日の判定
i = Weekday(Now)
If i = 1 Then
MsgBox "日曜"
ElseIf i = 7 Then
MsgBox "土曜"
Else
MsgBox "平日"
End If
----------------------------------------------
|
|