ＴＥＸＴＢＯＸの表示形式の変更について

ＥＸＣＥＬのＶＢ　独学でやってるものですが、

フォームの中のtextbox内に数値を入力して
ENTERを押したらtextboxに入力された数値が
カンマでくぎられた数字（1,000,000のように）
にしたいのですがアドバイスください

Selection.NumberFormatLocal = "#,##0_ "
を使えばできそうな気がするのですが・・・
あと一歩がわかりません。

No.2 ベストアンサー 回答者： Wendy02 回答日時： 2005/07/09 00:10

こんばんは。

こんな風でどうかな？

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, _
　　　　　　　　　　　　　 ByVal Shift As Integer)
Dim num As Variant
If KeyCode = 13 Then
　num = TextBox1.Text
　If IsNumeric(num) Then
　　TextBox1.Text = Format$(num, "#,##0")
　End If
End If
End Sub

No.3 回答者： imogasi 回答日時： 2005/07/09 20:43

＞Selection.NumberFormatLocal = "#,##0_ "

を使えばできそうな気がするのですが・
Ｓｅｌｅｃｔｉｏｎ，NumberFormatLocalなどはエクセルのＲａｎｇｅに関するもので、それに貼り付けるＡｃｔｉｖｅＸのテキストボックスとは、別世界と考えるほうがよい場合が多いです。NumberFormatはＲａｎｇｅのほかにＤＡＴＡＬＡＢＥＬ他数個あがってますが。ただし上記の例を離れると、一般にはＳｅｌｅｃｔｉｏｎはオブジェクトを選択します。
ＶＢＡの知識を応用する（特にＶＢに類推する）場合は、個別に調べる心がけが必要です。
正解はすでに出ています。Ｆｏｒｍａｔ　関数の利用でしょう。

この回答へのお礼

ありがとうございました　参考になりました

お礼日時：2005/07/11 08:23

No.1 回答者： mfuku 回答日時： 2005/07/08 18:00

下記のようにFormat関数を使えば簡単です。

テキストボックス.Text = Format(テキストボックス.Text, "#,##0")