O que é o VBA TextBox no Excel?
O VBA TextBox é um dos muitos controles dos controles UserForm no Excel. O VBA TextBox pode ser útil quando você deseja receber informações do usuário, como nome, idade, endereço, salário, etc. Usando o controle TextBox, você pode permitir que os usuários insiram esse tipo de informação e economizem seu tempo, além de erros de digitação. . O VBA TextBox pode consistir em dados estáticos ou dinâmicos.
O UserForm em si é uma ferramenta muito útil que possui diferentes opções de controle, como TextBox, MsgBox e InputBox, etc., que fornecem uma maneira mais prática de obter dados do usuário para que você possa processá-los funcionalmente e descobrir algumas informações úteis sobre ele. .
Neste artigo, você obterá experiência prática no Excel VBA TextBox.
Exemplos de Excel VBA TextBox
Abaixo estão os diferentes exemplos de VBA TextBox no Excel.
Você pode fazer o download deste modelo do VBA TextBox Excel aqui - Modelo do VBA TextBox ExcelExemplo # 1 - Como inserir TextBox no VBA?
Abaixo estão as etapas para inserir o TextBox no Excel VBA.
Etapa 1: Abra um arquivo do Excel e pressione Alt + F11 para navegar para o painel VBA.
Etapa 2: Como já discutimos, o TextBox é uma opção disponível no UserForm. Então, precisamos inserir UserForm no VBE. Vá para o menu Inserir > clique em formulário de usuário .
Etapa 3: assim que você inserir um formulário de usuário no VBA, poderá ver uma opção da Caixa de ferramentas associada a ele e ter diferentes opções associadas ao formulário de usuário.
Etapa 4: nesta caixa de ferramentas, selecione TextBox .
Etapa 5: arraste este TextBox no formulário do usuário.
Etapa 6: pressione F4 para ver as propriedades do formulário de usuário (como alternativa, você pode fazer isso clicando com o botão direito do mouse no formulário de usuário inserido). Essas propriedades permitem que você faça as alterações necessárias, como alterar o nome do formulário de usuário, para poder acessá-lo facilmente.
Algumas outras alterações básicas que você pode fazer no painel de propriedades do formulário de usuário são como alterar a fonte, alterar o tamanho etc.
Etapa 7: insira o texto como “ Bem-vindo ao VBA TextBox! ”No TextBox em UserForm.
É assim que você pode criar uma caixa de texto VBA.
Exemplo # 2 - Definindo valor para VBA TextBox
Vamos ver como podemos definir os valores para o TextBox. Às vezes, é obrigatório definir os valores, caso contrário, o usuário inserirá qualquer coisa de seu interesse.
Etapa 1: Insira um novo formulário de usuário no VBE. Vá para o menu Inserir > clique no formulário de usuário.
Etapa 2: Nas Ferramentas do formulário de usuário, selecione Caixa de texto e arraste-o para o formulário de usuário.
Etapa 3: Insira um CommandButton em UserForm da mesma maneira que você adicionou TextBox.
Etapa 4: altere a legenda do botão de comando para " Enviar " nas propriedades. Você pode navegar para as propriedades do botão de comando clicando com o botão direito do mouse em Botão de comando> Clique em Propriedades .
Etapa 5: clique duas vezes no botão enviar ou clique com o botão direito do mouse e selecione Exibir código .
Etapa 6: no código, insira uma linha de novo código no subprocedimento como abaixo.
Código:
Sub Privado CommandButton1_Click () TextBox1.Value = "Meu nome é Lalit!" End Sub
Esse código destacado permite atribuir o valor à direita entre aspas duplas ao TextBox. Você também pode usar a propriedade TextBox.Text em vez de TextBox.Values para definir o valor para TextBox.
Etapa 7: Pressione F5 ou o botão Executar no VBE para executar esse código. Você verá um formulário de usuário com a caixa de texto vazia. Assim que você clicar no botão enviar, o texto atribuído ao TextBox aparecerá nele.
Exemplo # 3 - Restringir a entrada TextBox para aceitar apenas valores numéricos
Siga os passos abaixo:
Etapa 1: insira um novo formulário de usuário no seu VBA e adicione o TextBox nele.
Etapa 2: Altere o nome do TextBox na seção Propriedades para " My_Age ".
Etapa 3: clique duas vezes em TextBox ou clique com o botão direito do mouse e selecione View Code .
Você poderá ver o sub-procedimento inicial como abaixo:
Código:
Privado Sub My_Age_Change () End Sub
Etapa 4: Agora, tente adicionar um If a condição que começa com If Not.
Código:
Sub privado My_Age_Change () se não terminar sub
Etapa 5: Peça ao compilador para verificar se o valor de TextBox "My_Age" é numérico ou não está usando IsNumeric Keyword na frente da condição If Not.
Código:
Sub privado My_Age_Change () se não for IsNumeric (My_Age.Value) End Sub
Etapa 6: como todas as condições SE solicitarem, adicione uma palavra- chave Then para ela.
Código:
Sub privado My_Age_Change () Se não for IsNumeric (My_Age.Value), então End Sub
Neste pedaço de código, você está solicitando ao compilador que verifique se o valor inserido pelo usuário em TextBox é numérico ou não. Se não for numérico, o que fazer? Siga o próximo passo.
Etapa 7: com o uso do MsgBox, adicione um comentário como “Desculpe! Somente números são permitidos. ”A serem exibidos se o valor em TextBox não for numérico.
Código:
Sub privado My_Age_Change () Se não for IsNumeric (My_Age.Value), então MsgBox "Desculpe! Somente números são permitidos." End Sub
Etapa 8: Agora, feche esta instrução IF usando a palavra-chave End IF.
Código:
Sub privado My_Age_Change () Se não for IsNumeric (My_Age.Value), então MsgBox "Desculpe! Somente números são permitidos." End If End Sub
Etapa 9: Agora, execute esse código pressionando o botão F5 do teclado ou o botão Run do VBE e veja a saída. Você receberá um TextBox como mostrado abaixo:
Agora, tento inserir um valor inteiro e ver se ele realmente me permite inserir o mesmo ou não.
Bingo, ele permite que eu armazene o valor inteiro.
Agora, vamos tentar adicionar alguns valores flutuantes (Valor com pontos decimais) a esta caixa de texto e ver se isso nos permite inserir o mesmo.
Vamos verificar se essa caixa de texto nos permite armazenar alguns valores negativos ou não. Vou digitar um número negativo e verificar.
Bem! Bem!! Bem !!!, ele dispara uma mensagem dizendo que apenas números são permitidos. Isso aconteceu porque esse código escrito inicialmente está com a condição SE, ele não tem nenhuma solução alternativa para o que fazer se o número não for positivo. Além disso, a idade não pode ser negativa. Certo? Portanto, estou recebendo uma mensagem de aviso, como você pode ver acima. No entanto, se você clicar em OK na caixa de mensagem e tentar inserir o número, isso permitirá que você faça. Mas não vou recomendar quebrar as regras por lá.
Por fim, vamos tentar alguma sequência de texto na caixa e ver se ela permite que o mesmo seja armazenado na caixa de texto ou não.
Como esperado, assim que inseri a primeira letra da cadeia, o sistema me impediu de enviar uma mensagem. Isso ocorre porque mencionamos uma condição em nosso código dizendo que, se o valor não for numérico, envie uma mensagem ao usuário dizendo que apenas valores numéricos são permitidos.
Coisas para lembrar
- O VBA TextBox é uma opção especial no UserForm. Que é projetado para receber informações do próprio usuário.
- Existem dois métodos para definir os valores para um TextBox: usando TextBox.Text e TextBox.Value.
- Às vezes, é obrigatório restringir a entrada do usuário para obter o tipo certo de dados.
Artigos recomendados
Este é um guia para o VBA TextBox. Aqui discutimos como criar TextBox no Excel VBA, juntamente com exemplos práticos e modelo de excel para download. Você também pode consultar nossos outros artigos sugeridos -
- Como usar a função IsNumeric do VBA?
- Criando caixa de combinação no Excel
- Inserir CheckBox no Excel
- Função VBA UCASE no Excel
- Como fechar o formulário de usuário no VBA?