Fungsi RoundUp VBA

Fungsi RoundUp VBA Excel

Mirip dengan fungsi lembar kerja di mana kami mengumpulkan angka ke bilangan bulat terdekat, di VBA kami memiliki fungsi RoundUp yang mengurangi titik desimal untuk kami dan sintaks untuk menggunakan fungsi roundup adalah sebagai berikut Round up (Number, Number of Digit After Decimal ) kedua argumen dalam fungsi ini wajib diisi.

Saat kita bekerja dengan angka dan kalkulasi, kita mendapatkan angka pecahan setelah bilangan bulat dan ini sangat umum dalam bisnis sehari-hari. Kami biasanya tidak peduli tentang nilai desimal karena tidak berdampak pada hasil akhir kami. Dalam situasi tersebut, kita perlu membulatkan angka ke bilangan bulat terdekat atau bilangan bulat langsung. Dengan menggunakan fungsi RoundUp kita sebenarnya dapat melakukan tugas ini.

Jika Anda telah mencari di VBA untuk fungsi RoundUp maka Anda pasti belum menemukannya karena ini adalah fungsi lembar kerja. Untuk mengakses fungsi RoundUp, kita perlu menggunakan kelas Fungsi vba Worksheet.

Sebelum ini ingat kembali sintaks dari fungsi RoundUp.

Contoh

Anda dapat mengunduh Template Excel RoundUp VBA ini di sini - Template Excel RoundUp VBA

Mari kita lakukan tugas membulatkan angka "288.5264". Kami akan melihat semua angka dengan contoh ini.

Contoh # 1 - Ketika Argumen Kedua adalah Nol

Lihat kode VBA di bawah ini.

Kode:

 Sub RoundUp_Example1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub

  • Ketika Anda akan menjalankan kode di atas itu akan mengubah angka yang disediakan yaitu 288.5264 ke bilangan bulat terdekat yaitu 289

Contoh # 2 - Ketika Argumen Kedua adalah 1

Lihatlah kode di bawah ini untuk melihat apa yang terjadi ketika kita melewatkan satu sebagai argumen kedua.

Kode:

 Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub

  • Kode ini akan mengubah angka yang diberikan menjadi satu koma desimal yaitu 288,6

Contoh # 3 - Ketika Argumen Kedua adalah 2

Lihatlah kode di bawah ini untuk melihat apa yang terjadi ketika kita melewatkan dua sebagai argumen kedua.

Kode:

 Sub RoundUp_Example3 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 2) MsgBox k End Sub

  • Kode ini akan mengubah angka yang diberikan menjadi dua koma desimal yaitu 288,53

Contoh # 4 - Ketika Argumen Kedua adalah 3

Lihatlah kode di bawah ini untuk melihat apa yang terjadi ketika kita melewatkan tiga sebagai argumen kedua.

Kode:

 Sub RoundUp_Example4 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub

  • Kode ini akan mengubah angka yang diberikan menjadi tiga koma desimal yaitu 288.527

Contoh # 5 - Saat Argumen Kedua -1

Lihat kode di bawah ini untuk melihat apa yang terjadi ketika kita melewatkan minus satu sebagai argumen kedua.

Kode:

 Sub RoundUp_Example5 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub

  • Kode ini akan mengubah angka yang diberikan menjadi sepuluh terdekat yaitu 290.

Contoh # 6 - Ketika Argumen Kedua adalah -2

Lihatlah kode di bawah ini untuk melihat apa yang terjadi ketika kita melewatkan minus dua sebagai argumen kedua.

Kode:

 Sub RoundUp_Example6 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub

  • Kode ini akan mengubah angka yang diberikan menjadi seratus terdekat yaitu 300.

Contoh # 7 - Ketika Argumen Kedua adalah -3

Lihatlah kode di bawah ini untuk melihat apa yang terjadi ketika kita melewatkan minus tiga sebagai argumen kedua.

Kode:

 Sub RoundUp_Example7 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub

  • Kode ini akan mengubah angka tersebut menjadi ribuan terdekat yaitu 1000.

Seperti ini, kita dapat menggunakan fungsi ROUNDUP di VBA sebagai bagian dari kelas fungsi lembar kerja untuk mengumpulkan angka berdasarkan argumen kedua yang disediakan.