Home Excel - Dicas Microsoft Excel VBA Excel VBA - Cadastro Excel vba planilha cadastro alunos e cursos usf

Excel vba planilha cadastro alunos e cursos usf

E-mail Imprimir PDF

 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
Eletrônicos - Submarino.com.br

Última atualização em Qua, 10 de Agosto de 2011 08:14  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4917
mod_vvisit_counterOntem4316
mod_vvisit_counterEsta Semana19364
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33093
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10455922
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA