Dakika Yuvarlama

[sarigozoglu]

Merhabalar,
Elimdeki sayıların ondalık değerlerine göre çeyrekle yuvarlama yapmam gerekiyor
skalam:
0 - 14 = 0
15-29 = 25
30-44 = 50
45-59 = 75

Örneklerim:
13,06 =13,00
13,30 =13,50
13,03 = 13,00
13,52 =13,75
13,15= 13,25

Ancak veri a1 hücresinden okunacak ve düzenlenmiş hali yine a1 hücresine yazılacak

Şimdiden teşekkür ederim.

 

[ÖmerFaruk]

Sub Dakikalar()
    For i = 1 To 5
        Range("C" & i) = Int(Range("A" & i)) + 0.25 * Int((Range("A" & i) - Int(Range("A" & i))) / 0.15)
    Next i
End Sub

 

[sarigozoglu]

Desteğiniz için çok teşekkür ederim. Sonucu uyarladığımda yuvarlamalar konusunda hakkaniyetli olmadığımızı farkettim.
Bu neden ile, ondalık değerlere göre yuvarlamayı yeniden revize etmemiz gerekti.

Ondalık değerler aralığına göre;
0 - 9 = 0
10-24 = 25
25-39 = 50
40-55=75
55-59=100 ( tamsayı(a1)+1)

Bu şekilde bir düzenleme mümkün müdür?

 

[ÖmerFaruk]

Sub Dakikalar()
    For i = 1 To 5
        Select Case Range("A" & i) - Int(Range("A" & i))
            Case Is < 0.1
            Range("A" & i) = Int(Range("A" & i))
            Case Is < 0.24
            Range("A" & i) = Int(Range("A" & i)) + 0.25
            Case Is < 0.4
            Range("A" & i) = Int(Range("A" & i)) + 0.5
            Case Is < 0.55
            Range("A" & i) = Int(Range("A" & i)) + 0.75
            Case Is < 0.6
            Range("A" & i) = Int(Range("A" & i)) + 1
    Next i
End Sub