O Melhor do Excel_ 10 macros muito úteis
-
Upload
celso-costa -
Category
Documents
-
view
278 -
download
5
Transcript of O Melhor do Excel_ 10 macros muito úteis
![Page 1: O Melhor do Excel_ 10 macros muito úteis](https://reader036.fdocumentos.com/reader036/viewer/2022073103/55cf9b6c550346d033a60364/html5/thumbnails/1.jpg)
04/10/13 O Melhor do Excel: 10 macros muito úteis.
www.escolaexcel.com.br/2013/02/10-macros-muito-uteis.html 1/5
Home Consulte Também Consulte Também Vídeos Funções Gráficos Macros VBA Quem Somos
OS MELHORES VÍDEOS
SEGUNDA-FEIRA, 18 DE FEVEREIRO DE 2013
10 macros muito úteis.
Lista com 10 macros pequenas mas muito úteis, que você pode utilizar e modificar para
automatizar pequenas ações nas suas planilhas. Os trechos em vermelho mostram o que
precisa ser modificado para adequar a macro à sua necessidade específica.
O Melhor do Excel
Curtir
7.720 pessoas curtiram O Melhor do Excel.
Plug-in social do Facebook
O Melhor do Excel
http://www.escolaexcel.co
m.br/2013/08/fechar-
planilha-de-forma-automa
tica.html
há 16 horas
O Melhor do Excel:
Fechar planilha de
forma automatica.
w w w .escolaexcel.com.br
O Melhor do Excel
http://www.escolaexcel.co
![Page 2: O Melhor do Excel_ 10 macros muito úteis](https://reader036.fdocumentos.com/reader036/viewer/2022073103/55cf9b6c550346d033a60364/html5/thumbnails/2.jpg)
04/10/13 O Melhor do Excel: 10 macros muito úteis.
www.escolaexcel.com.br/2013/02/10-macros-muito-uteis.html 2/5
Utilize na sua macro o comando MsgBox, da seguinte forma:
MsgBox "texto da mensagem"
Pode ser utilizado para av isar que a macro foi concluída, mostrar o resultado da macro,
informar se há algum erro na planilha, etc.
Para isso, basta criar uma macro chamada Auto_Open()
Exemplo:
Sub Auto_Open()
MsgBox "Para ver dicas de Excel, acesse www.planilhasexcel.com"
End Sub
Nesse exemplo, ao abrir a planilha será exibida uma mensagem. Vale lembrar que, para
executar a macro, as macros deverão estar habilitadas.
Sub adicionarLinha()
Rows(2).Insert
End Sub
O exemplo acima insere uma nova linha na segunda linha da planilha
Esse exemplo escreve a data e hora atuais na célula A1. Veja também a função AGORA
Sub escreverDataEHora()
Range("A1") = Now
End Sub
Às vezes é necessário substituir um trecho de um texto por um outro trecho. Por exemplo,
na frase "Carro Número 1", podemos querer substituir "Carro" por "Automóvel", ficando
"Automóvel Número 1". Para isso, podemos utilizar o comando Replace. Veja um exemplo
que substitui todos os underlines (_) do texto da célula A1 por um espaço em branco. O
resultado será escrito na célula A2.
Sub removerUnderline()
Range("A2") = Replace(Range("A1"), "_", " ")
End Sub
Às vezes você precisa executar uma ação em todas as células que foram selecionadas pelo
usuário. Por exemplo, você pode querer contar quantas das células começam com a letra A,
ou apagar as células com valor menor que 10, passar o texto para maiúsculas, etc. O
exemplo abaixo mostra uma mensagem com o texto de cada uma das células selecionadas:
Sub fazerAlgoACadaCelula()
For Each cell In Selection.Cells
MsgBox cell
Next
End Sub
Se você irá fazer uma mesma ação em todas as células selecionadas, e essa ação não precisa
ser feita uma de cada vez, existe uma forma mais eficiente do que a mostrada acima. Esta
forma consiste em alterar as propriedades das células selecionadas (Selection.Cells)
mesma forma que faríamos com cada célula indiv idualmente. O exemplo abaixo escreve "ok"
1) Como mostrar uma mensagem informativa
2) Executar macro ao abrir a planilha
3) Como inserir uma linha com VBA
4) Escrever data e hora atuais na planilha
5) Como substituir o texto em uma célula
6) Executar uma mesma ação em cada célula selecionada
7) Executar uma mesma ação em TODAS as células selecionadas
Aprenda a calcular datas usando fórmulas noExcel 2007 / 2010
Lição 1: o que as datas significam para oExcel Com o que uma data se parece paravocê. Com o que uma data se parece para oExcel. ...
O que é VBA?
Visual Basic for Applications. O Visual Basicfor Applications (VBA) é uma implementaçãodo Visual incorporada em todos osprogramas do Mi...
Cadastro de Clientes Plus 1.0
Cadastro de Clientes Plus1.0 é um poderoso softwaredesenvolvido em Excel e podeser adaptado a qualquernecessidade do cliente, co...
Calcular idade no Excel
Com o Excel, é possívelcalcular a idade de umapessoa considerando operíodo entre duas datas 1ºSelecione a célula B3 e digite a
se...
Gráfico de Gantt
Um pouco de História Odiagrama de Gantt (ou mapade Gantt) é um gráfico usadopara ilustrar o avanço dasdiferentes etapas de um
projeto....
Função Concatenar.
DESCRIÇÃO Agrupa duas oumais cadeias de caracteresem uma única cadeia decaracteres. Você também podeusar o operador de cálculo de
...
Excluir Linhas Em Branco
"Olá Galera! Tenho umaplanilha enorme, na qual devoexcluir todas as linhas embranco que estão alternadas!Será que existe algum co...
Boletim Escolar.
Neste exemplo vamos criar 4 macrose consequentemente quatro botões para
TOP POST
![Page 3: O Melhor do Excel_ 10 macros muito úteis](https://reader036.fdocumentos.com/reader036/viewer/2022073103/55cf9b6c550346d033a60364/html5/thumbnails/3.jpg)
04/10/13 O Melhor do Excel: 10 macros muito úteis.
www.escolaexcel.com.br/2013/02/10-macros-muito-uteis.html 3/5
em todas as células, e em seguida muda a cor das células para um tom de verde.
Sub fazerAlgoATodasAsCelulas()
Selection.Cells.Value = "ok"
Selection.Cells.Font.Color = RGB(10, 200, 10)
End Sub
É recomendável verificar se uma célula possui uma fórmula, antes de fazer alguma
modificação na célula. Para isso você pode utilizar o comando HasFormula. Veja um
exemplo:
Sub verificarSeTemFormula()
If Range("A1").HasFormula = True Then
MsgBox "sim"
Else
MsgBox "não"
End If
End Sub
Você sempre tem que copiar um pedaço de uma planilha para outra planilha. Copie a macro
abaixo.
Sub copiar()
Sheets("Plan1").Range("A1:A3").Copy
Destination:=Sheets("Plan2").Range("A1")
End Sub
Esse exemplo copia as células A1, A2 e A3 (A1:A3) da planilha Plan1 para a célula A1 da
planilha Plan2.
Substitua "Plan1" pelo nome da planilha que contém as células que você quer copiar.
Substitua "A1:A3" pelas células que você quer copiar. Por exemplo, "B5" copia apenas a
célula B5, "A1:E1" copia as células de A1 até E1.
Substitua "Plan2" pelo nome da planilha que irá receber as células copiadas
Substitua "A1" pela célula na qual as células serão copiadas.
Cada comando executado na sua macro é exibido na tela do computador. Como a macro é
executada muito rapidamente, não dá pra gente realmente ver o que está acontecendo, mas
eventualmente a tela fica piscando de forma estranha. Isso acontece, por exemplo, quando
trocamos de uma planilha pra outra. Para ev itar isso, e de quebrar deixar suas macros um
pouco mais rápidas, você pode ev itar a atualização da tela no começo da tela usando a
propriedade Application.ScreenUpdating. No entanto, é preciso ter o cuido de reativar
a atualização da tela ao final da macro.
Veja um exemplo que faz a tela piscar:
Sub trocarPlanilha()
Sheets(2).Select
Sheets(1).Select
Sheets(2).Select
Sheets(1).Select
End Sub
Agora, utilizando o comando Application.ScreenUpdating.
Sub trocarPlanilhaSemPiscar()
Application.ScreenUpdating = False
Sheets(2).Select
Sheets(1).Select
Sheets(2).Select
Sheets(1).Select
8) Como saber se uma célula possui uma fórmula
9) Como copiar células de uma planilha para outra
10) Como evitar que a tela pisque durante a execução da macro
associar as macros gravadasna planilha para mostrar osalunos que...
Como Criar um Gráfico noExcel 2007.
Os gráficos tornam os dadosvisuais . Em vez de analisarcolunas de números em umaplanilha, é possível ver
instantaneamente o que os dado...
Congelar ou descongelar linhas e colunas.
Às vezes, navegar por uma planilha grande ecomplexa, com milhares de células, pode serum desafio. O problema é que, conforme vocêrola pa...
![Page 4: O Melhor do Excel_ 10 macros muito úteis](https://reader036.fdocumentos.com/reader036/viewer/2022073103/55cf9b6c550346d033a60364/html5/thumbnails/4.jpg)
04/10/13 O Melhor do Excel: 10 macros muito úteis.
www.escolaexcel.com.br/2013/02/10-macros-muito-uteis.html 4/5
Postagem mais recente Postagem mais antigaInício
Assinar: Postar comentários (Atom)
Leituras: Postado por Rodrigo Aiosa às 04:13
Reações: engraçado (0) interessante (0) legal (0)
Botão Minimizar,
Maximizar e Rest.
Tamanho no
Formulário.
Excel - Ponteiros
do Mouse no Excel
2010
Descrição de
matrizes em
procedimentos
Sub no VBA.
Declaração de
Variável.
Microsoft Excel –
Criando um gráfico
condicional
Application.ScreenUpdating = True
End Sub
Resumindo, utilize Application.ScreenUpdating = False no começo da macro,
e Application.ScreenUpdating = True no final da macro.
Curtir 8 pessoas curtiram isso. Seja o primeiro entre seus amigos.
Poderá também gostar de:
+1 Recomende isto no Google
Digite seu comentário...
Comentar como: Conta do Google
Publicar
Visualizar
Criar um link
Nenhum comentário:
Postar um comentário
Links para esta postagem
Passagem AéreaBaratavoeazul.com.br/Pas…
Compre Agora APartir de R$99,00! Em10x Sem Juros.Promoção da Azul.
Planilhas Excel Prontaswww.luz.vc/modelo-planilhas
Planilhas de Excel Prontas com Vídeo Tutoriais. Cadastre-se Agora!
Developed by Rodrigo Aiosa
![Page 5: O Melhor do Excel_ 10 macros muito úteis](https://reader036.fdocumentos.com/reader036/viewer/2022073103/55cf9b6c550346d033a60364/html5/thumbnails/5.jpg)
04/10/13 O Melhor do Excel: 10 macros muito úteis.
www.escolaexcel.com.br/2013/02/10-macros-muito-uteis.html 5/5
Copyright © 2010-2013. All rights reserved.