Cara membulatkan nilai di vba (dengan contoh)

Anda dapat menggunakan metode RoundDown di VBA untuk membulatkan nilai.

Fungsi ini menggunakan sintaks dasar berikut:

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

Contoh khusus ini akan membulatkan nilai di sel A1 ke bilangan bulat terdekat dan menampilkan hasilnya di sel B1 .

Perhatikan bahwa argumen kedua pada metode RoundDown menentukan jumlah digit yang akan dibulatkan:

• -3 dibulatkan ke bawah ke ribuan terdekat
• -2 dibulatkan ke bawah ke ratusan terdekat
• -1 dibulatkan ke sepuluh terdekat
• 0 dibulatkan ke bawah ke bilangan bulat terdekat
• 1 dibulatkan ke bawah ke persepuluhan terdekat (satu desimal)
• 2 pembulatan ke bawah ke perseratus terdekat (dua desimal)
• 3 dibulatkan ke bawah ke seperseribu terdekat (tiga angka desimal)

Dan seterusnya.

Contoh berikut menunjukkan cara menggunakan metode RoundDown dalam praktiknya.

Terkait: Cara Membulatkan Nilai di VBA

Contoh 1: Pembulatan ke bilangan bulat terdekat di VBA

Kita bisa membuat makro berikut untuk membulatkan nilai di sel A1 ke bilangan bulat terdekat dan menampilkan hasilnya di sel B1 :

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa nilai 1432,78 di sel A1 dibulatkan ke bilangan bulat terdekat yaitu 1432 di sel B1 .

Contoh 2: Pembulatan ke ratusan terdekat di VBA

Kita bisa membuat makro berikut untuk membulatkan nilai di sel A1 ke ratusan terdekat dan menampilkan hasilnya di sel B1 :

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), -2)
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa nilai 1432,78 di sel A1 dibulatkan ke ratusan terdekat dari 1400 di sel B1 .

Contoh 3: Pembulatan ke persepuluhan terdekat di VBA

Kita dapat membuat makro berikut untuk membulatkan nilai di sel A1 ke persepuluhan terdekat (yaitu satu desimal) dan menampilkan hasilnya di sel B1 :

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 1)
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa nilai 1432,78 di sel A1 dibulatkan ke bawah ke sepersepuluh terdekat dari 1432,7 di sel B1 .

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

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menulis fungsi SUMIF dan SUMIFS
VBA: Cara menulis fungsi COUNTIF dan COUNTIFS
VBA: Cara menulis fungsi AVERAGEIF dan AVERAGEIFS