エクセルVBA テキストボックスに３桁ごとにコンマ

エクセルＶＢＡの質問です。
TextBoxに金額を入力してもらうのですが、入力時３桁ごとにコンマが打たれるように表示できないでしょうか？

No.2 ベストアンサー 回答者： M-SOFT#2 回答日時： 2006/09/14 14:22

こんにちは。

TextBoxのChangeイベントを使うのはどうでしょうか。

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1.Text, "#,##0")
End Sub

計算に使うときはデータ型変換関数を使うといいでしょう。金額と言うことなので小数はないとしてCLngを使うといいでしょう。

この回答へのお礼

回答ありがとうございます。
できました。

お礼日時：2006/09/14 15:05

No.1 回答者： tokochan22 回答日時： 2006/09/14 11:21

テキストボックスに入力した値を直にカンマ数字に変換すると単純にうまくいくかどうかわかりませんが、Format関数を使えばできます。

入力した値を他のラベル等に表示するのであれば、Format関数をかけるだけで解決します。

補足として、カンマを含む数字はValをかけるとカンマのところで切られたきがします。よく覚えてませんが。

この回答へのお礼

回答ありがとうございます。
質問に書いておくべきでしたが、初心者ですので、この説明だけではよくわかりませんでした。

お礼日時：2006/09/14 15:04