Como converter uma string em duplo em vba (com exemplos)

Você pode usar a função CDbl no VBA para converter uma string de texto em um tipo de dados duplo.

Esta é uma maneira comum de usar esta função na prática:

 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

Esta macro específica converterá cada string no intervalo A2:A11 em um tipo de dados duplo somente se a string for um número.

Caso contrário, a string será convertida em um valor nulo.

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: Converter uma String em Double em VBA

Digamos que temos a seguinte coluna de valores no Excel, atualmente formatada como strings de texto:

Suponha que queiramos converter cada string em um tipo de dados duplo apenas se a string for um número e exibi-los na coluna B.

Podemos criar a seguinte macro para fazer isso:

 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

Quando executamos esta macro, recebemos a seguinte saída:

Observe que apenas sequências de texto na coluna A que são números são convertidas em tipos de dados duplos na coluna B.

Caso contrário, as strings de texto serão simplesmente convertidas em um valor nulo.

Nota : Você pode encontrar a documentação completa da função CDbl do VBA aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

Como converter string em int em VBA
Como converter uma string em longa no VBA