View
216
Download
0
Category
Preview:
Citation preview
Apresentação:
Prof. Guilherme Nonino Rosa- Graduado em Ciências da Computação pela Unifran – Universidade
de Franca no ano de 2000.
- Pós-Graduado em Tecnologia da Informação aplicada aos Negócios pela Unip-Universidade Paulista no ano de 2011.
- Licenciado em Informática pela Fatec – Faculdade de Tecnologia de Franca no ano de 2011.
- Docente do Senac – Ribeirão Preto desde fevereiro/2012
- Docente do Centro de Educação Tecnológica Paula Souza, nas Etecsde Ituverava e Orlândia de fevereiro/2010
- Docente na Faculdade Anhanguera – Ribeirão Preto desde de fevereiro/2013
Contatos:
Prof. Guilherme Nonino Rosa
guilherme.nrosa@sp.senac.br
OBJETIVOS DO CURSO:
Capacitar o aluno a desenvolver macros, formulários e funções personalizadas utilizando recursos do Excel e do VBA, a fim de otimizar o
processamento, armazenamento e apresentação de informações nas planilhas do Excel.
NORMAS DO LABORATÓRIO
• Proibido ingerir bebidas e alimentos dentro do laboratório
• Evitar atender o celular durantes as aulas.• Evite faltar, pois não há como voltar na aula anterior.
CRITÉRIOS DE AVALIAÇÃO
A avaliação da aprendizagem será contínua e cumulativa, priorizando aspectos qualitativos
relacionados com o processo de aprendizagem e o desenvolvimento do aluno observado durante
a realização das atividades propostas, individualmente e/ou em grupo.
APROVAÇÃO/FREQÜÊNCIA
FREQÜÊNCIA = 75%(7,5 horas)
ENTREGA DOS CERTIFICADOS :
NO ÚLTIMO DIA DO CURSO OU RETIRAR NA SECRETARIA (1º ANDAR)
1. Cria macro de gravação; 2. Diferencia referência relativa e absoluta; 3. Salva arquivo de Excel com macros; 4. Configura recursos de segurança de macros; 5. Identifica os elementos da interface do VBE; 6. Cria macro de programação; 7. Consulta documentação da Microsoft ou equivalente, quando necessário; 8. Utiliza recursos de tratamento de erro, quando necessário; 9. Utiliza caixa de entrada e caixa de mensagem; 10. Utiliza variáveis e constantes; 11. Utiliza estrutura de desvio condicional; 12. Utiliza estruturas de repetição; 13. Cria funções personalizadas; 14. Cria formulários personalizados; 15. Integra diferentes recursos de programação do VBA em um único projeto.
Macros e VBA - ExcelAula 6 – Parte 01
- Construção de formulários- Iniciando o form com botão- Iniciando o form na abertura da planilha- Iniciando o form com tecla de atalho- Atribuindo funções às teclas de atalho.
Função ONKEY
1)Iniciando o form com botão
-Inseri o botão e formatei aspropriedades ao lado.
-Abra o VBA (Alt+F11) e vamos inserir nosso formulário.
3) Inseri no form, utilizando a Caixa de Ferramentas, um botão. Na janela de propriedades, alterei o name e o caption do botão.
4) Código do botão na planilha chamado Formulário 1, para que o formulário seja aberto com um click.
Macros e VBA - Excel- Código do botão Limpar
- Código do botão fechar formulário.
Private Sub btnLimpar_Click()
txtcargo = "“txtsalario = ""txtcargo.SetFocus
End Sub
Private Sub btnFechar_Click()
Unload MeThisWorkbook.Close SaveChanges:=True
End Sub
Macros e VBA - Excel- Código do botão Cadastrar
Application.ScreenUpdating = False
If txtcargo = "" ThenMsgBox "Digite o nome do cargo a ser preenchido", vbInformation, "Cargo Ausente"txtcargo.SetFocus
Exit SubElseIf txtsalario = "" ThenMsgBox "Digite o nome do cargo a se preenchido", vbInformation, "Salário Ausente"txtsalario.SetFocus
Exit SubEnd If
Sheets("Cargos").SelectApplication.Goto reference:="R1048576C1"'Range("A1048576").SelectSelection.End(xlUp).SelectActiveCell.Offset(1, 0).SelectActiveCell = txtcargoColumns("A:A").EntireColumn.AutoFitSelection.Borders.LineStyle = xlContinuousActiveCell.Offset(0, 1).SelectActiveCell = CCur(txtsalario)Columns("B:B").EntireColumn.AutoFitSelection.Borders.LineStyle = xlContinuous'Sheets("Cadastro").SelectMsgBox "O cadastro foi efetuado com sucesso"txtcargo = ""txtsalario = ""txtcargo.SetFocus
classifica
Application.ScreenUpdating = True
Macros e VBA - Excel- Função classifica
Sub classifica()
' classifica MacroSheets("cargos").SelectRange("A1").SelectActiveWorkbook.Worksheets("Cargos").Sort.SortFields.ClearActiveWorkbook.Worksheets("Cargos").Sort.SortFields.Add Key:=Range("A2:A9"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormalWith ActiveWorkbook.Worksheets("Cargos").Sort
.SetRange Range("cargo")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.ApplyEnd With
Sheets("cadastro").Select
End Sub
Recommended