Excel 2016 com VBAAula 4

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%(7,5 horas)

ENTREGA DOS CERTIFICADOS :

NO ÚLTIMO DIA DO CURSO OU RETIRAR NA SECRETARIA (1º ANDAR)

Usuário:Senha:

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 4 – Parte 01

- Estruturas de Repetição- Do While..Loop- Do Until .. Loop- Do..Loop While- Do..Loop Until- For...Next- For Each...Next

Estruturas de repetiçãoPermitem a execução de um grupo ou bloco de instruçõesrepetidamente. As instruções podem ser repetidas até queuma condição seja falsa ou até que seja verdadeira.Também há loops que repetem instruções um númeroespecífico de vezes ou em cada objeto de uma coleção.

Do...Loop — Faz um loop enquanto ou até que umacondição seja verdadeira (True).For...Next — Utiliza um contador para executar instruçõesum determinado número de vezes.For Each...Next — Repete um grupo de instruções para cadaobjeto em uma coleção.

Estruturas de repetiçãoRepetição com teste no inícioDo While ... Loop — testa uma condição no início do loop e executa o loop enquanto a condição for verdadeira (True).

Do While ... Loop

Do While ... Loop – Contagem inversa

Option Explicit

Estruturas de repetiçãoRepetição com teste no inícioDo Until ... Loop — testa uma condição no início do loop e executa o loop enquanto a condição for falsa (False).

Do Until ... Loop – Contagem inversa

Estruturas de repetiçãoRepetição com teste no finalDo ... Loop While — testa uma condição no final do loop e continua a execução enquanto a condição for verdadeira (True).

Do .. Loop While

Estruturas de repetiçãoRepetição com teste no finalDo ... Loop Until — testa uma condição no final do loop e continua a execução enquanto a condição for falsa (False).

Do .. Loop Until

Loop e If

Loop e If

Estruturas de repetiçãoRepetição com variável de controleFor ... Next — executa as instruções do loop enquanto a variável contadora não atingir o valor especificado.

Estrutura For..Next – Exemplo 1

Estrutura For..Next – Exemplo 2

Estruturas de repetiçãoRepetição com objetos de coleçãoFor Each... Next — executa as instruções do loop para cada objeto de uma coleção.

Estrutura Each..Next

Macros e VBA - ExcelAula 4 – Parte 02

- ENVIRON – Variáveis de ambiente do S.O.

- Log de Abertura e Fechamento Planilha.- Environ- For..Next- Application.Enableevents- Aplication.Save

Em uma planilha nova, na área de verificação imediata.

Digitando o código abaixo teremos:

Log de abertura

Log de fechamento

Macros e VBA - ExcelAula 4 – Parte 03

- ENVIRON – Variáveis de ambiente do S.O.

- Bloqueio de acesso das planilhas –somente pessoas autorizadas.

- ENVIRON- UCASE- APPLICATION.SCREENUPDATING- IF

Código para bloquear acesso a determinada planilha.

Bloquear com senha o acesso ao VBA Editor

Macros e VBA - ExcelAula 4 – Parte 04

- ON ERROR – Tratamento de erros- On Error GoTo

- Após o erro, redireciona o código- On Error Resume Next

- Ignora o erro, executando a próxima instrução.

- On Error Goto 0- Desativa os desvios por erros.

Tratamento de erros

Tratamento de erros – Parte 1

For Each Planilha In SheetsActiveSheet.Unprotect Password:=vSenha

Next

For Each Planilha In Sheets'se houver erro, pule para a próxima instruçãoOn Error Resume Next

ActiveSheet.Unprotect Password:=vSenhaNext‘volta a considerar os erros de execução.On Error GoTo 0

Tratamento de erros – Parte 2

For Each Planilha In SheetsActiveSheet.Unprotect Password:=vSenha

Next

For Each Planilha In Sheets'se houver erro, pule para a próxima instrução‘On Error Resume Next

On Error GoTo erro_codigoActiveSheet.Unprotect Password:=vSenha

NextMsgBox "Todas as " & vCont & " planilhas foram desbloqueadas", vbOKOnly, "Desbloqueio"

Exit sub

erro_codigo:msgbox “Planilhas não desbloqueadas, senha inválida”

Exit Sub

Tratamento de erros – Parte 3

For Each Planilha In Sheets'se houver erro, pule para a próxima instrução‘On Error Resume Next

On Error GoTo erro_codigoActiveSheet.Unprotect Password:=vSenha

NextMsgBox "Todas as " & vCont & " planilhas foram desbloqueadas", vbOKOnly, "Desbloqueio"

Exit sub

ponto_saida:On Error Resume Next‘Set W = Nothing’exit Sub

erro_codigo:msgbox “Planilhas não desbloqueadas, senha inválida”Resume ponto_saída

Macros e VBA - ExcelAula 4 – Parte 05

- Rotina para excluir registros e alimentar caixa de combinação automático. Subs IF ENTIREROW. DELETE EXIT DO

Alimentando o Combobox automaticamente

Código do botão Excluir

Criando novas Subs

Código do botão Excluir

Perguntas?