Acil 0 ile 1 arasında çıkan bölüm sonucunu sıfıra yuvarlamasın?

[osman1309]

Merhaba, bölme sonucu 98/100=0,98 ondalıklı çıkması gereken 0,98 rakamını makro otomatik sıfır yapıyor. Bunu nasıl engellerim.

Sub oran()
odenen = Range("b1") '98
toplam = Range("b2") '100
Range("b3") = Round(odenen \ toplam, 2)
Range("b4") = odenen \ toplam
End Sub

 

[ÖmerFaruk]

Double tanımlama yapınca düzelecektir.
Örnek olarak şöyle kullanabilirsiniz.

Sub oran()
    Dim odenen As Double, toplam As Double, sonuç As Double
    odenen = Range("b1") '98
    toplam = Range("b2") '100
    sonuç = odenen / toplam
    Range("b3") = Round(sonuç, 2)
    Range("b4") = sonuç
End Sub

Not: ACİL olarak belirtmenize gerek yok. Çözmek isteyen sorunuz henüz cevaplanmamışsa cevaplama çalışacaktır. Sizin için acil olabilir ama bu bir şeyi değiştirmez. Forum kurallarına riayet edelim lütfen.

 

[osman1309]

Acil yetiştirmem gerekiyordu, çözüm basit olduğunu tahmin ettiğim için yazdım.Yardımın için çok çok teşekkür ederim. Allah razı olsun. (Ben değişkenleri karıştırmışım, yazmasaydın değişkeni kontrol etmek aklıma gelmezdi.) Kurallar dikkat ederim.