Vba: değerler 2 ondalık basamağa nasıl yuvarlanır?

VBA kullanarak değerleri virgülden sonra 2 basamağa yuvarlamak için aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: Bir değeri 2 ondalık basamağa yuvarlayın

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

Bu özel örnek, A2 hücresindeki değeri iki ondalık basamağa yuvarlayacak ve yuvarlanmış değeri B2 hücresinde görüntüleyecektir.

Yöntem 2: Aralıktaki tüm değerleri 2 ondalık basamağa yuvarlayın

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

Bu özel örnek, A2:A9 aralığındaki her değeri iki ondalık basamağa yuvarlayacak ve B2:B9 aralığındaki yuvarlanmış değerleri gösterecektir.

Aşağıdaki örnekler her yöntemin pratikte nasıl kullanılacağını göstermektedir.

Örnek 1: Bir değeri 2 ondalık basamağa yuvarlayın

A2 hücresindeki değeri iki ondalık basamağa yuvarlamak ve sonucu B2 hücresinde görüntülemek için aşağıdaki makroyu oluşturabiliriz:

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

A2 hücresindeki 15,248 değerinin, B2 hücresinde iki ondalık basamağa (15,25) yuvarlandığına dikkat edin.

Örnek 2: Aralıktaki tüm değerleri 2 ondalık basamağa yuvarlayın

A2:A9 aralığındaki değerlerin her birini iki ondalık basamağa yuvarlamak ve B2:B9 aralığındaki yuvarlanmış değerleri görüntülemek için aşağıdaki makroyu oluşturabiliriz:

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

A2:A9 aralığındaki her değerin iki ondalık basamağa yuvarlandığını ve yuvarlanan değerlerin B2:B9 aralığında görüntülendiğini unutmayın.

Not : VBA Round yöntemine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA’da değerler nasıl yuvarlanır?
VBA’da değerler nasıl yuvarlanır?