|
▼ichinose さん:
早速ご解答ありがとうございました。
>UserformのInitializeイベントで
>'========================================
>Private Sub UserForm_Initialize()
> Calendar1.Today
>End Sub
>
>とすれば、ユーザーフォームを表示するタイミングで本日の日付を
>表示しませんか?
表示できました。ありがとうございます。
Initializeの意味が少し分かりました。あと一点教えていただけませんでしょうか。
現在次のようなコードを記述していますが
Private Sub Calendar1_Click()
'Calendar1 = Format("ggge""年""mm""月""dd""日""")
With Range("C65536").End(xlUp).Offset(1, 0)
.Value = Calendar1.Value
End With
End Sub
Private Sub UserForm_Initialize() '追加分
Calendar1.Today
End Sub
カレンダーの玉をクリックすると、クリックした年月日が
2005/10/29とA列に入りますが、これを和暦にしょうと思い
⇒Calenndar1=Format("ggge""年""mm""月""dd""日""")とコードを
加えると、
実行時エラー400
フォームは既に表示されているので、モーダル表示することはできません
といつエラーがでます。
和暦にするための、コードの訂正を教えてください。
|
|