〔ExcelVBA〕ユーザーフォームテキスト

質問

ユーザーフォームから値の入力を受け付けるようにしています。
このとき、テキストボックスに入力された数値が3桁区切りで表示されるように出来ないでしょうか？数値を入力するボックスなので。
100万円以上の数値を入力するときに見づらくて困っています。

回答No.6

KenKen_SP

> 簡単に言うとどのような利用の仕方をするものなのでしょうか？

クラス化する最大のメリットはインスタンスが可能であること。

と言うと難しい話のように聞こえますが、実は単純な話です。今回の事例
で説明すると...電卓の入力動作には２種の制御が必要です。

　1.　入力をリアルタイムで桁区切りの数値にフォーマットする
　　　--＞他ご回答にあるとおり、Change イベントで実現します
　2.　入力時に数値しか入力できない
　　　--＞KeyDown イベントで実現します

通常ですと、以上のように２つのイベントプログラムを書くことになりますね。
では、この動作を100個のテキストボックスに適用するとしたらどうしますか？

必要イベント２×100個のテキストボックス ＝ 200

で 200 のイベントプログラムを書きますか？ では1000個なら？

全く同じ動作なのに効率が悪いですよね。そういう時にクラスが非常に
役立ちます。今回の場合、例え 100個のテキストボックスであろうとも

Private NumCtrl(1 To 100) As New NumTextbox
Private Sub UserForm_Initialize()
　　For i = 1 To 100
　　　　Set NumCtrl(i).Bind = Me.Controls("TextBox" & Cstr(i))
　　Next i
End Sub

これだけです。仮にテキストボックスが 1000 でも 2000 でもこの方法なら
どれだけ増えても簡単です。

同じ機能を複製して使いたいとき...そんな時にクラスが使われます。

２次的なメリットは機能のカプセル化です。

クラスでは決められたプロパティーを設定したり、機能を呼び出すだけで
ひとかたまりの処理がなされます。この時、クラス内のコードを理解して
使う必要はありません。

身近な例で言えば、Excel ワークシートや ThisWorkbook モジュール、
フォームは実は全てクラスなんですよ。

例えば、フォームのタイトルを変えるには

　　Userform1.Caption = "SAMPLE FORM"

なんてコードを書きます。Caption プロパティーを設定するだけで、ウインドウ
のタイトルが変わるんです。これは実際にはフォームクラスが裏で複雑な
処理をして Windows に数多くのメッセージを送って、Windows から返って
きたメッセージを解析して、やっと書き換わるものなのですが、ユーザーは
その煩雑な部分を意識することはありません。

　　Userform1.Caption = "SAMPLE FORM"

これだけ書けば、ちょろっと書き換わるんです。今回の NumTextbox クラス
も利用するのに必要なコードは、

　　NumCtrl(1).Bind = Textbox1

といった単純なコードです。

本当はものすごく複雑なことをやってるのだけれども、それをユーザーが
意識することなく、このように単純な手続きのみで処理ができる...
これがカプセル化です。

クラス...と聞いて腰が引ける人が多いのですが、上述のとおりコードを書く
人は、普段からクラスを使っているのです。意識してないだけなんですよね。

もちろんクラスを書くにはそれなりの知識が必要なのですが、コツさえ掴んで
しまえばそれほど難しくもなく、クラスを利用するに至っては非常に簡単な
ことなのです。

お礼

ありがとうございます。
効率よくコードを記述するためにも、将来的には心得たいですね。
でも、クラスの意味するところのイメージはできました。