VBA Tips - Usando InputBox como caixa de entrada - Use the InputBox Function to Work with User Input

| Blog Office VBA | Blog Excel | Blog Access |

A função InputBox é ideal quando precisamos ter uma única entrada de dados para o usuário em tempo de execução, sem a necessidade de se construir um Formulário (UserForm). 

A função InputBox tem este formato:

InputBox (Prompt, Title, Default, XPos, YPos, HelpFile, Context)

Onde:

Prompt é o texto que o usuário verá.

Title é um argumento opcional que representa o texto da barra de título da caixa de entrada.

O Default é um argumento opcional que representa qualquer texto existente na caixa de entrada de texto.

XPos e YPos são argumentos opcionais que representam a posição horizontal e vertical da caixa de entrada no monitor.

HelpFile e Context são argumentos opcionais mostrando o arquivo de ajuda, além da identificação de contexto usado para propiciar a ligação da ajuda sensível ao contexto (F1) com a caixa de entrada.

Aqui está um exemplo de como usar a função InputBox:

Public Sub TestInputBoxFunction()

    

    Dim strFirstName As String

    Dim strLastName As String

    

    ' Obtém o primeiro e o último nome.

    Let strFirstName = InputBox(Prompt:="Digite o 1º Nome.", _

        Title:="Demo: Nome Completo")

    Let strLastName = InputBox(Prompt:="Digite o seu Sobrenome.", _

        Title:="Demo: Nome Completo") 

    

    If strFirstName = "" Or strLastName = "" Then

        MsgBox Prompt:="Hei, você não digitou a informação requerida."

    Else

        MsgBox Prompt:="Você digitou " & strFirstName & " " & _

            strLastName & ".", Title:="Demo: Nome Completo"

    End If

End Sub

Tags: VBA, Tips,  inputbox, function, input, user, userform, form, formulário,