Com o Excel, você pode usar o Visual Basic para adicionar uma variedade de recursos diferentes às suas planilhas, incluindo “UserForms”. Por meio de UserForms, você pode exibir um formulário de entrada para o usuário que é separado da planilha principal, o que é útil para capturar dados de indivíduos que podem não estar familiarizados com planilhas. Com um pouco de código do Visual Basic, você pode adicionar todos esses dados à sua planilha em novas linhas.
Defina seus campos
Inicie o Excel. Insira os nomes de todos os campos que deseja capturar na linha superior, começando em “A1” e trabalhando para a direita. Clique em “Desenvolvedor” e depois em “Visual Basic”. A janela do Visual Basic será exibida. Clique no ícone “A” da caixa de ferramentas e clique e arraste dentro da janela “UserForm1” no local que você deseja que seu primeiro campo de formulário vá. Edite o rótulo alterando a propriedade “Legenda” para algo mais descritivo, como “Nome," por exemplo. Crie um rótulo para cada um dos campos que você inseriu em sua planilha.
Adicione suas caixas de texto
Selecione o ícone “TextBox” da caixa de ferramentas e arraste uma caixa de texto à direita de seu primeiro rótulo. Se você usar apenas alguns campos, é aceitável deixar a propriedade “(Nome)” como o “TextBox1” padrão. No entanto, se você precisar de um grande número de campos, isso pode ficar confuso, portanto, você deve editá-los para que correspondam aos rótulos já criados. Certifique-se de que cada rótulo tenha uma caixa de texto correspondente.
Adicionar um botão de envio
Clique no ícone “Botão de comando” na caixa de ferramentas, que se parece com um botão padrão do estilo do Windows. Clique e arraste-o para o tamanho e local que você deseja no UserForm1. Normalmente, você vai querer isso abaixo ou perto da caixa de texto final em seu formulário. Altere a propriedade “Caption” do botão para “Enviar Dados” ou algo semelhante, indicando ao usuário que deve clicar neste botão para enviar seus dados.
Adicionar código Visual Basic
Clique duas vezes no botão. Digite o seguinte código entre “Private Sub” e “End Sub”:
eRow = Sheet1.Cells (Rows.Count, 1) .End (xlUp) .Offset (1,0) .Row
Em seguida, inicie uma nova linha abaixo desta e insira o seguinte:
Células (erow, 1) = TextBox1.Text
Se você renomeou suas caixas de texto, altere “TextBox1” para o nome que você deu à primeira caixa de texto. Faça isso para cada caixa de entrada criada, iniciando uma nova linha e inserindo os nomes de caixa de texto corretos, conforme apropriado. Além disso, para cada nova linha, aumente o número entre parênteses em um. Por exemplo, a próxima linha pode ser assim:
Células (erow, 2) = TextBox2.Text
Clique no botão “Play” na parte superior da janela para iniciar a captura de dados.
