Rakamları 5 ve katlarına yuvarlama.

[acolkesen1]

Merhaba,
Kod ile, virgülden sonraki rakamları iki haneli rakamlara 5 ve 5 in katları olacak şekilde hangisine yakınsa aşağı veya yukarı yuvarlamak istiyorum.
Örn;
2,2361 =2,25
2,2215 =2,20
0,64321=0,65
1,71256=1,70
1,75211=1,75
1,76256=1,75
1,77812=1,80
.. şeklinde yuvarlama yapabilmek için aşağı veya yukarı yuvarla fonksiyonları ile sonuç alamıyorum. Örn; 1,77812 rakamı 1,78 oluyor. Perakende satışta kuruşların 5 ve katları şeklinde olmaması ciddi sorun yaratıyor. Bu yüzden en yakın 5 veya katları oalcak şekilde yuvarlamak istiyorum.
İlgilenen arkadaşlara teşekkür ederim.

 

[mancubus]

formül ile
(analysis toolpak yüklenmiş olmalı)

=MROUND(A2;0,05)

=KYUVARLA(A2;0,05)

 

[mancubus]

vba
(VBE'de tools-references'dan atvbaen.xls işaretlenmeli.)

A sütunundaki rakamların yuvarlanmış değerlerini B sütununa yazar.
diğer sütunlar için Cells(Satır, Sütun) kodlamasında sütun numarası değiştirilmelidir.

Sub yuvarla()

Dim kat As Double
kat = 0.05
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Cells(i, 2).Value = Application.MRound(Cells(i, 1).Value, kat)
Next

End Sub

 

[acolkesen1]

Merhaba sayın mancubus,
Öncelikle ilginize teşekkür ederim.

vba
(VBE'de tools-references'dan atvbaen.xls işaretlenmeli.)
[/CODE]

Tools>references da sözünü ettiğiniz seçeneği bulamadım. Acaba farklı bir ifadesi var mıdır?

 

[mancubus]

rica ederim.

seçenekler - eklentiler - eklentileri yönet - git
açılan pencerede Analysis ToolPak ve Analysis ToolPak - VBA işaretlenmeli.

 

[acolkesen1]

merhaba Sayın mancubus, yardımlarınız ve açıklamalarınız için çok teşekkür ederim. Esenlikler dilerim.