vba numara biçimi: birden çok activex metin kutusu için biçimi değiştirme

Question

Bir grup activex metin kutusu var ve yapmak istediklerim belirli bir metin kutusu sayısı için sayı biçimini değiştirmek.

Sonuçta, istediğim tüm metin kutularını kodlayabileceğim tek bir alt yordam istiyorum - textbox1, textbox2, textbox15 - metin kutusunun sayısı alakasız ve sayı biçimi "###, ###, # ##". Örneğin ...

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

Ben metin kutusu subs bir demet olmamasından önlemek çalışıyorum.

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

ve sonra başka alt ...

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

ve başka alt ...

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

Örnek

mantıklı umuyoruz. Teşekkürler!

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

ama çalışmıyor:

denedim.

Ayrıca genel bir alt ad oluşturmayı ve biçim kodunu koymayı denedim, ancak çalışmadım.

Eğer birisi bana yardım edebilirse, bu çok takdir edilecektir.

Teşekkürler.

Answer 1

Access is bu, textbox'ın .Format özelliğini ayarlamanız gerekir. Metin kutusu nesnesini bir biçime eşit olarak ayarlamanız yeterlidir. Nesne formatları eşit olamaz. İlgili TextBox1.Text = Format(TextBox1.Text, "###,###,###")

---

: Bu farklı bir Office VBA uygulamaları ise TextBoxt.Format("###,###,###")

, o zaman metni biçimlendirmek ve bunun gibi yeni biçimlendirilmiş metne metin 's .Text özelliğini ayarlamak isteyeceksiniz: Böyle bir şey deneyin benim yorumum aşağıda. Neden sadece workbook_open olayını kullanmıyorsunuz?

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