10 exemplos de macros no Excel.pdf

31/10/2017

10 exemplos de macros essenciais no Excel - Blog LUZ

10 exemplos de macros essenciais no Excel Por Po r

Rafael Ávila - 6 de mai maio o de 201 2015 5

Para aproveitar toda a potencia que o Excel possui, é indispensável Para ind ispensável a utilização de macros. Macro poder pod er ser definida como uma serie de comandos(em sequencia), sequencia), que podem ser cliques, toques no teclado ou até mesmo pequenas linhas de códigos com com funções mais avançadas. Essas sequencias são gravadas são gravadas em um modulo VBA e são executados sempre sem pre que for necessário. O principal beneficio de uma macro é o ganho de tempo que ela proporciona, afinal ela automatiza algo que teria que ser feito feit o de forma manual em diversas etapas. Muito utilizadas utilizadas quando é preciso executar varias vezes o mesmo me smo conjunto de tarefas.

Uma macro pode ser criada de duas formas distintas: armazena cada ação que fará parte Usando o gravador de Macros: Nesse procedimento o Excel armazena da Macro, depois o gravador de macro converte essas ações em comandos VBA(Visual Basic Você Vo cê gostaria de ter uma planilha para for Applications). melhorar alguma atividade sua? Usando VBA: Se você entende um pouco de programação ou mesmo domina a linguagem VBA, pode criar suas macros por conta própria. Para isso basta Sim utilizar o editor de VBA presente nas versões mais recentes do Microsoft Excel. Não

Como dito anteriormente é possível realizar uma infinidade de operações com as macros, no entanto Notmais using Hotjar yet? Enviar existem algumas que se destacam das demais por serem utilizadas no dia-a-dia. Veja 10 macros https://blog.luz.vc/excel/10-exemplos-de-macros-essenciais-no-excel/

1/17

31/10/2017


que vão ajudar você com as suas planilhas.

1) Mostrando uma mensagem Basta inserir na sua macro o comando MsgBox. Veja como no exemplo abaixo: MsgBox “texto da mensagem”

Você gostaria de ter uma planilha para melhorar alguma atividade sua? Sim

Não

Not using Hotjar yet?

https://blog.luz.vc/excel/10-exemplos-de-macros-essenciais-no-excel/

Enviar 2/17

31/10/2017


Essa linha de código pode ser inserida em qualquer macro, muito útil nos casos onde se faz necessário emitir avisos ao usuário da planilha que está rodando a macro.

2) Execute uma macro quando abrir a planilha Existem casos onde a macro precisa ser aberta juntamente com a planilha. Nesse caso basta montar uma macro com o parâmetro Auto_Open(). Confira no exemplo Sub Auto_Open() MsgBox “Para saber tudo sobre Excel, acesse www.https://luz.vc/” Você gostaria de ter uma planilha para End Sub melhorar alguma atividade sua? Sim

Não



Enviar 3/17

31/10/2017


No exemplo acima, assim que a planilha for aberta uma mensagem será exibida. Não se esqueça de habilitar as macros no seu Excel.

3) Planilha com data e hora atual É possível escrever a data e a hora atual na planilha. O exemplo a seguir insere esses dados na célula A1, veja. Sub escreverDataEHora() Range(“A1”) = Now End Sub


Não



Enviar 4/17

31/10/2017



Não



Enviar 5/17

31/10/2017


4) Execute a mesma ação em cada célula selecionada Em algum momento você precisara executar uma ação nas células que foram selecionadas pelo usuário. Para isso crie uma macro igual o exemplo abaixo. Sub fazerAlgoACadaCelula() For Each cell In Selection.Cells MsgBox cell Next End Sub


Não



Enviar 6/17

31/10/2017


5) A mesma coisa em todas as células selecionadas Você pode fazer a mesma macro anterior mas de forma um pouco mais abrangente, ou seja a ação não será realizada em etapas. O exemplo abaixo escreve “Olá” em todas as células. Sub fazerAlgoATodasAsCelulas() Selection.Cells.Value = “Olá” End Sub Você gostaria de ter uma planilha para melhorar alguma atividade sua? Sim

Não



Enviar 7/17

31/10/2017



Não



Enviar 8/17

31/10/2017


Você pode fazer uma infinidade de inserções no código, como por exemplo mudar a cor do texto, tamanho da fonte, tipo de fonte e muito mais.

6) Identicando formulas dentro de cada celula É altamente recomendável verificar se existe algo dentro da célula, sempre que uma modificação na célula seja necessário. Nesse exemplo verificaremos se existe alguma formula na célula em questão. Sub verificarFormula() If Range(“A1”).HasFormula = True Then MsgBox “Existe Formula” Else MsgBox “Não é uma Formula” End If End Sub


Não



Enviar 9/17

31/10/2017


7) Mudar cor da célula ao passar o mouse Você também pode querer proporcionar mais interatividade com os usuários da planilha. O ideal é que a interatividade tenha o objetivo de facilitar o serviço e visualização das informações. A macro abaixo é um exemplo de como você pode fazer com que sua tabela apresente células com o mesmo tom de cor sempre que o mouse passar por um dado que correlacione essas células. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LinhaInicio As Range Dim Linha As Range Dim Linha2 As Long


Cells.Interior.ColorIndex = xlNone Linha2 = Target.Row https://blog.luz.vc/excel/10-exemplos-de-macros-essenciais-no-excel/

Não


Enviar 10/17

31/10/2017


Set LinhaInicio = Range(“A” & Linha2, Target) ‘Pinta da celula selecionada até a coluna 5 Set Linha = Range(Cells(Target.Row, 1), Cells(Target.Row, 5)) With Linha .Interior.ColorIndex = 12 End With End Sub

Você gostaria de ter uma planilha para melhorar alguma atividade sua? Sim 8) Mudando a cor do interior e das fontes Não

Esta macro , altera as cores no interior e na fonte das células, de acordo com a letra das células. Not using Hotjar yet?


Enviar 11/17

31/10/2017


Sub Colorir_fonte_interior_letra() For N = 1 To Range(“O65536”).End(xlUp).Row Select Case Range(“O” & N) Case “A” Range(“O” & N).Interior.ColorIndex = 3 Range(“O” & N).Font.ColorIndex = 1 Case “B” Range(“O” & N).Interior.ColorIndex = 4 Range(“O” & N).Font.ColorIndex = 2 Case “C” Range(“O” & N).Interior.ColorIndex = 5 Range(“O” & N).Font.ColorIndex = 3 Case “D” Range(“O” & N).Interior.ColorIndex = 7 Range(“O” & N).Font.ColorIndex = 12 Case Else Range(“O” & N).Interior.ColorIndex = 6 Range(“O” & N).Font.ColorIndex = 4 End Select Next N End Sub


Não



Enviar 12/17

31/10/2017


9) Macro que fala Já pensou que interessante ter uma planilha que fala os dados contidos nela, é exatamente isso que essa macro faz. No exemplo abaixo a planilha possuía palavras que iam da célula A1 até a A5, mas você pode escolher o intervalo que achar mais conveniente, para isso basta alterar o A1:A5 presentes no código abaixo, pelo intervalo que preferir. Sub ExcelFalando() Range(“A1:A5”).Speak End Sub


Não



Enviar 13/17

31/10/2017


10) Desbloqueando planilhas com senha Alguém colocou senha na sua planilha e agora você não consegue mais desbloqueá-la. Não se preocupe com essa macro você poderá acessar novamente todo o conteúdo armazenado nesse arquivo de Excel. Para isso abra a planilha com bloqueio e acesso o editor de VBA. No editor você criará uma macro da seguinte forma: Sub Desbloqueia_Planilha() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer On Error Resume Next For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 65 To 66 For m = 65 To 66 For i1 = 65 To 66 For i2 = 65 To 66 For i3 = 65 To 66 https://blog.luz.vc/excel/10-exemplos-de-macros-essenciais-no-excel/


Não


Enviar 14/17

31/10/2017


For i4 = 65 To 66 For i5 = 65 To 66 For i6 = 65 To 66 For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox “Sua planilha foi desbloqueada ” Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub


Não



Enviar 15/17

31/10/2017


Execute essa macro na planilha bloqueada e espere até que a senha seja quebrada. Obs: Cuidado com o numero de next no final na macro, eles devem fechar os laços FOR abertos. Esses são apenas alguns exemplos de macros que você pode utilizar no dia a dia. Vale lembrar que toda macro é um mini programa e por isso é fundamental ter cuidado para não executar qualquer tipo de macro, principalmente se ela vier em planilhas de terceiros. E você já usa alguma macro no seu cotidiano? Compartilhe conosco a sua experiência deixando um comentário ou entrando em contato!

Você gostaria de ter uma planilha para melhorar alguma atividade sua?

Rafael Ávila

Sim

Administrador e turismólogo, apaixonado pelas possibilidades que o Excel dá para gestores, empreendedores e Não estudantes. É sócio diretor da área de planilhas na LUZ - Planilhas Empresariais (luz.vc) e é o responsável pelo desenvolvimento das mais de 150 planilhas com foco empresarial e pessoal comercializadas em seu site. Também Not using Hotjar yet?


Enviar 16/17

31/10/2017


ministra os cursos online de Excel (cursos.luz.vc) e gosta de ajudar milhares de planilheiros por meio do Fórum e Blog da LUZ. 


Não



Enviar 17/17

10 exemplos de macros no Excel.pdf

Recommend Documents