Excel VBA質問箱 IV

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

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


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

24526 / 76738

←次へ　｜　前へ→


	【57560】ユーザーフォーム上のテキストボックスに日付を表示するには

kome - 08/9/2(火) 20:37 -


	引用なし

	パスワード

こんばんは。現在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

月と日にちは別々のテキストボックスに入れるようにしたいのです。

どうにも前に進まず、困り果てております。どなたか教えてくださいませ。。
よろしくお願いします。

0 hits

▼

【57560】ユーザーフォーム上のテキストボックスに日付を表示するには kome 08/9/2(火) 20:37

≪