Bagaimana cara membulatkan kisaran angka menjadi genap di Excel?
Apa yang bulat bahkan di Excel? Pembulatan ke genap disebut juga dengan pembulatan bankir, pada dasarnya seperti pembulatan biasa, kecuali bilangan yang akan dibulatkan adalah bilangan 5. Jika bilangan sebelum 5 ganjil, maka pembulatannya harus dibulatkan, dan jika bilangan sebelum 5 adalah bahkan, Anda harus membulatkan ke bawah.
Sebagai contoh, 23.345 dibulatkan ke genap pada persentil akan menjadi 23.34. dan 12.335 dibulatkan ke genap pada persentil akan menjadi 12.34.
Pada artikel ini, saya akan berbicara tentang bagaimana melakukan pembulatan bankir di Excel.
Bulatkan angka menjadi genap dengan Fungsi Buatan Pengguna
Bulatkan angka menjadi genap dengan kode VBA
Membulatkan angka menjadi genap dengan Kutools for Excel
Bulatkan angka menjadi genap dengan Fungsi Buatan Pengguna
Anda dapat menggunakan fungsi yang ditentukan berikut untuk membulatkan angka menjadi genap di Excel. Harap lakukan sebagai berikut:
1. Pilih angka yang ingin Anda bulatkan menjadi genap.
2. Kemudian Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.
3. Klik Menyisipkan > Modul, dan tempelkan makro berikut di Jendela Modul.
Function BankersRound (jumlah, presisi)
BankersRound = Round (num, presisi)
End Function
4. Simpan kodenya, dan masukkan rumusnya = bankersround (a1,2) ke dalam sel kosong yang berdekatan. Lihat tangkapan layar:
5. Lalu tekan Enter kunci. Dan pilih sel B1, lalu seret gagang isian ke rentang yang Anda inginkan untuk memuat rumus ini. Lihat tangkapan layar:
Bulatkan angka menjadi genap dengan kode VBA
Jika Anda tidak ingin menggunakan fungsi yang ditentukan, kode VBA berikut juga dapat membantu Anda. Lakukan seperti ini:
1. Pilih rentang yang ingin Anda bulatkan ke genap.
2. Kemudian Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.
3. Klik Menyisipkan > Modul, dan tempel kode berikut di ModulJendela.
Sub RoundToEven()
'Update 20131107
Dim rng As Range
Dim WorkRng As Range
Dim intNumberOfDecimal As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
intNumberOfDecimal = Application.InputBox("NumberOfDecimal", xTitleId, Type:=1)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
rng.Value = Round(rng.Value, intNumberOfDecimal)
Next
End Sub
4. Lalu tekan F5 kunci untuk menjalankan kode ini, di kotak prompt, masukkan jumlah desimal yang ingin Anda bulatkan. Lihat tangkapan layar:
5. Lalu klik OK, semua nomor yang dipilih telah dibulatkan menjadi genap. Lihat tangkapan layar:
Membulatkan angka menjadi genap dengan Kutools for Excel
Baik fungsi yang ditentukan pengguna maupun kode VBA tidak dapat membuat Anda merasa begitu rumit, saya dapat memperkenalkan cara mudah untuk menyelesaikannya. Dengan Bulat tanpa formula of Kutools untuk Excel, Anda dapat dengan cepat membulatkan rentang angka hingga genap.
Kutools untuk Excel mencakup lebih dari 300 alat Excel yang praktis. Gratis untuk mencoba tanpa batasan dalam 30 hari. Dapatkan Sekarang.
Setelah menginstal Kutools for Excel, Anda dapat melakukan hal berikut:
1. Sorot kisaran yang ingin Anda bulatkan ke genap.
2. Klik Kutools > bulat, lihat tangkapan layar:
3. di Putaran tanpa Formula kotak dialog, masukkan tempat desimal yang Anda perlukan, lalu pilih Bulat ke Genap bawah pilihan, dan Anda dapat melihat hasil dari Panel pratinjau. Lihat tangkapan layar:
4. Lalu klik OK or Mendaftar, semua angka akan dibulatkan menjadi genap dengan 2 desimal.
Klik Round to Even untuk mengetahui lebih banyak tentang fitur ini.
Artikel terkait:
Round / round up / round down kisaran nomor sel di Excel
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!