✔ Programação GLOBAL®: VBA Tips - Usando InputBox como caixa de entrada - Use the InputBox Function to Work with User Input

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

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

Acesse: http://goo.gl/0v6AO

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