textbox binlik ayraç

[Erdem Akdemir]

herkese selamlar

aşağıdaki kodu kullanınca textbox'a veri girerken binlik ayraç'ı ekliyor ama sayının küsüratı varsa girmeme izin vermiyor

kodu nasıl değiştirmem gerekir

iyi çalışmalar

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

 

[uzmanamele]

herkese selamlar

aşağıdaki kodu kullanınca textbox'a veri girerken binlik ayraç'ı ekliyor ama sayının küsüratı varsa girmeme izin vermiyor

kodu nasıl değiştirmem gerekir

iyi çalışmalar

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

merhaba
bu şekilde deneyiniz

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

 

[millis]

herkese selamlar

aşağıdaki kodu kullanınca textbox'a veri girerken binlik ayraç'ı ekliyor ama sayının küsüratı varsa girmeme izin vermiyor

kodu nasıl değiştirmem gerekir

iyi çalışmalar

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

Private Sub TextBox1_AfterUpdate()
If TextBox1 = "" Then
MsgBox " Bu alanı boş geçemezsiniz...!"
TextBox1.SetFocus
End If
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub

Private Sub TextBox1_Change()
On Error Resume Next
Selection.NumberFormat = "#,##0.00"
If IsNumeric(TextBox1.Value) Then
Exit Sub
Else
TextBox1 = ""
End If

End Sub


Birde bu şekilde deneyin.

 

[Erdem Akdemir]

ilgilenen arkadaşlara teşekkür ederim

sayın uzmanamele sizin verdiğiniz kodda textbox'a veri giremiyorum

sayın millis sizin verdiğiniz ilk kod virgülden sonra sayı girmeme izin veriyor ama sayıyı girerken binlik ayracını otomatik olarak eklemiyor, textbox'tan çıktıktan sonra ekliyor

ikincisininde bir işlevi olmadı


benim istediğim

textbox'a sayıyı girerken binlik ayracını otomatik eklesin ve aynı zamanda sayının küsüratınıda girebileyim

 

[NBATMAN]

Merhaba ,

İyi akşamlar...

Bilgi girdiğiniz textboxu bir değişkene atayınız.Kodlar aşağıdaki gibidir...

.....sub
dim say as currency
say=Textbox1.text
TextBox1 = Format(say, "#,##0.00")
....
....
....
....
End sub

 

[Erdem Akdemir]

Merhaba ,

İyi akşamlar...

Bilgi girdiğiniz textboxu bir değişkene atayınız.Kodlar aşağıdaki gibidir...

.....sub
dim say as currency
say=Textbox1.text
TextBox1 = Format(say, "#,##0.00")
....
....
....
....
End sub

sayın nbatman

yaptım ama olmuyor

siz küçük bir örnek ekleyebilirmisiniz?

 

[Korhan Ayhan]

Selamlar,

Daha önce bu konuyla ilgili örnek bir dosya hazırlamıştım. Dosyayı yeniledim. Aşağıdaki linkten ulaşabilirsiniz. İncelermisiniz.

[URL="http://www.excel.web.tr/showthread.php?t=15837&highlight=karakter+kontrol"]Textboxa Girişte Karakter Kontrolü (Rakam/Harf) [/URL]

 

[Erdem Akdemir]

Selamlar,

Daha önce bu konuyla ilgili örnek bir dosya hazırlamıştım. Dosyayı yeniledim. Aşağıdaki linkten ulaşabilirsiniz. İncelermisiniz.

[URL="http://www.excel.web.tr/showthread.php?t=15837&highlight=karakter+kontrol"]Textboxa Girişte Karakter Kontrolü (Rakam/Harf) [/URL]

korhan bey

çok teşekkür ederim

çok faydalı bir çalışma