Ao criar Userforms em Excel VBA, você pode usar o Coleção de controles para facilmente percorrer os controles e definir uma propriedade de cada controle para um valor específico.
O formulário de usuário que vamos criar tem a seguinte aparência:
Para criar este formulário de usuário, execute as seguintes etapas:
1. Abra o Editor do Visual Basic. Se o Project Explorer não estiver visível, clique em View, Project Explorer.
2. Clique em Inserir, Formulário do usuário. Se a caixa de ferramentas não aparecer automaticamente, clique em Exibir, Caixa de ferramentas. Sua tela deve ser configurada conforme abaixo.
3. Adicione o rótulo, as caixas de texto (primeiro na parte superior, a segunda abaixo da primeira e assim por diante) e o botão de comando. Depois de concluído, o resultado deve ser consistente com a imagem do formulário do usuário mostrada anteriormente. Por exemplo, crie um controle de caixa de texto clicando em TextBox na caixa de ferramentas. Em seguida, você pode arrastar uma caixa de texto no formulário do usuário.
4. Para alterar a legenda do formulário do usuário, rótulo e botão de comando, clique em Exibir, Janela de propriedades e clique em cada controle.
5. Para mostrar o formulário de usuário, coloque um botão de comando em sua planilha e adicione a seguinte linha de código:
Private Sub CommandButton1_Click ()
UserForm1.Show vbModeless
End Sub
Explicação: adicionando vbModeless, você pode usar o Userform e trabalhar em sua planilha ao mesmo tempo.
Agora criamos a primeira parte do formulário de usuário. Embora já pareça legal, nada acontecerá ainda quando clicarmos no botão de comando no formulário de usuário.
6. Abra o Editor do Visual Basic.
7. No Project Explorer, clique duas vezes em UserForm1.
8. Clique duas vezes no botão de comando.
9. Adicione as seguintes linhas de código:
Private Sub CommandButton1_Click ()
Dim i As Integer
Para i = 1 a 10
Controles ("TextBox" & i) .Value = Células (i + 1, 1) .Value
Proximo eu
End Sub
Explicação: Com apenas algumas linhas de código, podemos preencher as caixas de texto com os números de telefone da planilha. Usamos o operador & para concatenar (juntar) os elementos. Essas linhas de código funcionam porque não alteramos os nomes dos controles da caixa de texto (TextBox1, TextBox2, TextBox3, etc). Para alterar os nomes dos controles, clique em Exibir, Janela de propriedades e clique em cada controle.
Resultado quando você clica no botão de comando na planilha:
