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

agd

Katılım
19 Ağustos 2005
Mesajlar
31
Excel Vers. ve Dili
OfficeXP/TR
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.
 
Katılım
24 Mayıs 2005
Mesajlar
462
Excel Vers. ve Dili
Excel 2003 Türkçe
Selamlar, lütfen ekteki örneği incelermisiniz. Kolay gelsin.
 

agd

Katılım
19 Ağustos 2005
Mesajlar
31
Excel Vers. ve Dili
OfficeXP/TR
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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
 
Katılım
17 Ağustos 2004
Mesajlar
222
Excel Vers. ve Dili
Ofiste Excel 2000 Türkçe
Evde Excel 2003 Türkçe
Merhabalar
Ekteki dosya class modüle kullanarak yapılmıştır.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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.
 
Üst