Excel 2016 com VBAAula 1

Prof. Guilherme Nonino Rosa

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)

Usuário: t-ad-127327Senha: gChsJlnm

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

Janela de Código

Verificação Imediata

Janela de Propriedades

Project Explorer

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

-Depurar e executar passo a passo – Tecla F8

-Depurar e executar tudo de um vez – Tecla F5

-Área de Verificação Imediata

-Alterando o código na execução.

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.

activecell.Offset(2,2).select

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

- Módulos

Módulos : Existem porque incluímos macros nas planilhas.

Macros e VBA - ExcelAula 1 – Parte 04

- Botões de Macro- Macros gravadas na planilha PERSONAL

Exemplo a ser utilizado em aula.

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

Macros e VBA - ExcelAula 1 – Parte 05

- Segurança

Perguntas?