Vba'da değerler nasıl yuvarlanır (örneklerle)

Değerleri yuvarlamak için VBA’daki RoundUp yöntemini kullanabilirsiniz.

Bu işlev aşağıdaki temel sözdizimini kullanır:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

Bu özel örnek, A1 hücresindeki değeri en yakın tam sayıya yuvarlayacak ve sonucu B1 hücresinde görüntüleyecektir.

RoundUp yönteminin ikinci argümanının, yuvarlanacak basamak sayısını belirttiğine dikkat edin:

• -Sonraki bine 3 tur
• -2 en yakın yüzlüğe yuvarlama
• -1 en yakın onluğa yuvarlar
• 0 en yakın tam sayıya yuvarlar
• 1 en yakın onluğa kadar yuvarlar (bir ondalık basamak)
• 2 en yakın yüzlüğe yuvarlanır (iki ondalık basamak)
• 3 en yakın binliğe yuvarlanır (üç ondalık basamak)

Ve benzeri.

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

Örnek 1: VBA’da en yakın tam sayıya yuvarlama

A1 hücresindeki değeri en yakın tam sayıya yuvarlayıp sonucu B1 hücresinde görüntülemek için aşağıdaki makroyu oluşturabiliriz:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

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

A1 hücresindeki 1432,78 değerinin, B1 hücresindeki en yakın tam sayı olan 1433’e yuvarlandığına dikkat edin.

Örnek 2: VBA’da en yakın yüzlüğe yuvarlama

A1 hücresindeki değeri en yakın yüzlüğe yuvarlayıp sonucu B1 hücresinde görüntülemek için aşağıdaki makroyu oluşturabiliriz:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), -2)
End Sub

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

A1 hücresindeki 1432,78 değerinin, B1 hücresindeki 1500’ün en yakın yüzlüğüne yuvarlandığına dikkat edin.

Örnek 3: VBA’da en yakın onluğa yuvarlama

A1 hücresindeki değeri en yakın onluğa (yani bir ondalık basamağa) yuvarlamak ve sonucu B1 hücresinde görüntülemek için aşağıdaki makroyu oluşturabiliriz:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 1)
End Sub

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

A1 hücresindeki 1432,78 değerinin, B1 hücresindeki 1432,8 değerinin en yakın onda birine yuvarlandığına dikkat edin.

Not : VBA RoundUp 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: ETOPLA ve ETOPLA işlevleri nasıl yazılır
VBA: COUNTIF ve COUNTIFS işlevleri nasıl yazılır?
VBA: EĞER ORTALAMA ve EĞER ORTALAMA işlevleri nasıl yazılır