Excel vba planilha cadastro alunos e cursos usf

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

Tags: