Cara mengonversi string menjadi double di vba (dengan contoh)

Anda dapat menggunakan fungsi CDbl di VBA untuk mengonversi string teks menjadi tipe data ganda.

Berikut cara umum untuk menggunakan fungsi ini dalam praktik:

 Sub ConvertStringToDouble()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CDbl(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 ganda hanya jika string tersebut berupa angka.

Jika tidak, string akan dikonversi ke nilai null.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Ubah String menjadi Double 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 ganda hanya jika string tersebut berupa angka dan menampilkannya di kolom B.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub ConvertStringToDouble()

    Dim i As Integer

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

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

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

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Bagaimana mengkonversi string ke int di VBA
Cara mengubah string menjadi panjang di VBA