Como usar a função InputBox no VBA?

No VBA (Visual Basic for Applications), a função `InputBox` é usada para exibir uma caixa de diálogo que solicita ao usuário a entrada de um valor. A `InputBox` retorna o valor inserido pelo usuário como uma string. Aqui está um exemplo básico de como utilizar a função `InputBox`:

Sub ExemploInputBox()
    Dim usuarioInput As String
    usuarioInput = InputBox("Por favor, insira um valor:", "Título da Caixa de Entrada")

    If usuarioInput <> "" Then
        MsgBox "Você digitou: " & usuarioInput
    Else
        MsgBox "Você não digitou nada."
    End If
End Sub

Parâmetros da função `InputBox`

Prompt (Obrigatório): Esta é a mensagem que será exibida na caixa de diálogo, geralmente solicitando ao usuário que insira algum dado.
Title (Opcional): O texto a ser exibido na barra de título da caixa de diálogo.
Default (Opcional): Um valor padrão que aparecerá na caixa de texto quando a caixa de diálogo for exibida. Isso pode ser útil para sugerir uma entrada ou fornecer um exemplo.
XPos (Opcional): A posição horizontal da caixa de diálogo em relação à tela (coordenada X). Se omitido, a caixa será centralizada na horizontal.
YPos (Opcional): A posição vertical da caixa de diálogo em relação à tela (coordenada Y). Se omitido, a caixa será centralizada na vertical.

Exemplo com mais parâmetros:

Sub ExemploInputBoxAvancado()
    Dim nomeUsuario As String
    nomeUsuario = InputBox("Qual é o seu nome?", "Entrada de Nome", "Digite aqui", 500, 300)

    If nomeUsuario <> "" Then
        MsgBox "Olá, " & nomeUsuario & "!"
    Else
        MsgBox "Você não digitou seu nome."
    End If
End Sub

Neste exemplo, a caixa de diálogo aparecerá com um valor padrão de “Digite aqui” e estará posicionada em coordenadas específicas (500 na horizontal e 300 na vertical).

facebooklinkedin