VBA - InputBox

o InputBox functionsolicita que os usuários insiram valores. Após inserir os valores, se o usuário clicar no botão OK ou pressionar ENTER no teclado, a função InputBox retornará o texto na caixa de texto. Se o usuário clicar no botão Cancelar, a função retornará uma string vazia ("").

Sintaxe

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

Descrição do Parâmetro

Prompt- Um parâmetro obrigatório. Um String que é exibido como uma mensagem na caixa de diálogo. O comprimento máximo do prompt é de aproximadamente 1.024 caracteres. Se a mensagem se estender por mais de uma linha, as linhas podem ser separadas usando um caractere de retorno de carro (Chr (13)) ou um caractere de alimentação de linha (Chr (10)) entre cada linha.
Title- Um parâmetro opcional. Uma expressão String exibida na barra de título da caixa de diálogo. Se o título for deixado em branco, o nome do aplicativo será colocado na barra de título.
Default- Um parâmetro opcional. Um texto padrão na caixa de texto que o usuário gostaria que fosse exibido.
XPos- Um parâmetro opcional. A posição doXeixo representa a distância do prompt do lado esquerdo da tela horizontalmente. Se deixado em branco, a caixa de entrada é centralizada horizontalmente.
YPos- Um parâmetro opcional. A posição doYeixo representa a distância do prompt do lado esquerdo da tela verticalmente. Se for deixado em branco, a caixa de entrada será centralizada verticalmente.
Helpfile- Um parâmetro opcional. Uma expressão String que identifica o arquivo de ajuda a ser usado para fornecer Ajuda contextual para a caixa de diálogo.
context- Um parâmetro opcional. Uma expressão numérica que identifica o número do contexto da Ajuda atribuído pelo autor da Ajuda ao tópico da Ajuda apropriado. Se o contexto for fornecido, o arquivo de ajuda também deve ser fornecido.

Exemplo

Vamos calcular a área de um retângulo obtendo valores do usuário em tempo de execução com a ajuda de duas caixas de entrada (uma para comprimento e outra para largura).

Function findArea() 
   Dim Length As Double 
   Dim Width As Double 
   
   Length = InputBox("Enter Length ", "Enter a Number") 
   Width = InputBox("Enter Width", "Enter a Number") 
   findArea = Length * Width 
End Function

Resultado

Step 1 - Para executar o mesmo, chame usando o nome da função e pressione Enter como mostrado na imagem a seguir.

Step 2- Após a execução, a primeira caixa de entrada (comprimento) é exibida. Insira um valor na caixa de entrada.

Step 3 - Depois de inserir o primeiro valor, a segunda caixa de entrada (largura) é exibida.

Step 4- Ao inserir o segundo número, clique no botão OK. A área é exibida conforme mostrado na imagem a seguir.