|
▼ハト さん:
>▼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
>----------------------------------------------
>
どのようなコードを記入すれば曜日がでてくるのですか?
まったく検討がつきません・・・。
|
|