Trabalhar com o Excel em sua forma padr\u00e3o (com f\u00f3rmulas e estruturas nas c\u00e9lulas das planilhas) nos permite realizar grande parte das tarefas que precisamos no dia a dia. Entretanto, algumas aplica\u00e7\u00f5es exigem que tenhamos algum trabalho automatizado via programa\u00e7\u00e3o. O Excel possui integrado ao seu ambiente o VBA \u2013 Visual Basic for Applications \u2013 como uma ferramenta de desenvolvimento de software integrada a plataforma Windows. Ou seja, utilizaremos o VBA toda vez que desejarmos automatizar alguma rotina no Excel.
\nPara utilizar o VBA, mesmo que sejam apenas seus recursos b\u00e1sicos, \u00e9 necess\u00e1rio conhecer l\u00f3gica de programa\u00e7\u00e3o. Partindo que voc\u00ea j\u00e1 possui esta habilidade (se n\u00e3o possui, existem in\u00fameros e bom materiais dispon\u00edveis na internet), vamos ao nosso primeiro c\u00f3digo em VBA.
\nVamos desenvolver uma aplica\u00e7\u00e3o para copiar todos os elementos das tr\u00eas primeiras colunas, da planilha 1 (Plan1) para a planilha 2 (Plan2). Para isto, pressione Alt + F11 como tecla de atalho para abrir a janela de desenvolvedor.<\/p>\n
VBA no Excel – inicio<\/p>\n
Em seguida, clique com o bot\u00e3o direito em Plan1 na janela \u201cProjeto \u2013 VBAProject\u201d e depois em \u201cExibir c\u00f3digo\u201d. Este ser\u00e1 o seu ambiente de desenvolvimento.<\/p>\n
VBA – Exibir c\u00f3digo<\/p>\n
Sub exemplo1()
\nDim ultimaLinha As Long
\nultimaLinha = ActiveSheet.UsedRange.Rows.Count
\nRange(Cells(1, 1), Cells(ultimaLinha, 3)).Copy Destination:=Plan2.Range(\u201cA1\u201d)
\nEnd Sub<\/p>\n
c\u00f3digo inicial VBA
\nAntes de executarmos, vamos entender o que este c\u00f3digo significa.
\nA primeira linha come\u00e7a com Sub exemplo1(). Sub \u00e9 a declara\u00e7\u00e3o de sua fun\u00e7\u00e3o e exemplo1 \u00e9 o nome que voc\u00ea deu a ela.
\nDim ultimaLinha As Long \u00e9 a decla\u00e7\u00e3o de sua vari\u00e1vel \u201cultimaLinha\u201d como um tipo long.
\nEm seguida, atribu\u00edmos a esta vari\u00e1vel o n\u00famero da \u00faltima linha(Rows.Count) que est\u00e1 preenchida (UseRange) na planilha ativa (ActiveSheet), o que forma o c\u00f3digo ultimaLinha = ActiveSheet.UsedRange.Rows.Count.
\nPor fim, copiamos (Copy) tudo desde a primeira c\u00e9lula (Cells(1,1)) at\u00e9 a \u00faltima linha preenchida da coluna 3 (Cells(Cells(ultimaLinha, 3)). Nosso destino \u00e9 a Plan2, come\u00e7ando na c\u00e9lula A1 Destination:=Plan2.Range(\u201cA1\u201d).<\/p>\n
Entendi o c\u00f3digo, vamos execut\u00e1-lo. Basta clicar no bot\u00e3o \u201cPlay\u201d e conferir o resultado de sua aplica\u00e7\u00e3o.
\nComo um outro exemplo, vamos inserir a mensagem \u201cBem vindo ao VBA\u201d na primeira c\u00e9lula da planilha e tamb\u00e9m exibir este texto em uma caixa de mensagem. Para isto, temos o seguinte c\u00f3digo:
\nSub exemplo2()
\nCells(1, 1) = \u201cBem vindo ao VBA\u201d
\n\u2018Isto \u00e9 um coment\u00e1rio
\nMsgBox Cells(1, 1)
\nEnd Sub<\/p>\n
VBA exemplo<\/p>\n
Note que temos uma nova declara\u00e7\u00e3o de c\u00f3digo. O comando MsgBox ativa uma caixa de mensagens com o conte\u00fado que est\u00e1 na linha 1 e coluna 1 (C\u00e9lula A1). Ap\u00f3s executar ao c\u00f3digo, temos:<\/p>\n
VBA mensagem<\/p>\n
Com estes dois exemplos j\u00e1 podemos perceber o quanto ser\u00e1 \u00fatil aprendermos mais sobre programa\u00e7\u00e3o em VBA no Excel. Vamos abordar mais exemplos e mais aplica\u00e7\u00f5es nos pr\u00f3ximos artigos. Fique ligado! At\u00e9 l\u00e1.<\/p>\n","protected":false},"excerpt":{"rendered":"