String VBA ke Integer

String VBA Excel ke Integer

String dan Integer adalah tipe data yang umum. Tapi, seringkali, sebagai bagian dari analisis data kita, kita mungkin ingin mengonversi variabel tipe data string ke tipe data Integer. Itu dimungkinkan dengan menggunakan fungsi CINT di VBA.

Anda bebas menggunakan gambar ini di situs web Anda, templat, dll., Harap berikan kami tautan atribusiBagaimana Memberikan Atribusi? Tautan Artikel menjadi Hyperlink
Misalnya: Sumber: VBA String ke Integer (wallstreetmojo.com)

Sintaks Fungsi CINT

CINT adalah fungsi konversi tipe data. Fungsi ini mengonversi ekspresi yang disediakan menjadi tipe data Integer. Saat kita mengatakan ‘Ekspresi’, itu harus berupa nilai numerik dalam rentang tipe data Integer di VBAInteger Tipe Data Di VBADalam VBA, integer adalah tipe data yang dapat ditetapkan ke variabel apa pun dan digunakan untuk menyimpan nilai integer. Di VBA, braket untuk jumlah maksimum variabel bilangan bulat yang dapat disimpan mirip dengan yang ada di bahasa lain. Dengan menggunakan pernyataan DIM, variabel apa pun dapat didefinisikan sebagai variabel bilangan bulat.Baca lebih lanjut, yaitu antara -32768 hingga 32767.

Sekarang, lihat sintaks fungsi CINT di VBA.

Ekspresi adalah nilai atau variabel yang berisi nilai yang perlu diubah menjadi tipe data Integer.

Catatan 1: Saat Anda meneruskan, nilai ekspresi harus antara -32768 hingga 32767. Jika tidak, ini akan menyebabkan kesalahan ‘Luapan’, yaitu menetapkan nilai melebihi batas tipe data.

Catatan 2: Ekspresi harus berupa nilai numerik. Jika ekspresi adalah nilai string atau nilai teks, ini akan menyebabkan ‘Run Time Error 13: Type Mismatch.’

Artikel ini akan menunjukkan kepada Anda konversi tipe data bilangan bulat dari string ke bilangan bulat menggunakan fungsi ‘CINT.’

Contoh Fungsi CINT di VBA

Contoh 1

Mari kita lakukan contoh pertama mengonversi satu bilangan pecahan menjadi tipe data Integer.

Kode:

Sub CINT_Example1() Dim IntegerNumber Sebagai String Dim IntegerResult Sebagai Integer IntegerNumber = 2564.589 IntegerResult = CInt(IntegerNumber) MsgBox IntegerResult End Sub

Dalam kode di atas untuk variabel ‘IntegerNumber’, kami telah menetapkan nilainya sebagai ‘2564.589.’
Di baris berikutnya, kami telah menerapkan fungsi CINT. Jadi, itu akan mengubah nilai yang diberikan ke bilangan bulat terdekat.

Jadi, kami mendapatkan hasilnya – 2565, dan angka yang diberikan adalah 2564.589. Ketika 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 menjadi bilangan bulat yang sama.

Sebagai contoh, lihat kode di bawah ini di mana 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 harus memberikan hasil sebagai 2564, bukan 2565.

Contoh #2

Sekarang, kami akan mencoba dan menetapkan angka lebih dari batas tipe data Integer.

Kode:

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

Kami telah menetapkan ‘IntegerNumber = 51456.785’ lebih dari batas tipe data Integer. Jadi sekarang, jika kita mencoba menjalankan kode, itu akan membuang kesalahan overflow di VBAOverflow Error Di VBAVBA Overflow Error atau “Run Time Error 6: Overflow” terjadi saat pengguna memasukkan nilai yang melebihi kapasitas tipe data variabel tertentu . Jadi, ini adalah kesalahan yang dihasilkan dari kelebihan beban data di luar batas tipe data yang diinginkan dari variabel tersebut.baca lebih lanjut.

Setiap kali angka yang diberikan lebih dari tipe data Integer, mari kita tampilkan kotak pesan sederhana yang mengatakan, ‘Angka Lebih Dari Batas Tipe Data Integer.’

Kode:

Sub CINT_Example2() Dim IntegerNumber As String Dim IntegerResult As Integer IntegerNumber = 51456.785 On Error GoTo Message: IntegerResult = CInt(IntegerNumber) Message: If Err.Number = 6 Then MsgBox IntegerNumber & ” is More Than the Limit of the Integer Data Type” Akhir Sub

Ini akan menampilkan pesan di bawah setiap kali nomor yang disediakan berada di luar rentang tipe data Integer.

Contoh #3

Sekarang, kami akan mencoba untuk menetapkan nilai yang bukan numerik.

Sub CINT_Example2() Dim IntegerNumber Sebagai String Dim IntegerResult Sebagai Integer IntegerNumber = “Hello” IntegerResult = CInt(IntegerNumber) MsgBox IntegerResult End Sub

Kami telah menetapkan nilai ‘Halo’, yang bukan numerik. Ini menyebabkan ‘Tipe Mismatch ErrorType Mismatch ErrorKetika kami menetapkan nilai ke variabel yang bukan tipe datanya, kami mendapatkan Type mismatch Error atau Kode kesalahan 13. Misalnya, jika kami menetapkan nilai desimal atau panjang ke tipe data integer variabel, kita akan mendapatkan error ini (Error Code 13) ketika kita menjalankan code.read more’.

Daripada menampilkan kesalahan seperti ini, mari kita letakkan kotak pesan informasi sederhana di depan pengguna. Kode di bawah ini akan menempatkan kotak pesan yang mengatakan, ‘Nilai Ekspresi yang Disediakan adalah Non-Numerik, Jadi, tidak dapat dikonversi.’

Kode:

Sub CINT_Example2() Dim IntegerNumber As String Dim IntegerResult As Integer IntegerNumber = “Hello” On Error GoTo Message: IntegerResult = CInt(IntegerNumber) Message: If Err.Number = 13 Then MsgBox IntegerNumber & ” : Nilai Ekspresi yang Diberikan adalah Non-Numeric , Jadi tidak bisa dirubah” End Sub

Ini akan menampilkan kotak pesan di bawah ini.

Hal-hal untuk diingat

Fungsi CINT mengonversi nilai dari tipe data lain ke tipe data Integer.
Bilangan bulat dapat menyimpan nilai dari -32768 hingga 32767. Apa pun di atas angka ini akan menyebabkan kesalahan ‘Luapan’.
Hanya tipe data string yang berisi data numerik yang akan diubah menjadi tipe data Integer.

Artikel yang Direkomendasikan

Artikel ini telah menjadi panduan untuk VBA String ke Integer. Di sini, kami membahas contoh string ke integer di Excel VBA menggunakan fungsi CINT, contoh praktis, dan template Excel yang dapat diunduh. Di bawah ini adalah beberapa artikel bermanfaat yang terkait dengan VBA: –