Cara mengonversi string menjadi panjang di vba (dengan contoh)

Anda dapat menggunakan fungsi CLng di VBA untuk mengonversi string teks menjadi tipe data yang panjang.

Berikut dua cara umum untuk menggunakan fitur ini dalam praktiknya:

Metode 1: Ubah String menjadi Panjang di VBA

 Sub ConvertStringToLong ()

    Dim i As Integer

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

End Sub

Makro khusus ini akan mengonversi setiap string dalam rentang A2:A11 menjadi tipe data panjang dan menampilkan nilai panjang dalam rentang B2:B11 .

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

 Sub ConvertStringToLong()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CLng(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 tipe data panjang 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: Ubah String menjadi Panjang di VBA

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

Misalkan kita ingin mengonversi setiap string menjadi tipe data panjang dan menampilkannya di kolom B.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub ConvertStringToLong ()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CLng(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 ke tipe data panjang dan ditampilkan di kolom B.

Contoh 2: Ubah string menjadi panjang di VBA (hanya jika string berupa angka)

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

Misalkan kita ingin mengonversi setiap string menjadi tipe data panjang hanya jika string tersebut berupa angka dan menampilkannya di kolom B.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub ConvertStringToLong()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CLng(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 tipe data panjang di kolom B.

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

Catatan : Anda dapat menemukan dokumentasi lengkap untuk fungsi VBA CLng 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