Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22032 / 76734

←次へ　｜　前へ→


	【60088】ラベルの日付表示についてのコンパイルエラーについて

vbaマクロン - 09/1/27(火) 10:35 -


	引用なし

	パスワード

ラベルの日付表示についてのコンパイルエラーについてご指導お願いします。
ラベル１に日付、ラベル２に曜日を表示させる構文を書きましたが、当初は動いていたのですが、最近、コンパイルエラーが表示されるようになりました。
構文は以下の通りです。
Private Sub UserForm_Initialize()

UserForm2.Label1 = Date

Dim MyDate, MyWeekDay
MyDate = Date
MyWeekDay = Weekday(MyDate)
If MyWeekDay = 1 Then
　 YOUBI = "日曜日"
ElseIf MyWeekDay = 2 Then
　 YOUBI = "月曜日"
ElseIf MyWeekDay = 3 Then
　 YOUBI = "火曜日"
ElseIf MyWeekDay = 4 Then
　 YOUBI = "水曜日"
ElseIf MyWeekDay = 5 Then
　 YOUBI = "木曜日"
ElseIf MyWeekDay = 6 Then
　 YOUBI = "金曜日"
ElseIf MyWeekDay = 7 Then
　 YOUBI = "土曜日"
End If
UserForm2.Label2 = YOUBI
End Sub

になりますが、このコンパイルエラーなど不安定を解消するには構文をどの様に直せばよろしいでしょうか？
ご指導お願いいたします。

0 hits

▼

【60088】ラベルの日付表示についてのコンパイルエラーについて vbaマクロン 09/1/27(火) 10:35

≪