|
こんばんは。現在ExcelVBAでプログラムをくんでいるのですが、どうにも分からないところがあったので投稿いたしました。
どなたか教えてくださいませ。。
ユーザーフォーム上にテキストボックスを設置し、マクロの実行をすると本日の月と日が初期値として表示されるようにしたいのです。
現在、何とかここまできました。↓
Private Sub txtDate_Initialize1()
Worksheets("日時").Select
UserForm1.Caption = "日付入力"
With TextBox1 '月表示
.Value = Month(Now())
.Value = Format(Date, "mm")
.SetFocus
End With
With SpinButton1
.Max = 12
.Min = 1
End With
End Sub
Private Sub txtDate_Initialize2()
Worksheets("日時").Select
UserForm1.Caption = "日付入力"
With TextBox2 '日にち表示
.Value = Day(Now())
.Value = Format(Date, "dd")
.SetFocus
End With
With SpinButton2
.Max = 31
.Min = 1
End With
End Sub
月と日にちは別々のテキストボックスに入れるようにしたいのです。
どうにも前に進まず、困り果てております。どなたか教えてくださいませ。。
よろしくお願いします。
|
|