VBA String to Integer - Gunakan Fungsi CINT untuk Konversi Data

Excel VBA String to Integer

String dan Integer adalah tipe data yang umum, tetapi seringkali sebagai bagian dari analisis data kami, kami mungkin ingin mengonversi variabel tipe data string menjadi tipe data integer dan ini dimungkinkan dengan menggunakan fungsi "CINT" di VBA.

Sintaks Fungsi CINT

"CINT" dikategorikan sebagai fungsi konversi tipe data. Fungsi ini mengubah ekspresi yang disediakan menjadi tipe data Integer. Ketika saya mengatakan "Expression", itu harus berupa nilai numerik yang berada dalam kisaran tipe data Integer di VBA, yaitu antara -32768 hingga 32767.

Sekarang, lihat sintaks dari fungsi CINT di VBA.

  • Ekspresi adalah nilai atau variabel yang berisi nilai yang akan diubah menjadi Tipe Data Integer.
Catatan 1: Saat Anda meneruskan nilai ekspresi harus antara -32768 hingga 32767. Jika tidak, ini akan menyebabkan "Over Flow Error," yaitu menetapkan nilai yang melebihi batas tipe data. Catatan 2: Ekspresi harus berupa nilai numerik. Jika ekspresi berupa nilai string atau nilai teks, ini akan menyebabkan "Run Time Error 13: Type Mismatch."

Pada artikel ini, kami akan menunjukkan kepada Anda tentang konversi tipe data integer dari string menjadi integer menggunakan fungsi “CINT”.

Contoh Fungsi CINT di VBA

Contoh 1

Mari kita lakukan contoh pertama untuk mengonversi satu bilangan pecahan menjadi Tipe Data Integer.

Kode:

Sub CINT_Example1 () Dim IntegerNumber Sebagai String Dim IntegerResult As Integer IntegerNumber = 2564.589 IntegerResult = CInt (IntegerNumber) MsgBox IntegerResult End Sub
  • Dalam kode di atas untuk variabel "IntegerNumber", saya telah menetapkan nilai sebagai "2564.589".
  • Di baris berikutnya, saya telah menerapkan fungsi CINT. Jadi itu akan mengubah nilai yang diberikan ke bilangan bulat terdekat.

Jadi, kami mendapat hasil - 2565, dan nomor yang disediakan adalah 2564.589. Jika nilai desimal lebih dari 0,5 fungsi CINT membulatkan angka ke bilangan bulat berikutnya. Ketika nilai desimal kurang dari atau sama dengan 0,5 fungsi CINT dibulatkan ke bawah ke bilangan bulat yang sama.

Untuk contoh lihat kode di bawah ini dimana angkanya kurang dari 0,5

Kode:

Sub CINT_Example1 () Dim IntegerNumber Sebagai String Dim IntegerResult As Integer IntegerNumber = 2564 - 0,5 IntegerResult = CInt (IntegerNumber) MsgBox IntegerResult End Sub

Ini akan memberikan hasil sebagai 2564, bukan 2565.

Contoh # 2

Sekarang saya akan mencoba dan menetapkan nomor yang lebih dari batas tipe data Integer.

Kode:

Sub CINT_Example2 () Dim IntegerNumber Sebagai String Dim IntegerResult As Integer IntegerNumber = 51456.785 IntegerResult = CInt (IntegerNumber) MsgBox IntegerResult End Sub

Saya telah menetapkan nomor sebagai "IntegerNumber = 51456.785" yang melebihi batas dari batas tipe data Integer. Sekarang jika saya mencoba menjalankan kode, itu akan memunculkan kesalahan overflow di VBA.

Setiap kali nomor yang diberikan lebih dari tipe data Integer mari kita tunjukkan kotak pesan sederhana yang mengatakan "Jumlah Lebih Dari Batas Jenis Data Integer".

Kode:

Sub CINT_Example2 () Dim IntegerNumber Sebagai String Dim IntegerResult As Integer IntegerNumber = 51456.785 On Error GoTo Message: IntegerResult = CInt (IntegerNumber) Pesan: Jika Err.Number = 6 Maka MsgBox IntegerNumber & "Lebih Dari Batas Jenis Data Integer" Akhiri Sub

Ini akan menampilkan pesan seperti di bawah ini setiap kali nomor yang diberikan berada di luar jangkauan tipe data Integer.

Contoh # 3

Sekarang saya akan mencoba dan menetapkan nilai yang bukan numerik.

Sub CINT_Example2 () Redupkan IntegerNumber Sebagai String Dim IntegerResult Sebagai Integer IntegerNumber = "Hello" IntegerResult = CInt (IntegerNumber) MsgBox IntegerResult End Sub

Saya telah menetapkan nilai sebagai "Halo" yang bukan numerik. Hal ini menyebabkan “Type Mismatch Error”.

Alih-alih menampilkan kesalahan seperti ini, mari letakkan kotak pesan informasi sederhana di depan pengguna. Kode di bawah ini akan menempatkan kotak pesan yang mengatakan "Nilai Ekspresi yang Diberikan adalah Non-Numerik, Jadi tidak dapat dikonversi".

Kode:

Sub CINT_Example2 () Dim IntegerNumber Sebagai String Dim IntegerResult As Integer IntegerNumber = "Hello" On Error GoTo Message: IntegerResult = CInt (IntegerNumber) Pesan: Jika Err.Number = 13 Maka MsgBox IntegerNumber & ": Nilai Ekspresi yang Disediakan adalah Non-Numerik , Jadi tidak dapat diubah "End Sub

Ini akan menampilkan kotak pesan di bawah.

Hal-hal untuk diingat

  • CINT mengonversi nilai dari tipe data lain menjadi tipe data integer.
  • Integer dapat menampung nilai dari -32768 hingga 32767 apa pun di atas angka-angka ini akan menyebabkan kesalahan overflow.
  • Hanya tipe data string yang berisi data numerik yang akan diubah menjadi tipe data integer.

Artikel yang Direkomendasikan

Ini telah menjadi panduan untuk VBA String to Integer. Di sini kita membahas contoh string ke integer di Excel VBA dengan menggunakan fungsi CINT bersama dengan contoh praktis dan templat excel yang dapat diunduh. Di bawah ini adalah beberapa artikel bermanfaat yang berkaitan dengan VBA -

  • VBA Membagi String menjadi Array
  • String VBA hingga Saat Ini
  • Perbandingan String VBA
  • VBA Ganti String

Artikel yang menarik...