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
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは
#1様が回答されている通り、クラスを作り
Public Property Set すれば一定のイベントをまとめる事は出来ます
方法については、参考サイトを見てください。
https://excel-ubara.com/excelvba3/EXCELFORM023.h …
少し気になる点が、、
TextBox24_Change()・・・これって1文字を入力した段階で実行されてしまうのではないでしょうか?(良いのかもしれませんが)
自身のフォーマットを変更する時などは
_Exit(ByVal Cancel As MSForms.ReturnBoolean) などのイベントを使用すると思いました。
しかし、
Exitが良いと思うのですが、Exitイベントはクラスモジュールで使えないので
他の対策が必要と思われます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい 3 2022/04/11 13:53
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) Excel VBA ユーザーフォーム内のラベルにテキストボックスの小計を出す方法 5 2022/08/17 14:27
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
【エクセル】複数のTextBoxに共通するChangeイベントを簡潔に書きたい
Excel(エクセル)
-
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
-
4
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
5
エクセルVBA シートモジュールにチェンジイベントを複数設定する方法を教えて下さい。 例えば、B列に
Visual Basic(VBA)
-
6
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
7
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
8
Excel-VBA>コントロールをグレイアウトするには?
Excel(エクセル)
-
9
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
10
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
11
エクセルVBAでマルチページの切り替え方法の件で
Excel(エクセル)
-
12
複数のテキストボックスに同じ処理をしたい
Visual Basic(VBA)
-
13
EXCEL VBAのユーザーフォームに引数を渡す方法について
Excel(エクセル)
-
14
UserForm1.Showでエラーになります。
工学
-
15
Excel vbaで複数のテキストボックスの足し算
Visual Basic(VBA)
-
16
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
-
17
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
18
エクセルVBA ユーザーフォーム 複数のコンボボックス 同一リスト
Excel(エクセル)
-
19
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
20
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
土曜日の26時って何曜日の何時...
-
月の第一週とは
-
よくある 『 第○(1・2・3・4・...
-
エクセルで毎月第2週日の水曜日...
-
燃えるゴミの日は何曜日ですか?
-
毎○曜日って、使いますか?
-
平日朝の国道246線混雑状況につ...
-
週2回のペースって だいたい何...
-
c言語の質問です。 ある月のカ...
-
1975年(昭和50年)4月15日...
-
ユーザー定義の(aaa)
-
第2週の水曜日ってどうやって判...
-
VBA。複数のChangeイベントをま...
-
高校の情報の授業でプログラム...
-
今月は1日が日曜日で、31まであ...
-
ExcelVbaファイルを.xls から ....
-
英語で「何年何月何日何曜日に」
-
簡素で美しく記述するには・・・・
-
一年の第何週目であるかを判断...
-
VBAでExcelのヘッダーに文字列+...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
よくある 『 第○(1・2・3・4・...
-
月の第一週とは
-
エクセルで毎月第2週日の水曜日...
-
週2回のペースって だいたい何...
-
毎○曜日って、使いますか?
-
[Excel] ある日の曜日が当月の"...
-
週休3日制で土日の他にもう一日...
-
VBA。複数のChangeイベントをま...
-
毎週同じ曜日にラブホに行くと...
-
Excelで第一〇曜日を求める方法...
-
ユーザー定義の(aaa)
-
6月の第2 第4火曜日は何日...
-
今週とは何曜日から何曜日まで...
-
日本語問題 昨日は何曜日ですか...
-
曜日と曜の使い分けがわかりま...
-
土曜日の26時って何曜日の何時...
-
曜日のなぞ
-
時計の曜日がいつのまにか違う
-
エクセル、条件付書式について...
-
指定曜日にMsgBox表示は可能で...
おすすめ情報