TextBox formatında

[muratgunay48]

Arkadaşlar, şöyle bir kod kullanıyorum.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1 = Format(TextBox1, "#,### TL")
End Sub

Bu kodu toplu olarak kullanmak mümkün mü. Mesela 1-20 TextBoxlar için. Tek kodla. Bir de ₺ 120.75 şeklinde yazsa.
Şimdiden teşekkür ederim.

 

[işsiz123]

Arkadaşlar, şöyle bir kod kullanıyorum.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1 = Format(TextBox1, "#,### TL")
End Sub

Bu kodu toplu olarak kullanmak mümkün mü. Mesela 1-20 TextBoxlar için. Tek kodla. Bir de ₺ 120.75 şeklinde yazsa.
Şimdiden teşekkür ederim.

Aşağıdaki kodu deneyebilirsiniz.

Dim a As Long

For a = 1 To 20

UserForm1.Controls("TextBox" & a) = Format(UserForm1.Controls("TextBox" & a), "#,### TL")

Next

 

[muratgunay48]

Aşağıdaki kodu deneyebilirsiniz.

Dim a As Long

For a = 1 To 20

UserForm1.Controls("TextBox" & a) = Format(UserForm1.Controls("TextBox" & a), "#,### TL")

Next

Teşekkür ederim hocam. Peki sembol için "₺ #.##" şeklinde düzeltsem çalışır mı.

 

[işsiz123]

Teşekkür ederim hocam. Peki sembol için "₺ #.##" şeklinde düzeltsem çalışır mı.

Çalışması lazım

 

[muratgunay48]

@işsiz123 hocam çalıştıramadım. Başında sonunda Sub olacak mıydı. Ya da yanlış yere mi yapıştırdım. Bir de ₺ işaretini koyamıyorum zaten ? çıkıyor. Bir de hemen ilk rakamı yazınca TL ibaresini koyuyor. Hani çalıştıramamıştın diyeceksiniz TextBox1 için yaptım. Denemek için.
Size zahmet bakar mısınız.
Tekrar teşekkür ederim, saygılarımla.

 

[muratgunay48]

@işsiz123 hocam şu kodu yazıyorum sıkıntı yok (hoş bunda da ₺ olmuyor)
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "#,##0.00 TL")
End Sub
Ama toplu olunca Private Sub ne yazacağım,
Teşekkür ederim.

 

[işsiz123]

@işsiz123 hocam şu kodu yazıyorum sıkıntı yok (hoş bunda da ₺ olmuyor)
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "#,##0.00 TL")
End Sub
Ama toplu olunca Private Sub ne yazacağım,
Teşekkür ederim.

Merhabalar
Örnek dosyayı bakabilirsiniz. İndirme Linki

 

[muratgunay48]

Merhabalar
Örnek dosyayı bakabilirsiniz. İndirme Linki

Hocam, ilginç oldu ama Userform kısmına

Private Sub UserForm_Initialize()
Dim a As Long
For a = 1 To 10
UserForm1.Controls("TextBox" & a) = Format(UserForm1.Controls("TextBox" & a), Label1.Caption & "#,##0.00 TL")
Next
End Sub

Kodunu yazdım, Sadece bunu, diğerlerini yazmadım. Userform açan buton hata verdi.