Como usar a função inputbox em excel 2016 vba
Video: Excel # 325 - InputBox und Application.InputBox - VBA
Conteúdo
A função VBA InputBox é útil para a obtenção de uma única peça de informação digitada pelo usuário no Excle 2016. Essa informação poderia ser um valor, uma cadeia de texto, ou mesmo um endereço de gama. Esta é uma boa alternativa para o desenvolvimento de um formulário de usuário quando você precisa para obter apenas um valor.
sintaxe InputBox
Aqui está uma versão simplificada da sintaxe da função InputBox:
InputBox (prompt de [, título] [, default])
A função InputBox aceita os argumentos listados aqui.
Video: Usando InputBox em VBA
| Argumento | O que isso afeta |
|---|---|
| Pronto | O texto exibido na caixa de entrada |
| Título | O texto exibido na caixa de entrada&rsquo-s barra de título (opcional) |
| Padrão | O valor padrão para o usuário&entrada rsquo-s (opcional) |
Um exemplo InputBox
Aqui está uma declaração que mostra como você pode usar a função InputBox:
VarNome = InputBox ( “Qual é seu nome?”, “Saudações”)
Quando você executa esta declaração VBA, Excel exibe esta caixa de diálogo. Observe que este exemplo utiliza apenas os dois primeiros argumentos e não fornece um valor padrão. Quando o usuário insere um valor e clica em OK, o código atribui o valor ao varNome variável.
O exemplo a seguir usa o terceiro argumento e fornece um valor padrão. O valor padrão é o nome de usuário armazenado pelo Excel (propriedade UserName do objeto Aplicativo).
Sub GetName () Dim varNome Como StringTheName = InputBox ( “Qual é seu nome?”, _ “Saudações”, Application.UserName) End Sub
O InputBox sempre exibe um botão Cancelar. Se o usuário clicar em Cancelar, a função InputBox retorna uma string vazia.
Video: Excel, 2010, VBA, InputBox, Inserir
função InputBox do VBA sempre retorna uma string, por isso, se você precisa para obter um valor, seu código precisa fazer alguma verificação adicional. O exemplo a seguir usa a função InputBox para obter um número. Ele usa a função IsNumeric para verificar se a string é um número. Se a string contém um número, tudo está bem. Se a entrada do usuário não pode ser interpretada como um número, o código exibe uma caixa de mensagem.
AddSheets sub () Prompt Dim Como StringDim legenda como StringDim valor_padrão Como NumSheets LongDim Como StringPrompt = “Quantas folhas você deseja adicionar?” Caption = “Diga-me ...” valor_padrão = 1NumSheets = InputBox (Prompt, Legenda, valor_padrão) Se NumSheets = “” Then Exit Sub &apos-CanceledIf isNumeric (NumSheets) NumSheets ThenIf gt; 0 Then Sheets.Add Count: = NumSheetsElseMsgBox “Número inválido” End Sub IfEnd
Confira a caixa de diálogo que esta rotina produz.
Video: Pesquisa em Formulário Excel VBA Utilizando Mensagem de Inputbox
Outro tipo de InputBox
A informação apresentada aqui se aplica a função InputBox do VBA. Microsoft parece amar confusão, então você também tem acesso ao InputBox método, que é um método do objecto de aplicação.
Uma grande vantagem de usar o método de aplicação InputBox é que seu código pode solicitar uma seleção de intervalo. O usuário pode, em seguida, selecione o intervalo na planilha, destacando as células. Aqui está um exemplo rápido que solicita ao usuário para selecionar uma faixa:
Sub GetRange () Dim Rng Como RangeOn Error Resume NextSet Rng = Application.InputBox _ (prompt: = “Especifique uma faixa:” Tipo: = 8) Se RNG é nada, então Exit SubMsgBox “Você selecionou intervalo“ & Rng.AddressEnd Sub
Isso é o que parece.
Neste exemplo simples, o código informa ao usuário o endereço do intervalo que foi selecionado. Na vida real, o código seria realmente fazer algo de útil com o intervalo selecionado. A coisa agradável sobre este exemplo é que Excel cuida do tratamento de erros. Se você digitar algo que não é um intervalo, Excel diz-lhe sobre isso e permite que você tente novamente.
O método Application.InputBox é semelhante a função InputBox do VBA, mas também tem algumas diferenças. Verifique o sistema de Ajuda para obter detalhes completos.