SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

 Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel vba

Exemplo de planilha cadastro usando objetos do Aplicativo Microsoft Excel VBA, usando labels, textboxes, Userforms

Private Sub chkAlmoco_Change()
    If chkAlmoco = True Then
        chkVegetariano.Enabled = True
    Else
        chkVegetariano.Enabled = False
        chkVegetariano = False
    End If
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdClearForm_Click()
    Call UserForm_Initialize
End Sub

Private Sub cmdOK_Click()
    ActiveWorkbook.Sheets("Curso_Alunos").Activate
    Range("A1").Select
   
    Do
      If IsEmpty(ActiveCell) = False Then
         ActiveCell.Offset(1, 0).Select
      End If
    Loop Until IsEmpty(ActiveCell) = True
   
    ActiveCell.Value = txtNome.Value
   
    ActiveCell.Offset(0, 1) = txtFone.Value
    ActiveCell.Offset(0, 2) = cbxDepartamento.Value
    ActiveCell.Offset(0, 3) = cbxCurso.Value
   
    If optIniciante = True Then
        ActiveCell.Offset(0, 4).Value = "Iniciante"
    ElseIf optIntermediario = True Then
        ActiveCell.Offset(0, 4).Value = "Intermediário"
    Else
        ActiveCell.Offset(0, 4).Value = "Avançado"
    End If
   
    If chkAlmoco = True Then
        ActiveCell.Offset(0, 5).Value = "Sim"
    Else
        ActiveCell.Offset(0, 5).Value = "Não"
    End If
   
    If chkVegetariano = True Then
       ActiveCell.Offset(0, 6).Value = "Sim"
    Else
       
    If chkAlmoco = False Then
       ActiveCell.Offset(0, 6).Value = ""
    Else
       ActiveCell.Offset(0, 6).Value = "Não"
    End If
    End If
    Range("A1").Select
End Sub

Private Sub UserForm_Initialize()
    txtNome.Value = ""
    txtFone.Value = ""
    With cbxDepartamento
        .AddItem "Vendas"
        .AddItem "Compras"
        .AddItem "Administração"
        .AddItem "Design"
        .AddItem "Excel VBA"
        .AddItem "Dept.Pessoal"
        .AddItem "Transporte"
    End With

    cbxDepartamento.Value = ""

    With cbxCurso
        .AddItem "Asp.net"
        .AddItem "Excel VBA"
        .AddItem "VB.Net"
        .AddItem "Word VBA"
        .AddItem "C#"
    End With

    cbxCurso.Value = ""
    optIniciante = True
    chkAlmoco = False
    chkVegetariano = False
    txtNome.SetFocus
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Baixe o exemplo de planilha contendo procedimento acima
Excel vba planilha cadastro alunos e cursos usf (25.32 KB)


Publicidade
Compre com segurança, garantia e ótimos preços