- Katılım
- 22 Temmuz 2005
- Mesajlar
- 228
- Excel Vers. ve Dili
- Excel-2003 Türkçe
- Altın Üyelik Bitiş Tarihi
- 03.03.2021
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox4 = Format(TextBox4, "#,###.00")
End Sub
selam arkadaşlar yukarıdaki formülü kullanıyorum. kuruş taraflarını yuvarlıyarak üste veya alta tamamlıyor. benim istediğim kuruşu aynen yazması. Örnek olarak: 153,35 yazmak istiyorum, 153,00 yazıyor veya 153,65 yazmak istiyorum 154,00 yazıyor. benim istediğim yazdığım aynı değeri yazması. yardımcı olursanız sevinirim.
bir de butonun kod bölümüne bu formülü verdim yinede olmadı.
TextBox4 = Replace(Round(TextBox4 * 1, 2), ".", ",")
TextBox4 = Format(TextBox4, "#,###.00")
End Sub
selam arkadaşlar yukarıdaki formülü kullanıyorum. kuruş taraflarını yuvarlıyarak üste veya alta tamamlıyor. benim istediğim kuruşu aynen yazması. Örnek olarak: 153,35 yazmak istiyorum, 153,00 yazıyor veya 153,65 yazmak istiyorum 154,00 yazıyor. benim istediğim yazdığım aynı değeri yazması. yardımcı olursanız sevinirim.
bir de butonun kod bölümüne bu formülü verdim yinede olmadı.
TextBox4 = Replace(Round(TextBox4 * 1, 2), ".", ",")