7 códigos de VBA no Excel que farão você se sentir mais inteligente

Os códigos de VBA no Excel podem lhe poupar uma tonelada de tempo. Você pode automatizar tarefas pequenas e pesadas com códigos VBA e quebrar limitações que você acha que o Excel possui.

Então, hoje listamos alguns dos códigos úteis com exemplos para ajudá-lo a se tornar mais produtivo em seu trabalho diário. Você pode usar esses códigos mesmo se você nunca usou o VBA no Excel. Tudo o que você precisa fazer é apenas colar esses códigos no seu editor VBA.

Já está interessado(a) no que vem por aí? Então compartilhe com sua rede de amigos para que mais pessoas possam conhecer os códigos de VBA no Excel para tornar seus trabalhos mais fáceis:

Facebook

Twitter

Google+

LinkedIn

Códigos de VBA no Excel que você precisa aprender

1. Salvar intervalo selecionado como PDF

Selecione um intervalo, execute esta macro e você receberá um arquivo PDF apenas com o intervalo selecionado. É muito legal.

Sub SalvarPDF()
 Selection.ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=True
 End Sub

2. Converta um intervalo de células em uma imagem

Crie uma imagem com um intervalo selecionado. Você só precisa selecionar o intervalo e, uma vez que você executar este código, ele irá gerar automaticamente uma imagem para esse intervalo.

Sub CriarImagem()
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Pictures.Paste.Select
End Sub

3. Use o Excel para falar

Basta selecionar um intervalo, executar este código, e o Excel irá falar todo o texto apresentado no intervalo, célula por célula. E você aí achando que somente o Google Tradutor conseguia fazer isso, não é mesmo!? 😉

Sub Falar()
Selection.Speak
End Sub

4. Abrir Calculadora

Você está constantemente usando a calculadora do Windows junto com o Excel? Que tal criar acessa-la apenas com um clique? Usando este código de macro, você poderá abrir a calculadora diretamente do Excel para seus cálculos.

Sub AbrirCalculadora()
Application.ActivateMicrosoftApp Index:=0
End Sub



5. Destaque os 10 maiores valores

Basta selecionar um intervalo e executar esta macro e ela irá destacar o top 10 valores com a cor verde. Você pode modificar essa macro para destacar quantos números você quiser, além de ser possível alterar a cor das células destacadas também.

Sub TopValores()
Selection.FormatConditions.AddTop10
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1)
.TopBottom = xlTop10Top
.Rank = 10
.Percent = False
End With
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

6. Destaque intervalos nomeados

Se você não tem certeza sobre quantos intervalos nomeados você tem em sua planilha, então você pode usar esse código para destacar todos eles. No exemplo abaixo temos 3 intervalos nomeados (Nome, Mês e Valores).

Sub VerIntervalosNomeados()
Dim RangeName As Name
Dim HighlightRange As Range
On Error Resume Next
For Each RangeName In ActiveWorkbook.Names
Set HighlightRange = RangeName.RefersToRange
HighlightRange.Interior.ColorIndex = 36
Next RangeName
End Sub

7. Destaque números negativos

Selecione um intervalo de células e execute este código. Ele verificará cada célula do alcance e destacará todas as células onde você tem um número negativo.

Sub NumerosNegativos()
Dim Rng As Range
For Each Rng In Selection
If WorksheetFunction.IsNumber(Rng) Then
If Rng.Value < 0 Then
Rng.Font.Color= -16776961
End If
End If
Next
End Sub

E então, o que achou dos códigos de VBA no Excel mostrados acima? Deixe seu comentário e continue acompanhando mais dicas de Excel em nosso site!