Virgülden Sonraki Basamak Sayısı

[quesh]

Merhabalar. 1'den 300'e kadarki textboxlarımın içindeki değerlerin virgülden sonra 2 basamağının gösterilmesini istiyorum. (2,15 gibi) .

kodu nasıl düzenleyebilirim?

Teşekkürler

for i=1 to 300
controls("textbox"&i) ..... ?

 

[BASKICI]

Merhabalar .
Bunu Class Module açarak İçine yapıştırın

Public WithEvents txt As MSForms.TextBox

Private Sub txt_Change()
txt = Format(txt, 2)
End Sub

Bunu da Userformun kod sayfasına yapıştırınız.

Dim txtler() As New Class1

Private Sub UserForm_Initialize()
Dim kontrol As Control, i As Integer

i = 1
For Each kontrol In UserForm1.Controls
If Left(kontrol.Name, 7) = "TextBox" Then
ReDim Preserve txtler(i)
Set txtler(i).txt = kontrol
i = i + 1
End If
Next
End Sub

Kodlar alıntıdır. Takıldığınız yerde yine sorarsanız yardımcı olmaya çalışırım. İyi çalışmalar

 

[quesh]

Bu kadar uzun ve karışık bir kod olmamalı sanki... ?

 

[BASKICI]

Tek bir Textbox olsaydı eğer
Textbox1.Text = Format ( Textbox1.Text,2) şeklinde çözülebilirdi. Textboxların tümüne bu formatı uygulamanız için Class module kullanılması gerekir.

 

[quesh]

Teşekkür ederim, söylediklerinizi yaptım ancak yine de virgülden sonra 2 basamak değil gelmiyor , bütün basamaklar geliyor.

Tek bir Textbox olsaydı eğer
Textbox1.Text = Format ( Textbox1.Text,2) şeklinde çözülebilirdi. Textboxların tümüne bu formatı uygulamanız için Class module kullanılması gerekir.