Como usar a caixa de entrada no vba?

Como o nome sugere, Input Box é uma função que exibe uma caixa de entrada ao usuário e coleta uma resposta.

Veja o exemplo abaixo onde temos uma caixa de entrada que pede seu nome e há uma caixa de entrada para inseri-lo. Se você olhar a barra de título que se parece com a barra de mensagens, temos um título que diz “Digite o nome” e a mensagem diz “Qual é o seu nome?” “.

Aqui está a sintaxe da caixa de entrada do VBA:

InputBox(Prompt[Título][Padrão][Esquerda][Topo][HelpFile, HelpContextID][Tipo])

1. Prompt : No prompt, você pode especificar a mensagem que deseja exibir na caixa de entrada. Você pode usar no máximo 1.024 caracteres.
2. [Título] : Uma string exibida na barra de título da área de entrada. Se você ignorar o título, o nome do aplicativo será colocado na barra de título.
3. [Padrão] : Este é o texto padrão que você deseja ter na barra de entrada padrão para exibi-lo ao usuário.
4. [XPos] : Um número que representa (posição do eixo X) a distância do prompt do lado esquerdo da tela horizontalmente e se for deixado em branco, a área de entrada será centralizada horizontalmente.
5. [YPos] : Um número que representa (posição do eixo Y) a distância do prompt do lado esquerdo da tela horizontalmente e se for deixado em branco, a área de entrada será centralizada horizontalmente.
6. [Helpfile] : Para especificar um arquivo de ajuda para o usuário. O usuário pode acessar este arquivo de ajuda usando o botão de ajuda.
7. [contexto] : Uma expressão numérica que identifica o número do contexto de ajuda atribuído e se o contexto for fornecido, um arquivo de ajuda também deverá ser fornecido.

Todos os argumentos entre colchetes são opcionais. Se você ignorar algum deles, ainda poderá usar a função da caixa de entrada, mas na maioria dos casos não precisará usar mais do que os três primeiros argumentos.

Como usar a caixa de entrada no código VBA

1. Digite “InputBox” e insira um espaço e você obterá uma ferramenta para os argumentos que precisa definir.
2. Especifique a mensagem “Prompt” que deseja mostrar ao usuário.
3. Defina um título para a caixa de entrada, caso contrário, mostrará o título padrão.
4. Mencione o texto que deseja ter na barra de entrada padrão.

E quando você executa este código, ele mostra uma caixa de entrada como esta:

Exemplo de uso da caixa de entrada VBA no Excel

Você pode estar se perguntando como pode usar uma caixa de entrada no mundo real. No exemplo a seguir, compartilhei um exemplo simples, mas poderoso.

 Sub vba_input_box() 'variable to store the count of rows. Dim iRow As Long 'get the count cells that are filled iRow = WorksheetFunction.CountA(Range("A:A")) 'get to the next blank cell in column A Cells(iRow + 1, 1).Select 'enter the value from the input box into the active cell ActiveCell = InputBox("What is your name?", "Enter Name") End Sub

O código acima insere o nome na coluna A, um após o outro. Ele conta as células preenchidas na coluna e passa para a próxima célula vazia. Depois disso, pegue o valor da caixa de entrada e insira-o aqui.