vba番号の形式：複数のアクティブなテキストボックスの形式を変更する

Question

私はアクティブなテキストボックスをたくさん持っていますが、私がしたいのは、特定の数のテキストボックスの数値フォーマットを変更することです。

最終的に私は自分の選択したすべてのテキストボックス（textbox1、textbox2、textbox15）をコーディングすることができます。テキストボックスの数は無関係で、数字の形式は "###、###、＃＃ ## "。たとえば...

Private sub textNumFormat_<whatever>() TextBox1.Text = Format(TextBox1.Text, "###,###,###") TextBox2.Text = Format(TextBox2.Text, "###,###,###") TextBox15.Text = Format(TextBox5.Text, "###,###,###") end sub

私はテキストボックスの潜水艦の束を持っていないないようにしようとしています。例

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

、その後、別のサブ...

Private Sub TextBox2_Change() TextBox2.Text = Format(TextBox2.Text, "###,###,###") End Sub

と別のサブ...

Private Sub TextBox15_Change() TextBox15.Text = Format(TextBox15.Text, "###,###,###") End Sub

は、それが理にかなって願っています。ありがとう！

私が試した：

Private Sub TextBox1_Change() TextBox1 = Format(TextBox1.Value, "###,###,###") TextBox2 = Format(TextBox1.Value, "###,###,###") TextBox5 = Format(TextBox1.Value, "###,###,###") TextBox10 = Format(TextBox1.Value, "###,###,###") End Sub

を、それは動作しません。

一般的なサブ名を作成してフォーマットコードを入力しようとしましたが、どちらも機能しませんでした。

誰かが私を助けることができたら、それは非常に感謝します。

ありがとうございました。

Answer 1

これがアクセスの場合は、テキストボックスの.Formatプロパティを設定する必要があります。テキストボックスオブジェクトをフォーマットと同じに設定しようとしています。オブジェクトはフォーマットと等しくない。これは別のOfficeの場合はVBAのアプリは、あなたがテキストの書式を設定し、このように新しくフォーマットされたテキストにテキストボックスの.Textプロパティを設定することになるでしょうTextBoxt.Format("###,###,###")

：このような何かを試してみてくださいについてTextBox1.Text = Format(TextBox1.Text, "###,###,###")

---

私のコメントは以下の通りです。なぜ単にworkbook_openイベントを使用しないのですか？

Private Sub Workbook_Open() 
    TextBox1 = Format(TextBox1.Value, "###,###,###") 
    TextBox2 = Format(TextBox1.Value, "###,###,###") 
    TextBox5 = Format(TextBox1.Value, "###,###,###") 
    TextBox10 = Format(TextBox1.Value, "###,###,###") 
End Sub