Vba: cara membulatkan nilai menjadi 2 desimal

Anda dapat menggunakan metode berikut untuk membulatkan nilai ke 2 desimal menggunakan VBA:

Metode 1: Bulatkan nilai menjadi 2 tempat desimal

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

Contoh khusus ini akan membulatkan nilai di sel A2 menjadi dua angka desimal dan menampilkan nilai yang dibulatkan di sel B2 .

Metode 2: Bulatkan semua nilai dalam rentang tersebut menjadi 2 tempat desimal

 Sub RoundTwoDecimals()
    Dim i As Integer

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

Contoh khusus ini akan membulatkan setiap nilai dalam rentang A2:A9 ke dua angka desimal dan menampilkan nilai yang dibulatkan dalam rentang B2:B9 .

Contoh berikut menunjukkan cara menggunakan masing-masing metode dalam praktik.

Contoh 1: Bulatkan nilai menjadi 2 angka desimal

Kita bisa membuat makro berikut untuk membulatkan nilai di sel A2 menjadi dua desimal dan menampilkan hasilnya di sel B2 :

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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa nilai 15.248 di sel A2 dibulatkan menjadi dua angka desimal (15.25) di sel B2 .

Contoh 2: Bulatkan semua nilai dalam rentang tersebut menjadi 2 tempat desimal

Kita dapat membuat makro berikut untuk membulatkan setiap nilai dalam rentang A2:A9 ke dua tempat desimal dan menampilkan nilai yang dibulatkan dalam rentang B2:B9 :

 Sub RoundTwoDecimals()
    Dim i As Integer

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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa setiap nilai dalam rentang A2:A9 telah dibulatkan menjadi dua desimal dan nilai yang dibulatkan ditampilkan dalam rentang B2:B9 .

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode VBA Round di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Cara membulatkan nilai di VBA
Cara membulatkan nilai di VBA