Çözüldü Sayı Yuvarlama Kodu

[cavanoos]

Merhaba arkadaşlar;

Alttaki kod ile bir üst satırdaki tutarı 0,02 ile çarpıyorum.
Fakat küsüratlı çıkıyor.
Yuvarla, aşağı yuvarla fonksiyonlarını bu koda ekleyebilir misiniz ?
Mesela 17,858 çıkıyorsa, 17,85 için ve 17,86 için kod ne olmalıdır ?

ActiveCell.Offset(0, 0).Value = ActiveCell.Offset(-1, 0).Value * 0.02

 

[Korhan Ayhan]

Deneyiniz.

17,86 için;

ActiveCell.Offset(0, 0).Value = WorksheetFunction.Round(ActiveCell.Offset(-1, 0).Value * 0.02, 2)

17,85 için;

ActiveCell.Offset(0, 0).Value = WorksheetFunction.RoundDown(ActiveCell.Offset(-1, 0).Value * 0.02, 2)

 

[cavanoos]

Korhan bey, teşekkür ederim, sorunum çözülmüştür.