Categoria: Funções

Loc

Função Loc em VBA

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

Função Left em VBA

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

Função LCase em VBA

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

Função LBound em VBA

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

Função Join em VBA

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.

 

TIR – Taxa Interna

Função TIR em VBA

Descrição:

A função TIR em VBA, que significa Taxa Interna de Retorno, é uma ferramenta essencial para análise financeira no Excel. Ela é utilizada para calcular a taxa de retorno de um investimento com base nos fluxos de caixa esperados ao longo do tempo. A TIR é uma métrica crucial para avaliar a viabilidade de projetos e investimentos. Ao calcular a TIR de diferentes cenários, os profissionais financeiros podem tomar decisões informadas sobre alocação de recursos e seleção de projetos.
Exemplos:


Sub Exemplo1()
    Dim fluxosDeCaixa(1 To 5) As Double
    fluxosDeCaixa(1) = -1000 ' Investimento inicial de R$ 1.000,00
    fluxosDeCaixa(2) = 200 ' Recebimento de R$ 200,00 no primeiro ano
    fluxosDeCaixa(3) = 300 ' Recebimento de R$ 300,00 no segundo ano
    fluxosDeCaixa(4) = 400 ' Recebimento de R$ 400,00 no terceiro ano
    fluxosDeCaixa(5) = 500 ' Recebimento de R$ 500,00 no quarto ano
    
    Dim taxaTIR As Double
    taxaTIR = TIR(fluxosDeCaixa)
    MsgBox "A Taxa Interna de Retorno é de " & taxaTIR & "%"
End Sub

Neste exemplo, a função TIR é utilizada para calcular a Taxa Interna de Retorno de um investimento com investimento inicial de R$ 1.000,00 e fluxos de caixa nos próximos quatro anos.


Sub Exemplo2()
    Dim fluxosDeCaixa(1 To 6) As Double
    fluxosDeCaixa(1) = -1500 ' Investimento inicial de R$ 1.500,00
    fluxosDeCaixa(2) = 300 ' Recebimento de R$ 300,00 no primeiro ano
    fluxosDeCaixa(3) = 400 ' Recebimento de R$ 400,00 no segundo ano
    fluxosDeCaixa(4) = 500 ' Recebimento de R$ 500,00 no terceiro ano
    fluxosDeCaixa(5) = 600 ' Recebimento de R$ 600,00 no quarto ano
    fluxosDeCaixa(6) = 700 ' Recebimento de R$ 700,00 no quinto ano
    
    Dim taxaTIR As Double
    taxaTIR = TIR(fluxosDeCaixa)
    MsgBox "A Taxa Interna de Retorno é de " & taxaTIR & "%"
End Sub

Neste exemplo, a função TIR é utilizada para calcular a Taxa Interna de Retorno de um investimento com investimento inicial de R$ 1.500,00 e fluxos de caixa nos próximos cinco anos.


Sub Exemplo3()
    Dim fluxosDeCaixa(1 To 7) As Double
    fluxosDeCaixa(1) = -2000 ' Investimento inicial de R$ 2.000,00
    fluxosDeCaixa(2) = 400 ' Recebimento de R$ 400,00 no primeiro ano
    fluxosDeCaixa(3) = 500 ' Recebimento de R$ 500,00 no segundo ano
    fluxosDeCaixa(4) = 600 ' Recebimento de R$ 600,00 no terceiro ano
    fluxosDeCaixa(5) = 700 ' Recebimento de R$ 700,00 no quarto ano
    fluxosDeCaixa(6) = 800 ' Recebimento de R$ 800,00 no quinto ano
    fluxosDeCaixa(7) = 900 ' Recebimento de R$ 900,00 no sexto ano
    
    Dim taxaTIR As Double
    taxaTIR = TIR(fluxosDeCaixa)
    MsgBox "A Taxa Interna de Retorno é de " & taxaTIR & "%"
End Sub

Neste exemplo, a função TIR é utilizada para calcular a Taxa Interna de Retorno de um investimento com investimento inicial de R$ 2.000,00 e fluxos de caixa nos próximos seis anos.


Sub Exemplo4()
    Dim fluxosDeCaixa(1 To 4) As Double
    fluxosDeCaixa(1) = -1200 ' Investimento inicial de R$ 1.200,00
    fluxosDeCaixa(2) = 250 ' Recebimento de R$ 250,00 no primeiro ano
    fluxosDeCaixa(3) = 350 ' Recebimento de R$ 350,00 no segundo ano
    fluxosDeCaixa(4) = 450 ' Recebimento de R$ 450,00 no terceiro ano
    
    Dim taxaTIR As Double
    taxaTIR = TIR(fluxosDeCaixa)
    MsgBox "A Taxa Interna de Retorno é de " & taxaTIR & "%"
End Sub

Neste exemplo, a função TIR é utilizada para calcular a Taxa Interna de Retorno de um investimento com investimento inicial de R$ 1.200,00 e fluxos de caixa nos próximos três anos.


Sub Exemplo5()
    Dim fluxosDeCaixa(1 To 3) As Double
    fluxosDeCaixa(1) = -800 ' Investimento inicial de R$ 800,00
    fluxosDeCaixa(2) = 150 ' Recebimento de R$ 150,00 no primeiro ano
    fluxosDeCaixa(3) = 200 ' Recebimento de R$ 200,00 no segundo ano
    
    Dim taxaTIR As Double
    taxaTIR = TIR(fluxosDeCaixa)
    MsgBox "A Taxa Interna de Retorno é de " & taxaTIR & "%"
End Sub

Neste exemplo, a função TIR é utilizada para calcular a Taxa Interna de Retorno de um investimento com investimento inicial de R$ 800,00 e fluxos de caixa nos próximos dois anos.

IPmt – Cálculos Financeiros

Função IPmt em VBA

Descrição:

A função IPmt em VBA é uma ferramenta crucial para cálculos financeiros no Excel. Ela é utilizada para calcular o pagamento de juros em um empréstimo ou investimento, permitindo uma análise detalhada das despesas relacionadas aos juros ao longo do tempo. Com a função IPmt, é possível determinar quanto do pagamento periódico é destinado ao pagamento de juros, o que é essencial para planejamento financeiro e análises de viabilidade de projetos. Ao usar o IPmt em conjunto com outras funções financeiras do Excel, é possível criar modelos sofisticados para avaliação de empréstimos e investimentos.
Exemplos:


Sub Exemplo1()
    Dim valorEmprestimo As Double
    Dim taxaJuros As Double
    Dim periodo As Integer
    Dim resultado As Double
    
    valorEmprestimo = 10000 ' Valor do empréstimo
    taxaJuros = 0.05 ' Taxa de juros (5%)
    periodo = 1 ' Primeiro mês
    
    resultado = IPmt(taxaJuros, periodo, 12, valorEmprestimo)
    MsgBox "O pagamento de juros no primeiro mês é de R$ " & resultado
End Sub

Neste exemplo, a função IPmt é utilizada para calcular o pagamento de juros em um empréstimo de R$ 10.000,00 com uma taxa de juros de 5% ao ano. O cálculo é feito para o primeiro mês de um total de 12 meses.


Sub Exemplo2()
    Dim valorEmprestimo As Double
    Dim taxaJuros As Double
    Dim periodo As Integer
    Dim resultado As Double
    
    valorEmprestimo = 15000 ' Valor do empréstimo
    taxaJuros = 0.04 ' Taxa de juros (4%)
    periodo = 6 ' Sexto mês
    
    resultado = IPmt(taxaJuros, periodo, 12, valorEmprestimo)
    MsgBox "O pagamento de juros no sexto mês é de R$ " & resultado
End Sub

Neste exemplo, a função IPmt é utilizada para calcular o pagamento de juros em um empréstimo de R$ 15.000,00 com uma taxa de juros de 4% ao ano. O cálculo é feito para o sexto mês de um total de 12 meses.


Sub Exemplo3()
    Dim valorEmprestimo As Double
    Dim taxaJuros As Double
    Dim periodo As Integer
    Dim resultado As Double
    
    valorEmprestimo = 20000 ' Valor do empréstimo
    taxaJuros = 0.03 ' Taxa de juros (3%)
    periodo = 3 ' Terceiro mês
    
    resultado = IPmt(taxaJuros, periodo, 6, valorEmprestimo)
    MsgBox "O pagamento de juros no terceiro mês é de R$ " & resultado
End Sub

Neste exemplo, a função IPmt é utilizada para calcular o pagamento de juros em um empréstimo de R$ 20.000,00 com uma taxa de juros de 3% ao ano. O cálculo é feito para o terceiro mês de um total de 6 meses.


Sub Exemplo4()
    Dim valorEmprestimo As Double
    Dim taxaJuros As Double
    Dim periodo As Integer
    Dim resultado As Double
    
    valorEmprestimo = 12000 ' Valor do empréstimo
    taxaJuros = 0.06 ' Taxa de juros (6%)
    periodo = 4 ' Quarto mês
    
    resultado = IPmt(taxaJuros, periodo, 12, valorEmprestimo)
    MsgBox "O pagamento de juros no quarto mês é de R$ " & resultado
End Sub

Neste exemplo, a função IPmt é utilizada para calcular o pagamento de juros em um empréstimo de R$ 12.000,00 com uma taxa de juros de 6% ao ano. O cálculo é feito para o quarto mês de um total de 12 meses.


Sub Exemplo5()
    Dim valorEmprestimo As Double
    Dim taxaJuros As Double
    Dim periodo As Integer
    Dim resultado As Double
    
    valorEmprestimo = 8000 ' Valor do empréstimo
    taxaJuros = 0.08 ' Taxa de juros (8%)
    periodo = 2 ' Segundo mês
    
    resultado = IPmt(taxaJuros, periodo, 6, valorEmprestimo)
    MsgBox "O pagamento de juros no segundo mês é de R$ " & resultado
End Sub

Neste exemplo, a função IPmt é utilizada para calcular o pagamento de juros em um empréstimo de R$ 8.000,00 com uma taxa de juros de 8% ao ano. O cálculo é feito para o segundo mês de um total de 6 meses.

InStrRev

Função InStrRev em VBA

Descrição:

A função InStrRev em VBA é uma ferramenta poderosa para manipulação de strings. Ela permite encontrar a última posição de uma substring dentro de uma string. Diferentemente da função InStr, que retorna a primeira ocorrência, o InStrRev busca a última ocorrência da substring na string. Isso é especialmente útil quando se precisa extrair informações específicas de um texto e a última instância é a relevante. Com o InStrRev, é possível criar algoritmos mais robustos e precisos para manipulação de dados de texto no Excel usando VBA.
Exemplos:


Sub Exemplo1()
    Dim posicao As Integer
    posicao = InStrRev("banana", "na")
    MsgBox "A última ocorrência de 'na' começa na posição " & posicao
End Sub

Neste exemplo, a função InStrRev é utilizada para encontrar a última posição da substring “na” na string “banana”. A posição é então exibida em uma mensagem.


Sub Exemplo2()
    Dim posicao As Integer
    posicao = InStrRev("abcdefg", "cde")
    MsgBox "A última ocorrência de 'cde' começa na posição " & posicao
End Sub

Neste exemplo, a função InStrRev é utilizada para encontrar a última posição da substring “cde” na string “abcdefg”. A posição é então exibida em uma mensagem.


Sub Exemplo3()
    Dim posicao As Integer
    posicao = InStrRev("abcdefg", "z")
    MsgBox "A última ocorrência de 'z' começa na posição " & posicao
End Sub

Neste exemplo, a função InStrRev é utilizada para encontrar a última posição da substring “z” na string “abcdefg”. Como a substring não é encontrada, a função retorna 0.


Sub Exemplo4()
    Dim posicao As Integer
    posicao = InStrRev("abcdefg", "a", 4)
    MsgBox "A última ocorrência de 'a' antes da posição 4 começa na posição " & posicao
End Sub

Neste exemplo, a função InStrRev é utilizada para encontrar a última posição da letra “a” na string “abcdefg”, considerando apenas os caracteres até a posição 4. A posição é então exibida em uma mensagem.


Sub Exemplo5()
    Dim posicao As Integer
    posicao = InStrRev("abcdefg", "b", , vbBinaryCompare)
    MsgBox "A última ocorrência de 'b' (comparação binária) começa na posição " & posicao
End Sub

Neste exemplo, a função InStrRev é utilizada para encontrar a última posição da letra “b” na string “abcdefg”, utilizando uma comparação binária. A posição é então exibida em uma mensagem.

 

InStr – Posição no Texto

Função InStr em VBA

Descrição:

A função InStr em VBA é uma ferramenta poderosa para manipulação de strings. Ela permite encontrar a posição de uma substring dentro de uma string. Essa posição é indicada pela contagem de caracteres a partir do início da string. Essa função é extremamente útil quando se precisa localizar e extrair informações específicas de textos, facilitando a automação de tarefas no Excel. Com o InStr, é possível criar algoritmos mais eficientes para lidar com dados de texto, proporcionando maior flexibilidade e precisão na programação VBA.
Exemplos:


Sub Exemplo1()
    Dim posicao As Integer
    posicao = InStr("Olá, mundo!", "mundo")
    MsgBox "A palavra 'mundo' começa na posição " & posicao
End Sub

Neste exemplo, a função InStr é utilizada para encontrar a posição da palavra “mundo” na string “Olá, mundo!”. A posição é então exibida em uma mensagem.


Sub Exemplo2()
    Dim posicao As Integer
    posicao = InStr("banana", "na")
    MsgBox "A substring 'na' começa na posição " & posicao
End Sub

Neste exemplo, a função InStr é utilizada para encontrar a posição da substring “na” na string “banana”. A posição é então exibida em uma mensagem.


Sub Exemplo3()
    Dim posicao As Integer
    posicao = InStr(1, "abcdefg", "cde")
    MsgBox "A substring 'cde' começa na posição " & posicao
End Sub

Neste exemplo, a função InStr é utilizada para encontrar a posição da substring “cde” na string “abcdefg”, começando na posição 1. A posição é então exibida em uma mensagem.


Sub Exemplo4()
    Dim posicao As Integer
    posicao = InStrRev("abcdefg", "cde")
    MsgBox "A última ocorrência de 'cde' começa na posição " & posicao
End Sub

Neste exemplo, a função InStrRev é utilizada para encontrar a posição da última ocorrência da substring “cde” na string “abcdefg”. A posição é então exibida em uma mensagem.


Sub Exemplo5()
    Dim posicao As Integer
    posicao = InStr(3, "abcdefg", "cde")
    MsgBox "A substring 'cde' começa na posição " & posicao
End Sub

Neste exemplo, a função InStr é utilizada para encontrar a posição da substring “cde” na string “abcdefg”, começando na posição 3. A posição é então exibida em uma mensagem.

InputBox

Função InputBox em VBA

Descrição:

A função InputBox em VBA é uma ferramenta poderosa para interação com o usuário. Ela exibe uma caixa de diálogo na qual o usuário pode inserir dados ou responder a uma pergunta. Essa entrada é então armazenada em uma variável para ser utilizada no código VBA. Essa função é particularmente útil quando você precisa coletar informações específicas ou tomar decisões com base nas entradas do usuário durante a execução de um programa no Excel. Com a função InputBox, é possível criar aplicativos interativos e personalizados, oferecendo uma experiência mais dinâmica e eficiente para o usuário.
Exemplos:


Sub Exemplo1()
    Dim nome As String
    nome = InputBox("Digite seu nome:")
    MsgBox "Olá, " & nome & "!"
End Sub

Neste exemplo, a função InputBox é utilizada para solicitar ao usuário que digite seu nome. O nome inserido é armazenado na variável nome e é exibida uma mensagem de saudação.


Sub Exemplo2()
    Dim numero As Integer
    numero = InputBox("Digite um número:")
    MsgBox "O número digitado foi: " & numero
End Sub

Neste exemplo, a função InputBox é utilizada para solicitar ao usuário que digite um número. O número inserido é armazenado na variável numero e é exibida uma mensagem com o número digitado.


Sub Exemplo3()
    Dim idade As Integer
    idade = InputBox("Digite sua idade:")
    If idade >= 18 Then
        MsgBox "Você é maior de idade."
    Else
        MsgBox "Você é menor de idade."
    End If
End Sub

Neste exemplo, a função InputBox é utilizada para solicitar ao usuário que digite sua idade. A idade inserida é então utilizada em uma estrutura condicional para determinar se o usuário é maior ou menor de idade.


Sub Exemplo4()
    Dim valor As Double
    valor = InputBox("Digite um valor:")
    If valor > 0 Then
        MsgBox "O valor é positivo."
    ElseIf valor < 0 Then
        MsgBox "O valor é negativo."
    Else
        MsgBox "O valor é zero."
    End If
End Sub

Neste exemplo, a função InputBox é utilizada para solicitar ao usuário que digite um valor. O valor inserido é então utilizado em uma estrutura condicional para determinar se o valor é positivo, negativo ou zero.


Sub Exemplo5()
    Dim resposta As String
    resposta = InputBox("Você está gostando dos exemplos? (Sim/Não)")
    If UCase(resposta) = "SIM" Then
        MsgBox "Que bom!"
    ElseIf UCase(resposta) = "NÃO" Then
        MsgBox "Vamos melhorar então."
    Else
        MsgBox "Resposta inválida."
    End If
End Sub

Neste exemplo, a função InputBox é utilizada para solicitar ao usuário que responda se está gostando dos exemplos. A resposta é então comparada em uma estrutura condicional para fornecer uma mensagem apropriada.