Cara menggunakan fungsi lantai di vba (dengan contoh)

Anda dapat menggunakan metode Lantai di VBA untuk membulatkan angka dalam sel ke kelipatan signifikan terdekat.

Berikut cara umum untuk menggunakan fungsi ini dalam praktik:

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

Makro khusus ini akan membulatkan setiap nilai dalam rentang A2:A10 ke kelipatan signifikan terdekat yang ditentukan dalam rentang B2:B10 dan menampilkan hasilnya dalam rentang C2:C10 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara menggunakan fungsi Lantai di VBA

Misalkan kita memiliki daftar nilai di kolom A dan daftar kelipatan penting lainnya di kolom B yang ingin kita bulatkan setiap nilainya menjadi:

Kita dapat membuat makro berikut dengan metode Lantai di VBA untuk membulatkan setiap nilai di kolom A ke kelipatan signifikan di kolom B:

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom C menunjukkan hasil penggunaan metode Floor pada setiap nilai di kolom A.

Misalnya, kita dapat melihat:

• 12.2452 dibulatkan ke bawah ke kelipatan 0.001 terdekat adalah 12.245 .
• 14.927 dibulatkan ke bawah ke kelipatan 0.01 terdekat adalah 14.92 .
• -5.23 dibulatkan ke bawah ke kelipatan 0.1 terdekat adalah -5.3 .

Dan seterusnya.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode Lantai VBA 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
Cara membulatkan nilai ke 2 desimal di VBA