Como capturar dados de userforms em uma planilha do excel
Com o Excel, você pode usar o Visual Basic para adicionar uma série de características diferentes para suas planilhas, incluindo “UserForms.” Através UserForms, você pode exibir um formulário de entrada para o usuário que é separada da planilha principal, o que é útil para a captura de 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
Lançamento Excel. Digite os nomes de todos os campos que deseja capturar na linha superior, a partir de “A1” e trabalhar para a direita. Clique em “Developer,” e clique em “Visual Basic.” A janela Visual Basic irá aparecer. Clique no ícone de “A” a partir da caixa de ferramentas, e clique e arraste dentro do “UserForm1” janela no local que você deseja que o seu primeiro campo de formulário para ir. Editar o rótulo, alterando a propriedade “Legenda” em algo mais descritivo, como “Nome," por exemplo. Criar uma etiqueta para cada uma das áreas que você inseriu em sua planilha.
Adicionar as suas caixas de texto
Selecione o ícone “TextBox” da caixa de ferramentas e arraste uma caixa de texto à direita da sua primeira etiqueta. Se você só vai estar usando alguns campos, é aceitável a deixar a “(Name)” propriedade como o padrão “TextBox1.” No entanto, se você precisa de um grande número de campos, isso pode ficar confuso, então você deve editar estes para coincidir com os rótulos que você já criou. Certifique-se de cada etiqueta tem 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 de estilo do Windows. Clique e arraste-a para o tamanho ea localização que você precisa em UserForm1. Normalmente, você vai querer isso abaixo ou perto da caixa de texto final em seu formulário. Altere a propriedade “Legenda” do botão para “Enviar Dados” ou algo semelhante, indicando ao usuário que ele deve clicar neste botão para enviar seus dados.
Adicionar código do Visual Basic
Dê um duplo clique no botão. Digite o seguinte código entre “Sub Private” e “End Sub”: ERoW = Sheet1.Cells (Rows.Count, 1) .End (xlUp) .Offset (1,0) .Row Em seguida, iniciar uma nova linha sob este e em seguida, digite o seguinte: as células (ERoW, 1) = TextBox1.Text Se você renomeou seu caixas de texto, mudança “TextBox1” para o nome que você deu a primeira caixa de texto. Faça isso para cada caixa de entrada criadas, começando uma nova linha e inserir os nomes de caixa de texto correto, conforme apropriado. Além disso, para cada nova linha, incrementar o número entre parênteses por um. Por exemplo, a próxima linha pode ter esta aparência: Cells (ERoW, 2) = TextBox2.Text Clique no botão “Play” no topo da janela para iniciar a captura de dados.