Excel VBA TextBox
A caixa de texto é simplesmente como uma caixa que é usada para obter a entrada de um usuário, as caixas de texto fazem parte dos formulários do usuário e na guia do desenvolvedor em qualquer planilha do Excel. Se quisermos fazer caixas de texto em um formulário do usuário, podemos selecionar a opção caixa de texto de controles de formulário de usuário em VBA ou em planilha, podemos selecioná-lo na guia de design.
VBA TextBox é um dos controles dos vários controles do formulário do usuário. Ao exibir a caixa de texto no formulário do usuário, podemos pedir a eles para inserir os dados na caixa de texto, e os dados inseridos pelo usuário podem ser armazenados na planilha com códigos simples.
Os formulários do usuário são muito atraentes na codificação VBA. Isso nos ajuda imensamente, especialmente quando precisamos obter informações dos usuários. Com os formulários do usuário, temos muitos controles e, para obter o valor de entrada dos usuários, “Caixa de texto” é a opção ideal em um formulário do usuário. Colocando uma caixa de texto no formulário do usuário, podemos realmente dizer ao usuário para inserir o valor necessário na caixa de texto que estamos exibindo. Se você não tem ideia sobre as caixas de texto do VBA, este artigo fará um tour pelas caixas de texto do VBA.
Como inserir TextBox no UserForm do VBA?
Para inserir uma caixa de texto primeiro, precisamos inserir o formulário do usuário. Para inserir o formulário do usuário, vá para Inserir> Formulário do usuário.
Assim que você clicar no Formulário do Usuário, iremos ao Formulário do Usuário como qualquer outro módulo.
Clique no formulário do usuário para ver os controles do formulário do usuário.
A partir desta caixa de ferramentas de controles, selecione “TextBox” e arraste no formulário do usuário.
Com isso, podemos ver muitas propriedades associadas a esta caixa de texto.
Propriedades de TextBox
Pressione a tecla F4 para ver as propriedades da caixa de texto.
Como podemos ver, a caixa de texto tem Nome, cor, Borda como esta. Agora dê um Nome Próprio para que possamos nos referir facilmente a esta caixa de texto enquanto codificamos.
Exemplo de uso de TextBox em Userform
Faremos um dos projetos com texto VBA. Criaremos um formulário de entrada de dados do usuário para armazenar os dados dos funcionários.
Etapa 1: no formulário do usuário, desenhe Rótulo.
Etapa 2: altere o texto padrão do rótulo para “Nome do funcionário”.
Etapa 3: na frente do rótulo, desenhe uma caixa de texto.
Etapa 4: dê um nome adequado à caixa de texto como “EmpNameTextBox”.
Etapa 5: agora desenhe mais um rótulo abaixo do primeiro rótulo e insira o texto como “ID do funcionário”.
Etapa 6: na frente do segundo rótulo, desenhe mais uma caixa de texto e nomeie-a como “EmpIDTextBox”.
Etapa 7: desenhe mais um rótulo e insira o texto como “Salário”.
Etapa 8: desenhe mais uma caixa de texto na frente do rótulo “Salário” e nomeie-a como “CaixaTexto Salário”
Passo 9: Agora insira “Botão de Comando” na Caixa de Ferramentas.
Etapa 10: altere o texto do botão de comando para “Enviar”.
Ok, terminamos com a parte de design do formulário do usuário. Agora precisamos escrever o código para armazenar os dados inseridos neste formulário do usuário. A partir de agora, execute o formulário do usuário pressionando a tecla F5. Devemos ver um formulário de usuário como este.
Etapa 11: Alterar a legenda do formulário do usuário na janela Propriedades.
Etapa 12: Agora clique duas vezes no botão de comando Enviar. Assim que clicar duas vezes, você verá este procedimento sub automático como o abaixo.
É quando você clica no botão Enviar, o que deve acontecer. Precisamos mencionar as tarefas no código VBA. Neste projeto, nosso objetivo é armazenar os dados inseridos na caixa de texto assim que clicarmos no botão Enviar.
Para isso, primeiro crie um Template como este na planilha chamada “Folha de Funcionários”.
Step 13: Now come back to the visual basic editor. Inside the button, click subroutine in VBA first to determine the last used row by using the below code.
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 End Sub
Step 14: First thing is in the first column we will store Employee Name. So for this, we need to access the text box named “EmpNameTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value End Sub
Step 15: In the second column, we need to store Employee ID. So this will be obtained by accessing the text box named “EmpIDTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value End Sub
Step 16: At last, we need to store the salary part. For this, we need to access to text box named “SalaryTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value Range("C" & LR).Value = SalaryTextBox.Value End Sub
Ok, we are done with the coding part as well. Now run the code using the F5 key. We should see a User Form like the below.
A partir de agora, todas as caixas estão vazias.
Preencha os detalhes primeiro.
Agora clique no botão “Enviar”. Ele armazenará os dados na planilha.
Assim, você pode continuar inserindo os dados e clicar e enviar o botão. Este é o formulário de usuário simples de entrada de dados com uma caixa de texto.
