VBA™ para Excel™ 2: conceitos básicos

(Ver o anterior)

Hoje veremos mais alguns itens básicos. Caso você já tenha alguma Sub pronta, e só deseja utilizar, basta acessá-la em Ferramentas > Macro > Macros. Você verá uma lista das macros disponíveis. Clique na macro desejada e em Executar. Repare que, para isso, não há necessidade de acessar o editor.

Para criar ou editar as macros, será necessário usar o editor. Para visualizá-lo, clique em ALT+F11.

O VBA utiliza as seguintes funções aritméticas:

• Ponto ( . ) para separar casas decimais;
• Variáveis, números, ou expressões com variáveis e números;
• Os seguintes operadores: + (para soma), – (para subtração), * (para multiplicação), / (para divisão), ^ (para potenciação).

Vamos agora aquecer um pouco para você começar a visualizar como o VBA funciona. Faremos uma macro de teste. Abra o editor (ALT+F11) e digite (depois comentaremos passo a passo o que fizemos):

Sub teste()

Dim X As Integer
Dim Y As Integer
Dim Z As Integer

X = 13
Y = 5
Z = X / Y

Cells(1, 1) = Z

End Sub

Salve o arquivo da mesma forma que você sempre o faz. Volte para o Excel (ALT+F11), e rode a macro “teste” (Ferramentas > Macro > Macros).

Se tudo deu certo, sua célula A1 está com o valor 3. Se isto não ocorreu, faça as correções necessárias seguindo as instruções acima.

O que foi feito? Primeiro, nomeamos uma nova macro com o nome “teste” (Sub teste()).

Depois, dimensionamos as variáveis como números inteiros (Dim X As Integer, Dim Y As Integer, Dim Z As Integer). Atribuímos valores fixos, no corpo da macro, para X e Y (X = 13, Y = 5).

Instruímos o cálculo de Z como a divisão de X por Y (Z = X / Y). Repare que esta divisão resulta em 2,6. Mas, como definimos Z como número inteiro, o valor retornado foi arredondado para 3.

A última instrução é a apresentação do resultado (Z) na célula A1 (Cells(1, 1) = Z). Cuidado ao endereçar células no VBA, porque os números são no formato (linha, coluna), diferente do formato do Excel, que mostra primeiro a coluna (A), depois a linha (1).

Modifique o parâmetro Z para double (número Real), da seguinte forma:

Sub teste()

Dim X As Integer
Dim Y As Integer
Dim Z As Double

X = 13
Y = 5
Z = X / Y

Cells(1, 1) = Z

End Sub

Rode novamente a macro. O resultado apresentado deverá ser 2,6. Guarde o arquivo salvo, para ter como referência.

Até a próxima!