| |
▼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
----------------------------------------------
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
