Excel VBA質問箱 IV

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

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


24519 / 76732 ←次へ | 前へ→

【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

こんな感じです。
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 お礼

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