エクセル シート上のTextBox（日付）

質問

今まではForm上にTextBoxを貼り、スピンボタンにて日付を変化させるのは
できるのですが、これをシート上で日付を動かすと
どのような記述の変化が必要なのでしょうか？
TextBoxはhidukeという名でしています！日付は出るのですが
スピンボタンは動きません！
すいません教えて下さい！

Private Sub SpinButton1_SpinDown()
Me.hiduke.Value = DateAdd("d", -1, Me.hiduke.Value)
End Sub

Private Sub SpinButton1_SpinUp()
Me.hiduke.Value = DateAdd("d", 1, Me.hiduke.Value)
End Sub

Private Sub hiduke_Change()
Me.hiduke.Value = Format(Now(), "yyyy/mm/dd")
End Sub

回答No.1

jcctaira · ベストアンサー

pop2003さん　初めまして。

次のイベントが問題です。
Private Sub hiduke_Change()
Me.hiduke.Value = Format(Now(), "yyyy/mm/dd")
End Sub

これはテキストボックスの値が変化した時に発生するイベントです。
SpinButtonで日付を１日変化させた時に【hiduke_Change】を処理してしまうので
結局今日の日付を毎回再設定してしまいます。

今日の日付は１回だけ初期値を与えれば良いのだと思います。
例えばワークブックを開いた時にセットをする等々
Private Sub Workbook_Open()
　Sheets("Sheet1").hizuke.Value = Format(Now(), "yyyy/mm/dd")
End Sub

【Private Sub hiduke_Change()】は削除してください。