テキストボックスの入力に桁区切りをつけたい

質問

エクセル２００２使用です。
初歩的な質問ですいませんがよろしくお願いします。

ユーザーフォームをつくり、テキストボックスを置きました。
テキストボックスには、ユーザーが入力するのですが、50000と入力したら、50,000と表示するようにしたいのですが、どうしたらよいのでしょうか？

また、テキストボックスの入力制御が詳しく載っているHPをお知りであれば教えていただきたいのですが・・・

よろしくお願いします。「

回答No.1

nazo-nazo · ベストアンサー

後は、試行錯誤しながらやってね。

Private Sub TextBox1_Change()

mystr = Format(TextBox1.Text, "###,###,###")

TextBox1.Text = mystr

End Sub

お礼

nazo-nazo 様　早速のご回答ありがとうございました。上手くいきました。

変数程度の知識しかまだない初心者で、大変助かりました。

今後ともよろしくお願いします。

回答No.2

mach999

とりあえず、こんなので一応動きます（もっと簡単な方法はあるかも）。

Private s As String

Private Sub TextBox1_GotFocus()
　　TextBox1.Text = s
End Sub

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

お礼

mach999 様　早速のご回答ありがとうございました。
今回は、＃1さんの方が、コードが短いので使わせていただきました。

おかげで、あたらしいイベントを覚えられました。
今後ともよろしくお願いします。