VBA。複数のChangeイベントをまとめる方法

VBA初心者です。下記のようにTextBoxに入る日付を複数設定していますが、ひとつにまとめることは可能でしょうか。

'宿泊日1曜日を表示
Private Sub TextBox24_Change()
TextBox24.Value = Format(TextBox24.Value, "yyyy/m/d(aaa)")
End Sub

'宿泊日2曜日を表示
Private Sub TextBox51_Change()
TextBox51.Value = Format(TextBox51.Value, "yyyy/m/d(aaa)")
End Sub

'宿泊日3曜日を表示
Private Sub TextBox78_Change()
TextBox78.Value = Format(TextBox78.Value, "yyyy/m/d(aaa)")
End Sub

'宿泊日4曜日を表示
Private Sub TextBox105_Change()
TextBox105.Value = Format(TextBox105.Value, "yyyy/m/d(aaa)")
End Sub

No.2 回答者： Qchan1962 回答日時： 2022/03/31 13:31

こんにちは

＃１様が回答されている通り、クラスを作り
Public Property Set すれば一定のイベントをまとめる事は出来ます
方法については、参考サイトを見てください。
https://excel-ubara.com/excelvba3/EXCELFORM023.h …

少し気になる点が、、
TextBox24_Change()・・・これって１文字を入力した段階で実行されてしまうのではないでしょうか？（良いのかもしれませんが）
自身のフォーマットを変更する時などは
_Exit(ByVal Cancel As MSForms.ReturnBoolean)　などのイベントを使用すると思いました。
しかし、
Exitが良いと思うのですが、Exitイベントはクラスモジュールで使えないので
他の対策が必要と思われます。

この回答へのお礼

参考サイトありがとうございます。勉強しながら参考にしてみます。

お礼日時：2022/03/31 14:46

No.1 回答者： ShowMeHow 回答日時： 2022/03/31 12:45

https://mat0401.info/blog/access-withevents/
クラスを作ることによって、コントロール配列っぽく扱うことができます。

この回答へのお礼

ご返答ありがとうございます。初心者には難しそうですが勉強してみます。

お礼日時：2022/03/31 14:45