Etiqueta: Input

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.