Loc

Descrição:

A função Loc em VBA é utilizada para obter o número de série do arquivo atual. Esse número de série é único para cada instalação do Microsoft Excel e pode ser útil em situações onde é necessário identificar de forma única a instalação do aplicativo.

Exemplos:


Sub Exemplo1()
    Dim numeroSerie As Long
    numeroSerie = Loc
    MsgBox "O número de série do arquivo atual é: " & numeroSerie
End Sub
    

Neste exemplo, a função Loc é utilizada para obter o número de série do arquivo atual e exibi-lo em um MsgBox.


Sub Exemplo2()
    Dim numeroSerie As Long
    numeroSerie = Loc
    Range("A1").Value = "Número de Série: " & numeroSerie
End Sub
    

Neste exemplo, a função Loc é utilizada para obter o número de série e escrevê-lo na célula A1 da planilha.


Sub Exemplo3()
    Dim numeroSerie As Long
    numeroSerie = Loc
    ThisWorkbook.Sheets(1).Cells(1, 1).Value = numeroSerie
End Sub
    

Neste exemplo, a função Loc é utilizada para obter o número de série e gravá-lo na célula A1 da primeira planilha do livro.


Sub Exemplo4()
    Dim numeroSerie As Long
    numeroSerie = Loc
    Debug.Print "Número de Série: " & numeroSerie
End Sub
    

Neste exemplo, a função Loc é utilizada para obter o número de série e exibi-lo no console de depuração.


Sub Exemplo5()
    Dim numeroSerie As Long
    numeroSerie = Loc
    If numeroSerie = 12345 Then
        MsgBox "Número de Série Válido"
    Else
        MsgBox "Número de Série Inválido"
    End If
End Sub
    

Neste exemplo, a função Loc é utilizada para obter o número de série e compará-lo a um valor específico.

 

Left – Esquerda

Descrição:

A função Left em VBA é utilizada para extrair uma parte específica de uma string, começando do início (da esquerda). Ela retorna um número de caracteres determinado pelo usuário a partir do começo da string. Essa função é útil quando é necessário trabalhar com partes específicas de texto.

Exemplos:


Sub Exemplo1()
    Dim texto As String
    texto = "Exemplo de Texto"
    MsgBox Left(texto, 7) ' Retorna "Exemplo"
End Sub
    

Neste exemplo, a função Left é utilizada para extrair os primeiros sete caracteres da string texto.


Sub Exemplo2()
    Dim palavra As String
    palavra = "Programação"
    MsgBox Left(palavra, 5) ' Retorna "Progr"
End Sub
    

Neste exemplo, a função Left é utilizada para extrair os primeiros cinco caracteres da string palavra.


Sub Exemplo3()
    Dim frase As String
    frase = "Estamos aprendendo VBA"
    MsgBox Left(frase, 8) ' Retorna "Estamos "
End Sub
    

Neste exemplo, a função Left é utilizada para extrair os primeiros oito caracteres da string frase.


Sub Exemplo4()
    Dim vazia As String
    MsgBox Left(vazia, 3) ' Retorna uma string vazia ""
End Sub
    

Neste exemplo, a função Left é utilizada em uma string vazia. O resultado é uma string vazia, pois não há caracteres para extrair.


Sub Exemplo5()
    Dim numeros As String
    numeros = "1234567890"
    MsgBox Left(numeros, 4) ' Retorna "1234"
End Sub
    

Neste exemplo, a função Left é utilizada para extrair os primeiros quatro dígitos da string numeros.

 

LCase – Minúsculas

Descrição:

A função LCase em VBA é utilizada para converter uma string para minúsculas. Ela altera todos os caracteres alfabéticos na string para suas formas minúsculas equivalentes. Isso é útil em situações onde a capitalização não é relevante e facilita a comparação de strings sem diferenciação entre maiúsculas e minúsculas.
Exemplos:


Sub Exemplo1()
    Dim texto As String
    texto = "EXEMPLO"
    MsgBox LCase(texto) ' Retorna "exemplo"
End Sub
    

Neste exemplo, a função LCase é utilizada para converter a string texto para minúsculas.


Sub Exemplo2()
    Dim frase As String
    frase = "Esta É Uma Frase DE Exemplo"
    MsgBox LCase(frase) ' Retorna "esta é uma frase de exemplo"
End Sub
    

Neste exemplo, a função LCase é utilizada para converter a string frase para minúsculas, mantendo o conteúdo intacto.


Sub Exemplo3()
    Dim palavra As String
    palavra = "vBa"
    MsgBox LCase(palavra) ' Retorna "vba"
End Sub
    

Neste exemplo, a função LCase é utilizada para converter a string palavra para minúsculas.


Sub Exemplo4()
    Dim textoVazio As String
    MsgBox LCase(textoVazio) ' Retorna uma string vazia ""
End Sub
    

Neste exemplo, a função LCase é utilizada em uma string vazia. O resultado é uma string vazia, pois não há caracteres para converter.


Sub Exemplo5()
    Dim numeros As String
    numeros = "12345"
    MsgBox LCase(numeros) ' Retorna "12345"
End Sub
    

Neste exemplo, a função LCase é utilizada em uma string contendo apenas números. Como os números não são afetados, a string permanece a mesma.

LBound

Descrição:

A função LBound em VBA é utilizada para obter o limite inferior de uma matriz ou de uma dimensão específica de uma matriz. O “limite inferior” refere-se ao índice do primeiro elemento na dimensão da matriz. Isso é especialmente útil ao trabalhar com matrizes multidimensionais e ao iterar sobre os elementos.
Exemplos:


Sub Exemplo1()
    Dim arr(1 To 5) As Integer
    MsgBox LBound(arr) ' Retorna 1, o limite inferior da matriz é 1
End Sub
    

Neste exemplo, a função LBound é utilizada para obter o limite inferior da matriz arr. Como a matriz começa no índice 1, o retorno é 1.


Sub Exemplo2()
    Dim nomes(0 To 4) As String
    MsgBox LBound(nomes) ' Retorna 0, o limite inferior da matriz é 0
End Sub
    

Neste exemplo, a função LBound é utilizada para obter o limite inferior da matriz nomes. Como a matriz começa no índice 0, o retorno é 0.


Sub Exemplo3()
    Dim matriz(1 To 3, 1 To 2) As Double
    MsgBox LBound(matriz, 1) ' Retorna 1, o limite inferior da primeira dimensão é 1
    MsgBox LBound(matriz, 2) ' Retorna 1, o limite inferior da segunda dimensão é 1
End Sub
    

Neste exemplo, a função LBound é utilizada para obter os limites inferiores das dimensões da matriz matriz. A primeira chamada retorna 1, indicando o limite inferior da primeira dimensão. A segunda chamada também retorna 1, indicando o limite inferior da segunda dimensão.


Sub Exemplo4()
    Dim arr(10 To 20) As Integer
    MsgBox LBound(arr) ' Retorna 10, o limite inferior da matriz é 10
End Sub
    

Neste exemplo, a função LBound é utilizada para obter o limite inferior da matriz arr. Como a matriz começa no índice 10, o retorno é 10.


Sub Exemplo5()
    Dim vazia() As Integer
    MsgBox LBound(vazia) ' Gera um erro, a matriz está vazia
End Sub
    

Neste exemplo, a função LBound é utilizada em uma matriz vazia. Isso gera um erro, pois não há elementos para obter o limite inferior.

 

Join – Unir

Descrição:

A função Join em VBA é utilizada para unir os elementos de uma matriz em uma única string. Ela permite especificar um caractere ou sequência de caracteres para separar os elementos na string resultante. Essa função é particularmente útil ao trabalhar com matrizes e ao formatar dados para exibição ou exportação.

Exemplos:


Sub Exemplo1()
    Dim arr() As Variant
    arr = Array("Maçã", "Banana", "Pera")
    Dim str As String
    str = Join(arr, ", ") ' Retorna "Maçã, Banana, Pera"
    MsgBox str
End Sub
    

Neste exemplo, a função Join é utilizada para unir os elementos do array arr em uma única string, separando-os por vírgula e espaço.


Sub Exemplo2()
    Dim numeros() As Variant
    numeros = Array(1, 2, 3, 4, 5)
    Dim str As String
    str = Join(numeros, "-") ' Retorna "1-2-3-4-5"
    MsgBox str
End Sub
    

Neste exemplo, a função Join é utilizada para unir os elementos do array numeros em uma única string, separando-os por hífen.


Sub Exemplo3()
    Dim nomes() As Variant
    nomes = Array("João", "Maria", "José")
    Dim str As String
    str = Join(nomes, " e ") ' Retorna "João e Maria e José"
    MsgBox str
End Sub
    

Neste exemplo, a função Join é utilizada para unir os elementos do array nomes em uma única string, separando-os por ” e “.


Sub Exemplo4()
    Dim letras() As Variant
    letras = Array("A", "B", "C", "D", "E")
    Dim str As String
    str = Join(letras, "") ' Retorna "ABCDE"
    MsgBox str
End Sub
    

Neste exemplo, a função Join é utilizada para unir os elementos do array letras em uma única string, sem separação.


Sub Exemplo5()
    Dim vazia() As Variant
    Dim str As String
    str = Join(vazia, ", ") ' Retorna uma string vazia ""
    MsgBox str
End Sub
    

Neste exemplo, a função Join é utilizada em um array vazio. O resultado é uma string vazia.

 

IsObject

Descrição:

A função IsObject em VBA é utilizada para verificar se um valor é um objeto. Ela retorna um valor booleano indicando se o valor fornecido é um objeto (True) ou não (False). Isso é especialmente útil ao trabalhar com objetos do Excel, como planilhas, faixas, gráficos, entre outros.
Exemplos:


Sub Exemplo1()
    Dim planilha As Worksheet
    Set planilha = ThisWorkbook.Sheets(1)
    MsgBox IsObject(planilha) ' Retorna True, a variável contém um objeto Worksheet
End Sub
    

Neste exemplo, a função IsObject verifica se a variável planilha contém um objeto. Como foi atribuída uma planilha, o retorno é True.


Sub Exemplo2()
    Dim valor As Variant
    valor = 123
    MsgBox IsObject(valor) ' Retorna False, o valor não é um objeto
End Sub
    

Neste exemplo, a função IsObject verifica se o valor fornecido (valor) é um objeto. Como é um número, o retorno é False.


Sub Exemplo3()
    Dim texto As String
    texto = "Olá, mundo!"
    MsgBox IsObject(texto) ' Retorna False, a string não é um objeto
End Sub
    

Neste exemplo, a função IsObject verifica se o valor fornecido (texto) é um objeto. Como é uma string, o retorno é False.


Sub Exemplo4()
    Dim rng As Range
    Set rng = ThisWorkbook.Sheets(1).Range("A1")
    MsgBox IsObject(rng) ' Retorna True, a variável contém um objeto Range
End Sub
    

Neste exemplo, a função IsObject verifica se a variável rng contém um objeto. Como foi atribuído um intervalo (Range), o retorno é True.


Sub Exemplo5()
    Dim col As Collection
    Set col = New Collection
    MsgBox IsObject(col) ' Retorna True, a variável contém um objeto Collection
End Sub
    

Neste exemplo, a função IsObject verifica se a variável col contém um objeto. Como foi criada uma nova coleção (Collection), o retorno é True.

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.

 

IsNull

Descrição:

A função IsNull em VBA é utilizada para verificar se uma variável contém um valor nulo. Isso é especialmente útil quando se lida com bancos de dados ou conjuntos de dados onde valores nulos podem estar presentes. A função IsNull retorna um valor booleano indicando se a variável é nula (True) ou não (False).

Exemplos:


Sub Exemplo1()
    Dim valor As Variant
    valor = Null ' Atribui um valor nulo à variável
    MsgBox IsNull(valor) ' Retorna True
End Sub
    

Neste exemplo, a função IsNull verifica se a variável valor contém um valor nulo. Como foi atribuído um valor nulo, o retorno é True.


Sub Exemplo2()
    Dim texto As String
    MsgBox IsNull(texto) ' Retorna False, a variável não foi inicializada
End Sub
    

Neste exemplo, a função IsNull verifica se a variável texto contém um valor nulo. Como a variável não foi inicializada, o retorno é False.


Sub Exemplo3()
    Dim numero As Integer
    numero = 0 ' Atribui um valor não nulo à variável
    MsgBox IsNull(numero) ' Retorna False
End Sub
    

Neste exemplo, a função IsNull verifica se a variável numero contém um valor nulo. Como foi atribuído um valor não nulo, o retorno é False.


Sub Exemplo4()
    Dim lista() As Variant
    lista = Array(1, 2, 3) ' Atribui um array não nulo à variável
    MsgBox IsNull(lista) ' Retorna False
End Sub
    

Neste exemplo, a função IsNull verifica se a variável lista contém um valor nulo. Como foi atribuído um array não nulo, o retorno é False.


Sub Exemplo5()
    Dim planilha As Worksheet
    Set planilha = Nothing ' Atribui um valor nulo à variável
    MsgBox IsNull(planilha) ' Retorna False, a variável contém uma referência nula
End Sub
    

Neste exemplo, a função IsNull verifica se a variável planilha contém uma referência nula. Como foi atribuído uma referência nula, o retorno é False.

 

IsMissing

Descrição:

A função IsMissing em VBA é utilizada para verificar se um argumento opcional foi passado para uma função. Ela é particularmente útil quando se tem funções com parâmetros que podem ser omitidos. A função IsMissing retorna um valor booleano indicando se o argumento foi fornecido (False) ou não (True).

Exemplos:


Function Exemplo1(Optional valor As Variant)
    If IsMissing(valor) Then
        MsgBox "O argumento 'valor' não foi fornecido."
    Else
        MsgBox "O argumento 'valor' foi fornecido com o valor: " & valor
    End If
End Function
    

Neste exemplo, a função Exemplo1 verifica se o argumento valor foi fornecido. Se não, exibe uma mensagem indicando que o argumento não foi passado. Se sim, exibe o valor fornecido.


Function Exemplo2(Optional texto As String)
    If IsMissing(texto) Then
        MsgBox "O argumento 'texto' não foi fornecido."
    Else
        MsgBox "O argumento 'texto' foi fornecido com o valor: " & texto
    End If
End Function
    

Neste exemplo, a função Exemplo2 verifica se o argumento texto foi fornecido. Se não, exibe uma mensagem indicando que o argumento não foi passado. Se sim, exibe o valor fornecido.


Function Exemplo3(Optional numero As Integer)
    If IsMissing(numero) Then
        MsgBox "O argumento 'numero' não foi fornecido."
    Else
        MsgBox "O argumento 'numero' foi fornecido com o valor: " & numero
    End If
End Function
    

Neste exemplo, a função Exemplo3 verifica se o argumento numero foi fornecido. Se não, exibe uma mensagem indicando que o argumento não foi passado. Se sim, exibe o valor fornecido.


Function Exemplo4(Optional data As Date)
    If IsMissing(data) Then
        MsgBox "O argumento 'data' não foi fornecido."
    Else
        MsgBox "O argumento 'data' foi fornecido com o valor: " & data
    End If
End Function
    

Neste exemplo, a função Exemplo4 verifica se o argumento data foi fornecido. Se não, exibe uma mensagem indicando que o argumento não foi passado. Se sim, exibe o valor fornecido.


Function Exemplo5(Optional lista() As Variant)
    If IsMissing(lista) Then
        MsgBox "O argumento 'lista' não foi fornecido."
    Else
        MsgBox "O argumento 'lista' foi fornecido com " & UBound(lista) + 1 & " elementos."
    End If
End Function
    

Neste exemplo, a função Exemplo5 verifica se o argumento lista foi fornecido. Se não, exibe uma mensagem indicando que o argumento não foi passado. Se sim, exibe a quantidade de elementos na lista.

 

IsError

Descrição:

A função IsError em VBA é uma ferramenta importante para verificar se um valor representa um erro no Excel. Ela permite determinar se um dado fornecido contém uma indicação de erro. Isso é particularmente útil ao lidar com fórmulas ou funções que podem retornar valores de erro em determinadas condições. A função IsError retorna um valor booleano indicando se o valor é um erro (True) ou não (False).

Exemplos:


Sub Exemplo1()
    Dim valor As Variant
    valor = 10 / 0 ' Divisão por zero gera um erro
    MsgBox IsError(valor) ' Retorna True
End Sub
    

Neste exemplo, a função IsError verifica se o valor contido na variável valor representa um erro. Como a divisão por zero gera um erro, o retorno é True.


Sub Exemplo2()
    Dim valor As Variant
    valor = "ABC" ' Uma string não é um erro
    MsgBox IsError(valor) ' Retorna False
End Sub
    

Neste exemplo, a função IsError verifica se o valor contido na variável valor representa um erro. Como uma string não é um erro, o retorno é False.


Sub Exemplo3()
    Dim valor As Variant
    valor = CVErr(xlErrValue) ' Valor de erro
    MsgBox IsError(valor) ' Retorna True
End Sub
    

Neste exemplo, a função IsError verifica se o valor contido na variável valor representa um erro. Como foi atribuído um valor de erro explicitamente, o retorno é True.


Sub Exemplo4()
    Dim valor As Variant
    valor = 123 ' Um número não é um erro
    MsgBox IsError(valor) ' Retorna False
End Sub
    

Neste exemplo, a função IsError verifica se o valor contido na variável valor representa um erro. Como um número não é um erro, o retorno é False.


Sub Exemplo5()
    Dim valor As Variant
    valor = CVErr(xlErrNA) ' Valor de erro #N/A
    MsgBox IsError(valor) ' Retorna True
End Sub
    

Neste exemplo, a função IsError verifica se o valor contido na variável valor representa um erro. Como foi atribuído um valor de erro #N/A, o retorno é True.