VBA INT | Bagaimana cara menggunakan Fungsi Integer di VBA Excel?

Fungsi Excel VBA INT (Integer)

VBA INT adalah fungsi bawaan yang digunakan untuk memberi kita hanya bagian bilangan bulat dari sebuah bilangan yang memberi kita masukan, fungsi ini digunakan pada data yang bagian desimalnya tidak terlalu mempengaruhi data sehingga untuk memudahkan perhitungan atau analisis yang kita gunakan Fungsi INT untuk mendapatkan nilai integer saja.

Fungsi ini tersedia dengan lembar kerja serta di VBA. Fungsi bilangan bulat membulatkan angka tertentu ke bawah ke bilangan bulat terdekat.

Fungsi VBA Int dapat digunakan dalam Sub Prosedur dan Fungsi Prosedur. Sekarang lihat sintaks fungsi INT di VBA.

Ini hanya memiliki satu argumen untuk diberikan yaitu Angka

Nomor adalah nomor yang kami coba ubah menjadi nomor INTEGER. Ketika nomor tersebut diberikan, fungsi INT membulatkannya ke bilangan bulat terdekat.

Misalnya, jika angka yang diberikan adalah 68,54 maka fungsi Excel VBA Int membulatkan ke bawah menjadi 68 yang menuju nol. Jika angka yang diberikan adalah -68.54 maka fungsi INT membulatkan angka tersebut menjadi 69 yang jauh dari nol.

Bagaimana cara menggunakan Fungsi VBA INT?

Anda dapat mendownload Template VBA INT Excel ini di sini - Template VBA INT Excel

Contoh 1

Sekarang, lihat contoh sederhana dari fungsi "INT" di VBA. Mari kita lakukan tugas membulatkan ke bawah angka 84,55 ke bilangan bulat terdekat.

Langkah 1: Mulai subprocedure.

Langkah 2: Deklarasikan variabel sebagai Integer .

Kode:

 Sub INT_Example1 () Dim K Sebagai Integer End Sub

Langkah 3: Sekarang tetapkan rumus ke variabel " k " dengan menerapkan fungsi INT.

Kode:

 Sub INT_Example1 () Dim K Sebagai Integer K = Int (End Sub

Langkah 4: Masukkan nomor sebagai 84.55 .

Catatan: Karena ini adalah angka numerik, kami tidak perlu menyediakan tanda kutip ganda.

Kode:

 Sub INT_Example1 () Dim K Sebagai Integer K = Int (84.55) End Sub

Langkah 5: Sekarang meneruskan hasil variabel di kotak pesan VBA.

Kode:

 Sub INT_Example1 () Dim K Sebagai Integer K = Int (84.55) MsgBox K End Sub

Oke, mari kita jalankan kodenya dan lihat apa yang terjadi.

Jadi, hasilnya 84 dan dibulatkan ke bawah ke nilai bilangan bulat terdekat.

Contoh # 2

Sekarang dengan angka yang sama dengan tanda negatif, kita akan mencoba mengonversi ke nilai integer terdekat. Di bawah ini adalah kode dengan tanda negatif.

Kode:

 Sub INT_Example2 () Dim k As Integer k = Int (-84.55) 'Angka negatif dengan fungsi INT MsgBox k End Sub

Ketika saya menjalankan kode ini, angka tersebut telah dibulatkan menjadi -85 .

Contoh # 3 - Ambil Bagian Tanggal dari Tanggal & Waktu

Beberapa kali dalam karir saya, saya mengalami skenario penggalian tanggal & waktu secara terpisah dari kombinasi Tanggal & Waktu.

Sebagai contoh, lihat data Tanggal & Waktu di bawah ini.

Bagaimana Anda mengekstrak Bagian Tanggal dan Waktu?

Pertama, kita perlu mengekstrak bagian Tanggal, untuk ini mari kita terapkan fungsi INT. Kode di bawah ini akan mengekstrak bagian DATE dari data di atas.

Kode:

 Sub INT_Example2 () Dim k As Integer For k = 2 To 12 Cells (k, 2) .Value = Int (Cells (k, 1) .Value) 'Ini akan mengekstrak tanggal ke kolom kedua Sel (k, 3). Nilai = Sel (k, 1). Nilai - Sel (k, 2). Nilai 'Ini akan mengekstrak waktu ke kolom ketiga Berikutnya k Akhiri Sub

Jalankan kode ini Anda mungkin mendapatkan hasil seperti di bawah ini (jika format tidak diterapkan).