Fungsi Bulat Excel VBA
Fungsi bulat dalam VBA adalah fungsi matematik yang seperti namanya sendiri menunjukkan ia membundarkan atau membundarkan nombor yang diberikan ke set tempat perpuluhan tertentu yang ditentukan oleh pengguna, fungsi ini menggunakan logik bulat walaupun yang bermaksud mengambil 5 sebagai rujukan dan sebarang nombor dengan digit terakhir selepas perpuluhan di bawah 5 maka bulat ke bawah dan sebaliknya.
Anda boleh membundarkan nombor hingga perpuluhan dua digit, perpuluhan tiga digit, atau tanpa perpuluhan sama sekali. Contohnya, jika anda mempunyai nombor 5.8697. Sekiranya anda membundarkan nombor hingga perpuluhan dua digit, ia akan menjadi 5,87. Sekiranya anda membundarkan kepada tiga digit, maka ia akan menjadi bulat menjadi 5.870. Sekiranya anda ingin membundarkan ke sifar, maka ia akan 6.-
Dalam nombor perbankan, semua tempat perpuluhan yang kurang dari 0,5 akan dibundarkan ke nilai bilangan bulat sebelumnya, dan semua tempat perpuluhan yang lebih besar dari atau sama dengan 0,5 akan dibundarkan ke nilai bilangan bulat berikutnya.
Saya harap anda telah menggunakan fungsi ROUND dalam lembaran kerja. Di VBA juga, kita dapat menggunakan fungsi ini, tetapi kita mempunyai perbezaan dalam fungsi ini. Kami akan melihat perbezaan antara kedua fungsi ini dalam artikel ini.
Sintaks
Lihat sintaks fungsi Pusingan.
Nombor: Ini adalah nombor yang cuba kita bulatkan.
(Bilangan Digit selepas Perpuluhan): Berapa digit yang anda perlukan selepas nilai perpuluhan.
Contoh
Andaikan anda mempunyai nombor 4.534, dan anda mahu membundarkan kepada dua digit.
Ikuti langkah di bawah.
Langkah 1: Nyatakan pemboleh ubah sebagai Varian.
Kod:
Sub Pusingan_Contoh1 () Dim K Sebagai Variasi Akhir Sub
Langkah 2: Untuk pemboleh ubah ini " k " , tetapkan nilainya melalui fungsi ROUND.
Kod:
Sub Pusingan_Contoh1 () Dim K Sebagai Varian K = Bulat (Sub Akhir
Langkah 3: Nombor adalah apa-apa, tetapi apakah nombor yang ingin kita bulatkan. Dalam kes ini, jumlahnya ialah 4.534
Kod:
Sub Pusingan_Contoh1 () Dim K Sebagai Varian K = Bulat (4.534, Sub Akhir
Langkah 4: Berapakah bilangan digit yang perlu kita bulatkan? Dalam kes ini, kita perlu membundarkan menjadi 2 digit .
Kod:
Sub Pusingan_Contoh1 () Dim K Sebagai Varian K = Bulat (4.534, 2) Sub Akhir
Langkah 5: Sekarang tunjukkan nilai "k" pemboleh ubah di kotak mesej VBA.
Kod:
Sub Round_Contoh1 () Dim K Sebagai Varian K = Bulat (4.534, 2) MsgBox K End Sub
Jalankan kod ini dan lihat apa yang kami dapat.
Kami memperoleh keputusan sebagai 4.53 apabila dibundarkan menjadi 2 digit.
Sekarang saya akan menukar nombor dari 4.534 menjadi 4.535 . Lihatlah apa yang berlaku sekarang.
Kod:
Sub Round_Contoh1 () Dim K Sebagai Varian K = Bulat (4.535, 2) MsgBox K End Sub
Sekarang jalankan kod dan lihat apa hasilnya.
Kami mendapat keputusan 4.54, satu perpuluhan lebih tinggi daripada nilai sebelumnya 4.53. Ini kerana, dalam contoh ini, kami telah memberikan nombor seperti 4.535, jadi setelah nombor 3 nombor berikutnya adalah 5, jadi dibundarkan ke nombor berikutnya, jadi 3 menjadi 4.
Sekarang saya akan memberikan nombor sebagai 2.452678, dan saya akan cuba membundarkan kepada 3 digit.
Kod:
Sub Round_Contoh2 () Dim K Sebagai Varian K = Bulat (2.452678, 3) MsgBox K End Sub
Jalankan kod ini untuk melihat hasilnya.
Hasilnya ialah 2.453 .
2.45 2678 Sini nombor selepas 2 nd tempat perpuluhan adalah 2678. Selepas nombor 2, nombor seterusnya adalah 6, yang lebih besar daripada atau sama dengan 5, jadi ia dibundarkan ke atas kepada nombor perpuluhan seterusnya.
Sekarang saya akan menggunakan nombor yang sama untuk membulatkan ke sifar dan melihat apa yang berlaku.
Kod:
Sub Round_Contoh3 () Dim K Sebagai Varian K = Bulat (2.452678, 0) MsgBox K End Sub
Jalankan kod dan lihat apa yang kita dapat.
Oleh kerana saya menggunakan pusingan hingga sifar, kami mendapat keputusan sebagai 2
Sebab mengapa kami mendapat keputusan sebagai 2 kerana di sini, nombor perpuluhan pertama adalah 4, yang kurang dari 0,5, jadi dibundarkan ke bawah.
Perbezaan Antara Fungsi Excel dan VBA ROUND
Terdapat 2 perbezaan.
# 1 - Sintaks Kedua Fungsi:
Sekiranya anda melihat sintaks kedua fungsi tersebut, kita mempunyai perbezaan di sini.
Sintaks Bulat Excel: Bulat (Bilangan, Bilangan Digit Selepas Perpuluhan)
Sintaks Bulat VBA: Bulat (Nombor, (Bilangan Digit Selepas Perpuluhan))
Dalam excel, kedua-dua argumen adalah wajib tetapi dalam argumen kedua VBA adalah pilihan.
Di VBA, jika anda mengabaikan argumen kedua, ia menjadikan argumen lalai sebagai sifar, jadi kami akan mendapat nombor bulat.
# 2 - Hasil:
Hasil yang diberikan oleh kedua fungsi ini berbeza. Berikut adalah beberapa contoh
