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

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.

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.

HelpFileContext 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, 

Nenhum comentário:

Postar um comentário

diHITT - Notícias