textbox 'ta YTL girişinde binlik ayıracının girişte ayırma

[agd]

iyi çalışmalar,

textbox1 'e ytl rakamı girilirken binlik ayıracını girişte otomatik koyması için nasıl bir format yazmalıyım.

teşekkürler.

 

[Ongun]

Selamlar, lütfen ekteki örneği incelermisiniz. Kolay gelsin.

 

[agd]

sayın ongun

Öncelikle ilginize ilginize teşekkür ediyorum.kodları inceledim. fakat kullacağım forumlarda fazla sayıda textbox olduğundan bir hayli yer kaplayacak . yine bu forumda daha kısa kod gördüğümü hatırlıyorum.fakat bulamadım.

ilginize tekrar teşekkürler.

 

[Levent Menteşoğlu]

Yazar yazmaz istediğiniz formata çevirmek kolay değil uzun kodlar gerektirir. Bunun yerine exit olayına yanı textboxtan çıkınca çevirmek çok daha pratiktir. Bunun içinde aşağıdaki gibi bir kod kullanmak yeterlidir.

[vb:1:b42a6b4183]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub
[/vb:1:b42a6b4183]

Eğer aynı formatı çok sayıda textboxa uygulayacaksanız aşağıdaki linki incelemenizi öneririm.

http://www.excel.web.tr/viewtopic.php?p=91571#91571

 

[class37]

Merhabalar
Ekteki dosya class modüle kullanarak yapılmıştır.

 

[Levent Menteşoğlu]

Bu konu üzerinde biraz kafa yorup iki alternatif hazırladım. Birincisi textboxa sayı yazılmaya başlandığı andan 2 sn sonra otomatikman formatlanıyor, ikincisinde ise sayılar tam sayıda olsa virgül ve virgülden sonra iki hane yazıldığı anda formatlanıyor. Örneğin 1256,00 şeklinde yazılmalıdır.