![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
【エクセル】複数のTextBoxに共通するChangeイベントを簡潔に書きたい
Excel(エクセル)
-
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
-
4
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
7
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
8
エクセルVBA シートモジュールにチェンジイベントを複数設定する方法を教えて下さい。 例えば、B列に
Visual Basic(VBA)
-
9
Excel-VBA>コントロールをグレイアウトするには?
Excel(エクセル)
-
10
複数のテキストボックスに同じ処理をしたい
Visual Basic(VBA)
-
11
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
12
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
13
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
14
複数個のTextBoxでいずれかの内容が変更された事の把握
Visual Basic(VBA)
-
15
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
16
Excel vbaで複数のテキストボックスの足し算
Visual Basic(VBA)
-
17
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
18
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
-
19
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
20
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
6月の第2 第4火曜日は何日...
-
月の第一週とは
-
よくある 『 第○(1・2・3・4・...
-
週2回のペースって だいたい何...
-
エクセルで毎月第2週日の水曜日...
-
[Excel] ある日の曜日が当月の"...
-
Consolidateメソッドの引数のSo...
-
曜日と曜の使い分けがわかりま...
-
毎○曜日って、使いますか?
-
一年の第何週目であるかを判断...
-
プルダウンで日付と曜日を取得する
-
平日朝の国道246線混雑状況につ...
-
毎週同じ曜日にラブホに行くと...
-
英語で「何年何月何日何曜日に」
-
簡素で美しく記述するには・・・・
-
指定した日付から曜日を求める。
-
高校の情報の授業でプログラム...
-
Javaについて。
-
1番好きな曜日と、1番嫌いな曜...
-
日本語問題 昨日は何曜日ですか...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
月の第一週とは
-
よくある 『 第○(1・2・3・4・...
-
エクセルで毎月第2週日の水曜日...
-
6月の第2 第4火曜日は何日...
-
毎○曜日って、使いますか?
-
週2回のペースって だいたい何...
-
燃えるゴミの日は何曜日ですか?
-
[Excel] ある日の曜日が当月の"...
-
【機械式腕時計のメカニズムの...
-
VBA。複数のChangeイベントをま...
-
Excelで第一〇曜日を求める方法...
-
日本語問題 昨日は何曜日ですか...
-
毎週同じ曜日にラブホに行くと...
-
曜日のなぞ
-
c言語の質問です。 ある月のカ...
-
ユーザー定義の(aaa)
-
今週とは何曜日から何曜日まで...
-
カレンダープログラム、曜日の...
-
曜日と曜の使い分けがわかりま...
-
西暦・月からカレンダーを表示
おすすめ情報