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