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), ".", ",")