TextBox formatında

muratgunay48 · 11 Aralık 2020

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

Kod:

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 · 11 Aralık 2020

muratgunay48' Alıntı:
Arkadaşlar, şöyle bir kod kullanıyorum.

Kod:

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.

Kod:

Dim a As Long

For a = 1 To 20

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

Next

muratgunay48 · 11 Aralık 2020

işsiz123' Alıntı:
Aşağıdaki kodu deneyebilirsiniz.

Kod:

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 · 11 Aralık 2020

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

Çalışması lazım

muratgunay48 · 12 Aralık 2020

@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 · 12 Aralık 2020

@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 · 12 Aralık 2020

muratgunay48' Alıntı:
@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 · 12 Aralık 2020

işsiz123' Alıntı:
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.