IsNumeric

Descrição:

A função IsNumeric em VBA é utilizada para verificar se um valor é numérico. Ela retorna um valor booleano indicando se o valor fornecido é interpretado como numérico (True) ou não (False). Isso é especialmente útil ao lidar com entrada de dados em formulários ou ao processar informações onde a validação numérica é necessária.
Exemplos:

Sub Exemplo1()
    Dim valor As Variant
    valor = 123
    MsgBox IsNumeric(valor) ' Retorna True
End Sub
    

Neste exemplo, a função IsNumeric verifica se o valor fornecido (valor) é numérico. Como foi atribuído um número, o retorno é True.

Sub Exemplo2()
    Dim texto As String
    texto = "123"
    MsgBox IsNumeric(texto) ' Retorna True
End Sub
    

Neste exemplo, a função IsNumeric verifica se o valor fornecido (texto) é numérico. Apesar de ser uma string, o conteúdo pode ser interpretado como número, então o retorno é True.

Sub Exemplo3()
    Dim numero As Integer
    numero = 42
    MsgBox IsNumeric(numero) ' Retorna True
End Sub
    

Neste exemplo, a função IsNumeric verifica se o valor fornecido (numero) é numérico. Como é um número inteiro, o retorno é True.

Sub Exemplo4()
    Dim lista() As Variant
    lista = Array(1, 2, 3)
    MsgBox IsNumeric(lista(0)) ' Retorna True, o primeiro elemento do array é um número
End Sub
    

Neste exemplo, a função IsNumeric verifica se o primeiro elemento do array (lista(0)) é numérico. Como é um número, o retorno é True.

Sub Exemplo5()
    Dim planilha As Worksheet
    Set planilha = ThisWorkbook.Sheets(1)
    MsgBox IsNumeric(planilha.Cells(1, 1).Value) ' Retorna True se o conteúdo da célula for numérico
End Sub
    

Neste exemplo, a função IsNumeric verifica se o conteúdo da célula na primeira linha e primeira coluna da primeira planilha é numérico. O retorno depende do conteúdo da célula.