Cara mengonversi string ke integer di vba (dengan contoh)

Anda dapat menggunakan fungsi CInt di VBA untuk mengonversi string teks menjadi bilangan bulat.

Berikut dua cara umum untuk menggunakan fitur ini dalam praktiknya:

Metode 1: Ubah String menjadi Integer di VBA

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CInt(Range(" A " & i))
    Next i

End Sub

Makro khusus ini akan mengonversi setiap string dalam rentang A2:A11 menjadi bilangan bulat dan menampilkan bilangan bulat dalam rentang B2:B11 .

Metode 2: Ubah String menjadi Integer di VBA (Hanya jika String adalah Angka)

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CInt(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

Makro khusus ini akan mengonversi setiap string dalam rentang A2:A11 menjadi bilangan bulat hanya jika string tersebut berupa angka. Jika tidak, string akan dikonversi ke nilai null.

Contoh berikut menunjukkan cara menggunakan masing-masing metode dalam praktik.

Contoh 1: Konversi String ke Integer di VBA

Katakanlah kita memiliki kolom nilai berikut di Excel, yang saat ini diformat sebagai string teks:

Misalkan kita ingin mengonversi setiap string menjadi bilangan bulat dan menampilkan bilangan bulat di kolom B.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CInt(Range(" A " & i))
    Next i

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa setiap string teks di kolom A telah dikonversi menjadi bilangan bulat dan ditampilkan di kolom B.

Contoh 2: Ubah String menjadi Integer di VBA (Hanya jika String adalah Angka)

Katakanlah kita memiliki kolom nilai berikut di Excel, yang saat ini diformat sebagai string teks:

Misalkan kita ingin mengonversi setiap string menjadi bilangan bulat hanya jika string tersebut berupa angka dan menampilkan bilangan bulat di kolom B.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CInt(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa hanya string teks di kolom A yang berupa angka yang dikonversi menjadi bilangan bulat di kolom B.

Jika tidak, string teks hanya akan dikonversi ke nilai nol.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk fungsi VBA Cint di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghilangkan spasi pada string
VBA: Cara menghitung kemunculan karakter dalam sebuah string
VBA: cara memeriksa apakah suatu string berisi string lain