Como usar o evento Initialize no VBA?

No VBA, o evento `Initialize` é usado para executar código quando um formulário de usuário (UserForm) é carregado na memória, mas antes de ser exibido na tela. Esse evento é útil para configurar controles, definir valores iniciais ou executar outras rotinas de inicialização.

Aqui está um exemplo básico de como usar o evento `Initialize` em um UserForm:

Private Sub UserForm_Initialize()
    ' Exemplo: Configurando valores iniciais de alguns controles
    Me.TextBox1.Text = "Digite seu nome"
    Me.ComboBox1.AddItem "Opção 1"
    Me.ComboBox1.AddItem "Opção 2"
    Me.ComboBox1.AddItem "Opção 3"
    Me.CheckBox1.Value = False
End Sub
Sub MostrarUserForm()
    UserForm1.Show
End Sub
  • Abra o Editor do VBA:
    • No Excel (ou outra aplicação do Office), pressione `ALT + F11` para abrir o Editor do VBA.
  • Insira um UserForm:
    • No Editor do VBA, vá até `Inserir` > `UserForm`. Um novo formulário de usuário aparecerá.
  • Abra a Janela de Código do UserForm:
    • Clique com o botão direito no UserForm (na árvore do projeto à esquerda) e selecione `Exibir Código`.
  • Adicione o Evento Initialize:
    • No topo da janela de código, há duas listas suspensas. Na lista à esquerda, selecione `UserForm`. Na lista à direita, selecione `Initialize`. Isso irá gerar o esqueleto do procedimento `Initialize`.
  • Escreva o Código de Inicialização:
    • Dentro do procedimento `Initialize`, você pode escrever o código que deseja executar ao inicializar o UserForm. Por exemplo, configurar valores iniciais de controles.
  • Testar o UserForm:
    • Para ver o resultado, volte ao Editor do VBA, insira um módulo (se ainda não tiver um), e no módulo insira um código simples para mostrar o UserForm:
  • Pressione F5 para executar a sub-rotina `MostrarUserForm` e o UserForm aparecerá com os controles inicializados conforme definido no evento `Initialize`.

Lembre-se de ajustar os nomes dos controles (TextBox1, ComboBox1, CheckBox1, etc.) de acordo com os que você realmente estiver usando no seu UserForm.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project