Excel VBA質問箱 IV

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

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


24520 / 76732 ←次へ | 前へ→

【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 質問
【57561】Re:ユーザーフォーム上のテキストボックス... りん 08/9/2(火) 21:04 回答
【57566】Re:ユーザーフォーム上のテキストボックス... 連絡 08/9/2(火) 22:25 発言
【57628】Re:ユーザーフォーム上のテキストボックス... kome 08/9/5(金) 23:05 お礼

24520 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free