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%(10 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 1 – Parte 01- O que são macros- Como criar sua primeira macro- O editor do VBA – Visual Basic for
Applicattion- Como executar uma macro- Visualizando o código VBA gerado
Sequência de comandos de um aplicativo ou conjunto de
instruções de uma linguagem de programação, passíveis de
serem armazenados em disco ou na memória como entes
independentes que, quando solicitados, executam os
comandos ou as instruções na mesma sequência em que
foram armazenados.
Linguagem: VBA – Visual Basic for Applicattion
Sub PrimeiraMacro()'' PrimeiraMacro Macro' Primeira macro - Aula 1'
'Range("A1").SelectActiveCell.FormulaR1C1 = "Primeira Macro"Range("A2").SelectActiveWindow.Zoom = 110ActiveWindow.Zoom = 120ActiveWindow.Zoom = 130ActiveWindow.Zoom = 140ActiveWindow.Zoom = 150Columns("A:A").EntireColumn.AutoFitRange("A1").SelectSelection.Font.Bold = True
End Sub
Sub PrimeiraMacro()'' PrimeiraMacro Macro' Primeira macro - Aula 1'
'Range("A2").SelectActiveCell.FormulaR1C1 = “Alterando a macro"Range("A3").SelectActiveWindow.Zoom = 180Columns("A:A").EntireColumn.AutoFitRange("A1").SelectSelection.Font.Bold = False
End Sub
Macros e VBA - ExcelAula 1 – Parte 02- Utilizar tecla de atalho para macro- Criação de uma macro para configuração de
página simples- Alteração da macro para configurar página
dinamicamente- Editando o código VBA- Depurar e executar passo a passo- Comandos
- DIM – Dimensionar variáveis na memória- SET – Atribuir valor a variável.
Range("A1").SelectSelection.CurrentRegion.SelectActiveSheet.PageSetup.PrintArea = "$A$1:$G$16“Application.PrintCommunication = False
-Alteração da macro para configurar página dinamicamente
Dim Celulas As Range
Range("A1").SelectSet Celulas = Selection.CurrentRegionActiveSheet.PageSetup.PrintArea = Celulas.AddressApplication.PrintCommunication = False
Substitua todos os endereços "$A$1:$G$16“
PorCelulas.Address
Macros e VBA - ExcelAula 1 – Parte 03- Formas diferentes de gravar uma macro
- Referências relativas- Referências absolutas
-VBA : Método OFFSET
-Instrução ACTIVECELL.OFFSET – deslocar o cursor na planilha.
Sub teste1()'' teste1 Macro''
Range("A1:D10").SelectWith Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0End With
End Sub
- Referências absolutas
Sub teste2()'' teste2 Macro'
ActiveCell.Offset(-8, -5).Range("A1:D7").SelectWith Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0End WithActiveCell.Offset(7, 4).Range("A1").Select
End Sub
- Referências relativa
- Referências relativa - erro
Erro em alguma linha de comando, por definição de aplicativo ou objeto.
Sub teste2()'' teste2 Macro'
ActiveCell.Offset(0, 0).Range("A1:D7").SelectWith Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0End WithActiveCell.Offset(7, 4).Range("A1").Select
End Sub
- Referências relativa - corrigido
Sub ClassificarPorNome()'' ClassificarPorNome Macro'
Range("E5").SelectActiveWorkbook.Worksheets("VBA e Macros - Aula 4 ").Sort.SortFields.ClearActiveWorkbook.Worksheets("VBA e Macros - Aula 4 ").Sort.SortFields.Add Key:= _
Range("E5"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _xlSortNormal
With ActiveWorkbook.Worksheets("VBA e Macros - Aula 4 ").Sort.SetRange Range("B2:R778").Header = xlNo.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.Apply
End WithEnd Sub
Sub ClassificarPorNomeNúmero()'' ClassificarPorNomeNúmero Macro‘
Columns("B:R").SelectActiveWorkbook.Worksheets("VBA e Macros - Aula 4 ").Sort.SortFields.ClearActiveWorkbook.Worksheets("VBA e Macros - Aula 4 ").Sort.SortFields.Add Key:= _
Range("B2:B780"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _:=xlSortNormal
ActiveWorkbook.Worksheets("VBA e Macros - Aula 4 ").Sort.SortFields.Add Key:= _Range("C2:C780"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _:=xlSortNormal
With ActiveWorkbook.Worksheets("VBA e Macros - Aula 4 ").Sort.SetRange Range("B1:R780").Header = xlYes.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.Apply
End WithRange("B1").Select
End Sub
Recommended