Autor: admin

IsEmpty

Função IsEmpty em VBA

Descrição:

A função IsEmpty em VBA é uma ferramenta valiosa para verificar se uma célula ou variável está vazia no Excel. Ela permite determinar se um determinado local de armazenamento não contém nenhum valor. Isso é útil em situações onde é importante garantir que um campo não fique em branco. A função IsEmpty retorna um valor booleano indicando se o local de armazenamento está vazio (True) ou não (False).

Exemplos:


Sub Exemplo1()
    Dim celula As Range
    Set celula = Range("A1")
    MsgBox IsEmpty(celula) ' Retorna True se a célula estiver vazia
End Sub

Neste exemplo, a função IsEmpty verifica se a célula na variável celula está vazia. Se estiver, o retorno é True.


Sub Exemplo2()
    Dim valor As Variant
    MsgBox IsEmpty(valor) ' Retorna True para uma variável não inicializada
End Sub

Neste exemplo, a função IsEmpty verifica se a variável valor está vazia. Como ela não foi inicializada, o retorno é True.


Sub Exemplo3()
    Dim texto As String
    texto = ""
    MsgBox IsEmpty(texto) ' Retorna False para uma string vazia
End Sub

Neste exemplo, a função IsEmpty verifica se a variável texto está vazia. Mesmo contendo uma string vazia, o retorno é False.


Sub Exemplo4()
    Dim numero As Integer
    MsgBox IsEmpty(numero) ' Retorna True para uma variável numérica não inicializada
End Sub

Neste exemplo, a função IsEmpty verifica se a variável numero está vazia. Como ela não foi inicializada, o retorno é True.


Sub Exemplo5()
    Dim planilha As Worksheet
    Set planilha = Worksheets.Add
    MsgBox IsEmpty(planilha.Cells(1, 1)) ' Retorna True para uma célula nova e vazia
End Sub

Neste exemplo, a função IsEmpty verifica se a célula na primeira linha e primeira coluna da planilha está vazia. Como é uma célula nova, o retorno é True.

 

IsDate

Função IsDate em VBA

Descrição:

A função IsDate em VBA é uma ferramenta essencial quando se trabalha com datas no Excel. Ela permite verificar se um valor é uma data válida, garantindo a integridade e a precisão dos dados. Ao utilizar a função IsDate, é possível validar entradas do usuário ou dados importados para garantir que correspondam a datas reconhecidas pelo sistema. A função retorna um valor booleano, indicando se o valor fornecido é uma data válida (True) ou não (False). Com isso, os programadores podem implementar verificações eficazes para manter a consistência dos dados em suas aplicações VBA.
Exemplos:


Sub Exemplo1()
    Dim valor As Variant
    valor = "12/10/2022"
    MsgBox IsDate(valor) ' Retorna True
End Sub

Neste exemplo, a função IsDate verifica se o valor contido na variável valor é uma data válida. Como o valor é uma data no formato reconhecido, o retorno é True.


Sub Exemplo2()
    Dim valor As Variant
    valor = "ABC"
    MsgBox IsDate(valor) ' Retorna False
End Sub

Neste exemplo, a função IsDate verifica se o valor contido na variável valor é uma data válida. Como o valor não é uma data reconhecida, o retorno é False.


Sub Exemplo3()
    Dim valor As Variant
    valor = 45678
    MsgBox IsDate(valor) ' Retorna False
End Sub

Neste exemplo, a função IsDate verifica se o valor contido na variável valor é uma data válida. Como o valor não é uma data reconhecida, o retorno é False.


Sub Exemplo4()
    Dim valor As Variant
    valor = Date
    MsgBox IsDate(valor) ' Retorna True
End Sub

Neste exemplo, a função IsDate verifica se o valor contido na variável valor é uma data válida. Como o valor é a data atual, o retorno é True.


Sub Exemplo5()
    Dim valor As Variant
    valor = "2022-11-30"
    MsgBox IsDate(valor) ' Retorna True
End Sub

Neste exemplo, a função IsDate verifica se o valor contido na variável valor é uma data válida. Como o valor é uma data no formato reconhecido, o retorno é True.

 

IsArray

Função IsArray em VBA

Descrição:

A função IsArray em VBA é uma ferramenta essencial quando se trabalha com arrays (matrizes) no Excel. Ela permite verificar se uma determinada variável é, de fato, uma matriz. Essa verificação é crucial para evitar erros de execução ao tentar acessar elementos de uma variável que deveria ser uma matriz, mas não é. A função IsArray retorna um valor booleano, indicando se a variável é uma matriz (True) ou não (False). Ao utilizar a função IsArray, os programadores podem garantir a integridade dos dados e a correta manipulação de matrizes em suas aplicações VBA.

Exemplos:


Sub Exemplo1()
    Dim arrExemplo(1 To 3) As Integer
    MsgBox IsArray(arrExemplo) ' Retorna True
End Sub

Neste exemplo, a função IsArray verifica se a variável arrExemplo é uma matriz. Como foi declarada como uma matriz, o retorno é True.


Sub Exemplo2()
    Dim variavelSimples As Integer
    MsgBox IsArray(variavelSimples) ' Retorna False
End Sub

Neste exemplo, a função IsArray verifica se a variável variavelSimples é uma matriz. Como foi declarada como uma variável simples, o retorno é False.


Sub Exemplo3()
    Dim arrExemplo() As String
    MsgBox IsArray(arrExemplo) ' Retorna True
End Sub

Neste exemplo, a função IsArray verifica se a variável arrExemplo é uma matriz. Como foi declarada como uma matriz, o retorno é True.


Sub Exemplo4()
    Dim outraVariavel As Double
    MsgBox IsArray(outraVariavel) ' Retorna False
End Sub

Neste exemplo, a função IsArray verifica se a variável outraVariavel é uma matriz. Como foi declarada como uma variável simples, o retorno é False.


Sub Exemplo5()
    Dim matrizExemplo(1 To 2, 1 To 2) As Boolean
    MsgBox IsArray(matrizExemplo) ' Retorna True
End Sub

Neste exemplo, a função IsArray verifica se a variável matrizExemplo é uma matriz. Como foi declarada como uma matriz, o retorno é True.

 

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.

 

Input – Ler Arquivos

Função Input em VBA

Descrição:

A função Input em VBA é uma instrução que permite a leitura de dados diretamente de um arquivo no ambiente de programação. Ela é especialmente útil quando se deseja processar informações contidas em arquivos externos. Ao abrir o arquivo especificado, a função lê os dados conforme o formato especificado e os armazena em variáveis ou executa outras operações com base nesses dados. A utilização da função Input facilita a manipulação de dados em arquivos, tornando o processo mais eficiente e prático para o programador VBA.
Exemplo:


Sub Exemplo1()
    Dim numero As Integer
    Open "Caminho\do\Arquivo.txt" For Input As #1
    Input #1, numero
    Close #1
    
    MsgBox "O número lido do arquivo é: " & numero
End Sub

Neste exemplo, a função Input é utilizada para ler um número de um arquivo chamado “Arquivo.txt”. O número lido é armazenado na variável numero e depois é exibida uma mensagem.

 

IIF

Função IIF em VBA

Descrição:

A função IIf é extremamente útil em situações onde você precisa tomar decisões com base em condições dinâmicas, como em cálculos, formatações ou qualquer outra operação que dependa de uma condição específica.
Ao utilizar a função IIf de forma eficaz, você pode tornar seus códigos mais flexíveis e adaptáveis a diferentes situações, economizando tempo e tornando o processo de programação mais eficiente.
Em resumo, a função IIf é uma ferramenta essencial no VBA que permite a criação de lógicas condicionais, tornando seus projetos mais versáteis e capazes de lidar com uma variedade de situações.
Exemplos:


Sub Exemplo1()
    Dim valor As Integer
    valor = 10
    
    resultado = IIf(valor > 5, "Maior que 5", "Menor ou igual a 5")
    
    MsgBox resultado
End Sub

Neste exemplo, a função IIf é utilizada para verificar se a variável valor é maior que 5. Se a condição for verdadeira, o texto “Maior que 5” será retornado; caso contrário, “Menor ou igual a 5” será o resultado.


Sub Exemplo2()
    Dim idade As Integer
    idade = 25
    
    categoria = IIf(idade < 18, "Menor de idade", "Maior de idade")
    
    MsgBox categoria
End Sub

Neste exemplo, a função IIf é utilizada para determinar se a variável idade representa uma pessoa menor de idade ou maior de idade.


Sub Exemplo3()
    Dim saldo As Double
    saldo = 1000
    
    situacao = IIf(saldo > 0, "Saldo Positivo", "Saldo Negativo ou Zero")
    
    MsgBox situacao
End Sub

Neste exemplo, a função IIf é utilizada para verificar se o saldo é positivo ou não.


Sub Exemplo4()
    Dim valor1 As Integer, valor2 As Integer
    valor1 = 5
    valor2 = 8
    
    maiorValor = IIf(valor1 > valor2, valor1, valor2)
    
    MsgBox "O maior valor é: " & maiorValor
End Sub

Neste exemplo, a função IIf é utilizada para determinar o maior valor entre valor1 e valor2.


Sub Exemplo5()
    Dim condicao As Boolean
    condicao = True
    
    resultado = IIf(condicao, "Condição é verdadeira", "Condição é falsa")
    
    MsgBox resultado
End Sub

Neste exemplo, a função IIf é utilizada para retornar uma mensagem dependendo do valor da variável booleana condicao.