Excel VBA質問箱 IV

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

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


4259 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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

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

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

【57561】Re:ユーザーフォーム上のテキストボック...
回答  りん E-MAIL  - 08/9/2(火) 21:04 -

引用なし
パスワード
   kome さん、こんばんわ。

>ユーザーフォーム上にテキストボックスを設置し、マクロの実行をすると本日の月と日が初期値として表示されるようにしたいのです。

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

テキストボックスには直接与えず、スピンボタンの変化を取得するようにしました。
Private Sub UserForm_Initialize()
   UserForm1.Caption = "日付入力"
   '日を
   SpinButton2.Min = 1
   SpinButton2.Max = 31 '暫定最大値
   SpinButton2.Value = Day(Date) '本日表示
   '月
   With SpinButton1
    .Min = 1
    .Max = 12
    .Value = Month(Date) '今月表示
   End With
End Sub
'
Private Sub SpinButton1_Change()
  TextBox1.Value = SpinButton1.Value
  '月間日数計算
  YY = Year(Date) '今年が基準
  MM = SpinButton1.Value
  dt = DateSerial(YY, MM + 1, 1) - DateSerial(YY, MM, 1)
  '変わっていたら変更
  With SpinButton2
   If dt <> .Max Then .Max = dt
  End With
End Sub
'
Private Sub SpinButton2_Change()
  TextBox2.Value = SpinButton2.Value
End Sub

こんな感じです。

【57566】Re:ユーザーフォーム上のテキストボック...
発言  連絡  - 08/9/2(火) 22:25 -

引用なし
パスワード
   ▼kome さん:
マルチ先は明確にマルチポストは禁止しています。
どちらかを閉じるべきです。

※ここでも明確にマルチポストを禁止している掲示板とのマルチポストは
禁止しています。

【57628】Re:ユーザーフォーム上のテキストボック...
お礼  kome  - 08/9/5(金) 23:05 -

引用なし
パスワード
   りん さん、ありがとうございました。おかげさまで完成いたしました!

本当にありがとうございますm(__)m

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