Arquivo de Funções de Conversão

Val – Valores Numéricos

Função Val em VBA - Valor Numérico

Descrição:

A função Val em VBA é uma ferramenta poderosa para a conversão de texto em valores numéricos. Ela analisa uma cadeia de caracteres (string) e tenta interpretá-la como um número, permitindo que o texto represente tanto inteiros quanto decimais. Caso a interpretação seja bem-sucedida, a função retorna o valor numérico correspondente.
Essa função é especialmente útil em situações em que é necessário extrair informações numéricas de entradas de texto, como em formulários ou processamento de dados provenientes de fontes externas. Através da função Val, os desenvolvedores têm a capacidade de realizar conversões eficazes e precisas, contribuindo para a eficiência e exatidão das operações em projetos VBA.
Exemplos:


Sub Exemplo1()
    Dim texto As String
    Dim valor As Double
    
    texto = "42"
    valor = Val(texto)
    MsgBox "O valor é: " & valor
End Sub

Este exemplo converte a string “42” em um valor numérico.


Sub Exemplo2()
    Dim texto As String
    Dim valor As Double
    
    texto = "3.14"
    valor = Val(texto)
    MsgBox "O valor é: " & valor
End Sub

Este exemplo converte a string “3.14” em um valor numérico.


Sub Exemplo3()
    Dim texto As String
    Dim valor As Double
    
    texto = "1234.56"
    valor = Val(texto)
    MsgBox "O valor é: " & valor
End Sub

Este exemplo converte a string “1234.56” em um valor numérico.


Sub Exemplo4()
    Dim texto As String
    Dim valor As Double
    
    texto = "ABC"
    valor = Val(texto)
    MsgBox "O valor é: " & valor
End Sub

Este exemplo tenta converter a string “ABC” em um valor numérico. Como isso não é possível, o valor resultante será 0.


Sub Exemplo5()
    Dim texto As String
    Dim valor As Double
    
    texto = "10.5e3"
    valor = Val(texto)
    MsgBox "O valor é: " & valor
End Sub

Este exemplo converte a string “10.5e3” (equivalente a 10.5 x 10^3 ou 10500) em um valor numérico.

Str – Cadeia de Caracteres

Função Str em VBA - Cadeia de Caracteres

Descrição:

A função Str em VBA é utilizada para converter um valor numérico em sua representação como uma cadeia de caracteres (string). Isso significa que ela transforma números, sejam inteiros ou decimais, em texto que pode ser manipulado e exibido em interfaces de usuário ou em operações que requerem manipulação de strings.
Essa função é especialmente útil em situações onde é necessário combinar valores numéricos com texto ou quando é preciso formatar números antes de exibi-los. Através da função Str, os desenvolvedores podem ter maior controle sobre como os números são apresentados em suas aplicações VBA, proporcionando uma experiência mais personalizada para os usuários finais.
Exemplos:


Sub Exemplo1()
    Dim numero As Integer
    Dim texto As String
    
    numero = 42
    texto = Str(numero)
    MsgBox "O valor como texto é: " & texto
End Sub

Este exemplo converte o número inteiro 42 em uma string.


Sub Exemplo2()
    Dim numero As Double
    Dim texto As String
    
    numero = 3.14
    texto = Str(numero)
    MsgBox "O valor como texto é: " & texto
End Sub

Este exemplo converte o número decimal 3.14 em uma string.


Sub Exemplo3()
    Dim valor As Currency
    Dim texto As String
    
    valor = 1234.56
    texto = Str(valor)
    MsgBox "O valor como texto é: " & texto
End Sub

Este exemplo converte o valor monetário 1234.56 em uma string.


Sub Exemplo4()
    Dim percentual As Double
    Dim texto As String
    
    percentual = 0.75
    texto = Str(percentual)
    MsgBox "O valor como texto é: " & texto
End Sub

Este exemplo converte o número decimal 0.75 em uma string.


Sub Exemplo5()
    Dim booleano As Boolean
    Dim texto As String
    
    booleano = True
    texto = Str(booleano)
    MsgBox "O valor como texto é: " & texto
End Sub

Este exemplo converte o valor booleano True em uma string.

Oct – octal

Função Oct em VBA - Octal

Descrição:

A função Oct em VBA é utilizada para converter um número inteiro em sua representação octal. A representação octal é um sistema numérico de base 8, o que significa que utiliza apenas os dígitos de 0 a 7 para representar valores. Ela é frequentemente utilizada em contextos onde a precisão na representação binária é necessária, como em programação de sistemas e eletrônica.
Ao empregar a função Oct, é possível rapidamente converter valores para o formato octal, facilitando operações que requerem essa representação específica. Isso pode ser útil em situações onde é necessário lidar com configurações de hardware ou manipulação de bits em programação VBA.
Exemplos:


Sub Exemplo1()
    Dim numero As Integer
    Dim octal As String
    
    numero = 8
    octal = Oct(numero)
    MsgBox "O valor em octal é: " & octal
End Sub

Este exemplo converte o número inteiro 8 para sua representação octal.


Sub Exemplo2()
    Dim numero As Integer
    Dim octal As String
    
    numero = 16
    octal = Oct(numero)
    MsgBox "O valor em octal é: " & octal
End Sub

Este exemplo converte o número inteiro 16 para sua representação octal.


Sub Exemplo3()
    Dim numero As Integer
    Dim octal As String
    
    numero = 255
    octal = Oct(numero)
    MsgBox "O valor em octal é: " & octal
End Sub

Este exemplo converte o número inteiro 255 para sua representação octal.


Sub Exemplo4()
    Dim numero As Integer
    Dim octal As String
    
    numero = 1024
    octal = Oct(numero)
    MsgBox "O valor em octal é: " & octal
End Sub

Este exemplo converte o número inteiro 1024 para sua representação octal.


Sub Exemplo5()
    Dim numero As Integer
    Dim octal As String
    
    numero = 4095
    octal = Oct(numero)
    MsgBox "O valor em octal é: " & octal
End Sub

Este exemplo converte o número inteiro 4095 para sua representação octal.

Hex – hexadecimal

Função Hex em VBA - hexadecimal

Descrição:

A função Hex em VBA é utilizada para converter um número inteiro em sua representação hexadecimal. Em outras palavras, ela transforma um valor numérico em uma sequência de caracteres que corresponde à sua forma hexadecimal. O sistema hexadecimal é baseado em 16 símbolos (0-9 e A-F), proporcionando uma representação compacta e amplamente utilizada em programação de computadores.
Essa função é útil em situações onde a representação hexadecimal de um número é necessária, como em operações de baixo nível, manipulação de cores ou endereços de memória. Com a função Hex, é possível obter rapidamente a representação hexadecimal de um valor inteiro, facilitando a programação em VBA.
Exemplos:


Sub Exemplo1()
    Dim numero As Integer
    numero = 255
    Dim hexa As String
    hexa = Hex(numero)
    MsgBox "O valor em hexadecimal é: " & hexa
End Sub

Este exemplo converte o número inteiro 255 para sua representação hexadecimal.


Sub Exemplo2()
    Dim numero As Integer
    numero = 1234
    Dim hexa As String
    hexa = Hex(numero)
    MsgBox "O valor em hexadecimal é: " & hexa
End Sub

Este exemplo converte o número inteiro 1234 para sua representação hexadecimal.


Sub Exemplo3()
    Dim numero As Integer
    numero = 16
    Dim hexa As String
    hexa = Hex(numero)
    MsgBox "O valor em hexadecimal é: " & hexa
End Sub

Este exemplo converte o número inteiro 16 para sua representação hexadecimal.


Sub Exemplo4()
    Dim numero As Integer
    numero = 1024
    Dim hexa As String
    hexa = Hex(numero)
    MsgBox "O valor em hexadecimal é: " & hexa
End Sub

Este exemplo converte o número inteiro 1024 para sua representação hexadecimal.


Sub Exemplo5()
    Dim numero As Integer
    numero = 65535
    Dim hexa As String
    hexa = Hex(numero)
    MsgBox "O valor em hexadecimal é: " & hexa
End Sub

Este exemplo converte o número inteiro 65535 para sua representação hexadecimal.

CVErr – Erro Específico

Função CVErr em VBA - Erro Específico

Descrição:

A função CVErr em VBA é utilizada para gerar um valor de erro específico que pode ser atribuído a uma variável ou utilizado para sinalizar uma condição de erro em um procedimento VBA. Ela é especialmente útil para manipular e tratar situações de erro de forma controlada, permitindo que o código execute ações específicas quando uma condição de erro é detectada.
Ao utilizar CVErr, é possível criar códigos mais robustos e resilientes, que podem lidar com diferentes cenários, como divisões por zero, valores inválidos, entre outros. Isso contribui para a eficiência e confiabilidade de scripts e macros escritos em VBA.
Exemplos:


Sub Exemplo1()
    Dim erro As Variant
    erro = CVErr(xlErrDiv0)
    MsgBox "Ocorreu um erro de divisão por zero."
End Sub

Este exemplo gera um erro de divisão por zero utilizando o código de erro xlErrDiv0.


Sub Exemplo2()
    On Error Resume Next
    Dim valor As Variant
    valor = 10 / 0
    If Err.Number <> 0 Then
        valor = CVErr(xlErrDiv0)
    End If
    MsgBox "O valor é: " & valor
End Sub

Este exemplo utiliza a função CVErr para tratar um erro de divisão por zero.


Sub Exemplo3()
    Dim erro As Variant
    erro = CVErr(xlErrValue)
    MsgBox "Ocorreu um erro de valor inválido."
End Sub

Este exemplo gera um erro de valor inválido utilizando o código de erro xlErrValue.


Sub Exemplo4()
    Dim erro As Variant
    erro = CVErr(xlErrNA)
    MsgBox "Ocorreu um erro de valor não disponível."
End Sub

Este exemplo gera um erro de valor não disponível utilizando o código de erro xlErrNA.


Sub Exemplo5()
    Dim erro As Variant
    erro = CVErr(xlErrNum)
    MsgBox "Ocorreu um erro numérico."
End Sub

Este exemplo gera um erro numérico utilizando o código de erro xlErrNum.

Chr Caractere Associado

Função Chr em VBA - Caractere Associado

Descrição:

A função Chr em VBA permite converter um código ASCII (American Standard Code for Information Interchange) em seu caractere correspondente. Ao fornecer um valor numérico como argumento para a função, ela retorna o caractere associado a esse código na tabela ASCII.
Essa função é útil em situações onde é necessário trabalhar com códigos ASCII para representar caracteres específicos, especialmente em operações de manipulação de texto. Com o Chr, é possível converter facilmente códigos numéricos em caracteres compreensíveis, facilitando a programação em VBA.
Exemplos:


Sub Exemplo1()
    Dim caractere As String
    caractere = Chr(65)
    MsgBox "O caractere associado a 65 é: " & caractere
End Sub

Este exemplo exibirá uma caixa de mensagem com o caractere associado ao código ASCII 65 (que é ‘A’).


Sub Exemplo2()
    Dim caractere As String
    caractere = Chr(97)
    MsgBox "O caractere associado a 97 é: " & caractere
End Sub

Este exemplo exibirá uma caixa de mensagem com o caractere associado ao código ASCII 97 (que é ‘a’).


Sub Exemplo3()
    Dim caractere As String
    caractere = Chr(36)
    MsgBox "O caractere associado a 36 é: " & caractere
End Sub

Este exemplo exibirá uma caixa de mensagem com o caractere associado ao código ASCII 36 (que é ‘$’).


Sub Exemplo4()
    Dim caractere As String
    caractere = Chr(126)
    MsgBox "O caractere associado a 126 é: " & caractere
End Sub

Este exemplo exibirá uma caixa de mensagem com o caractere associado ao código ASCII 126 (que é ‘~’).


Sub Exemplo5()
    Dim caractere As String
    caractere = Chr(33)
    MsgBox "O caractere associado a 33 é: " & caractere
End Sub

Este exemplo exibirá uma caixa de mensagem com o caractere associado ao código ASCII 33 (que é ‘!’).

ASC – ASCII

Função ASC em VBA - ASCII

Descrição:

A função Asc em VBA retorna o valor numérico do código ASCII (American Standard Code for Information Interchange) do primeiro caractere de uma cadeia de caracteres (string). O código ASCII é um sistema de codificação que associa um número único a cada caractere, o que facilita a representação e manipulação de texto em computadores. Ao utilizar a função Asc, é possível obter o valor numérico correspondente a um caractere específico, o que pode ser útil em diversas situações, como comparações de caracteres ou transformações de texto em operações de programação.
Exemplos:


Sub Exemplo1()
    Dim codigo As Integer
    codigo = Asc("A")
    MsgBox "O código ASCII de 'A' é: " & codigo
End Sub

Este exemplo exibirá uma caixa de mensagem com o código ASCII de ‘A’ (que é 65).


Sub Exemplo2()
    Dim codigo As Integer
    codigo = Asc("B")
    MsgBox "O código ASCII de 'B' é: " & codigo
End Sub

Este exemplo exibirá uma caixa de mensagem com o código ASCII de ‘B’ (que é 66).


Sub Exemplo3()
    Dim codigo As Integer
    codigo = Asc("1")
    MsgBox "O código ASCII de '1' é: " & codigo
End Sub

Este exemplo exibirá uma caixa de mensagem com o código ASCII de ‘1’ (que é 49).


Sub Exemplo4()
    Dim codigo As Integer
    codigo = Asc("!")
    MsgBox "O código ASCII de '!' é: " & codigo
End Sub

Este exemplo exibirá uma caixa de mensagem com o código ASCII de ‘!’ (que é 33).


Sub Exemplo5()
    Dim codigo As Integer
    codigo = Asc("@")
    MsgBox "O código ASCII de '@' é: " & codigo
End Sub

Este exemplo exibirá uma caixa de mensagem com o código ASCII de ‘@’ (que é 64).