Application.InputBoxの表示形式

いつも大変お世話になっております。
連日の質問で申し訳ございません。
Application.InputBoxやInputBoxのテキストボックス？にはChangeイベントのような表示形式はあるのでしょうか？
入力したら表示形式を　#,##0　に自然となるようにしたいのですが
ご教示お願い致します。

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2022/08/10 00:17

＃１です

UserFormを代替えとして示しましたが、値の使い方で躓く可能性があるので
追記します
InputBoxの場合、セルに書き込む事や変数に代入するのは簡単なチェックは
必要かも知れませんが容易だと思います

UserFormの場合、セルに代入するのはあまり変わりませんが、
実行プロシージャで使われている変数に代入する場合は、少し通常と違う扱いになります

変数は、標準モジュールでグローバル変数として宣言します
こうする事でモジュール間で変数の使い廻しが出来ます

例　標準モジュール
Option Explicit
Public HOGE As Variant
Private Sub test()
UserForm1.Show
Range("A1") = HOGE
End Sub

UserForm1モジュール
Private Sub CommandButton1_Click()
HOGE = TextBox1.Value
Unload Me
End Sub

この回答へのお礼

２回にわたりアドバイスありがとうございます
ユーザーフォームで代替えが懸命ですね
感謝致します

お礼日時：2022/08/10 11:26

No.1 回答者： Qchan1962 回答日時： 2022/08/09 23:26

こんばんは

InputBoxメソッドや関数にイベントは無いようですね
引数にFormatに代わるものも見当たりませんね
参考サイト　http://officetanaka.net/excel/vba/tips/tips37.htm

なのでUserFormで作成するのが簡単だと思います
UserFormのChangeイベント例

Private Sub TextBox1_Change()
On Error Resume Next
With TextBox1
.Value = Format(.Text, "#,##0")
If IsNumeric(Right(.Text, 1)) = True Then
Exit Sub
End If
.Text = Left(.Text, Len(.Text) - 1)
End With
End Sub

未検証なので念のため、
On Error Resume Nextで逃げています。。