InputBox

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.