NUNCA MAIS PASSE RAIVA POR NÃO CONSEGUIR RESOLVER UM PROBLEMA COM O EXCEL - GARANTIDO!

UNIVERSIDADE DO VBA - Domine o VBA no Excel Criando Sistemas Completos - Passo a Passo - CLIQUE AQUI

Quer Receber Novidades e E-books Gratuitos de Excel? * Junte-se a mais de 103.000 pessoas!

Curso Grátis de Excel Avançado - Módulo 5 - Lição: VBA - Cálculos, Operadores Aritméticos e Exemplos

120 Lições | Gratuito Online | Autor: Júlio Battisti


Fazendo cálculos e comparações com o VBA - Operadores Aritméticos.

Para realizarmos cálculos e comparações entre variáveis, podemos utilizar operadores. Neste item trataremos sobre operadores aritméticos e operadores de comparação.

Fazendo cálculos com os Operadores aritméticos:

Podemos realizar cálculos no VBA, utilizamos operadores aritméticos. Na Tabela a seguir, temos uma descrição dos operadores que podemos utilizar:

Operadores Aritméticos do VBA:

Operador Símbolo Descrição
Adição    + Soma o valor de duas ou mais variáveis.
Subtração    - Subtração entre duas ou mais variáveis.
Multiplicação    * Multiplica os valores de duas ou mais variáveis.
Divisão    / Divide o valor de duas ou mais variáveis.
Inteiro da Divisão entre dois números    \ Retorna a parte inteira, da divisão entre dois  números.
Exponenciação    ^ x^y -> É o valor do número x, elevado na potência y
Modulo    Mod Retorna o resto de uma divisão de 2 números.

Considere o pequeno trecho de código a seguir, onde declaramos as variáveis x, y e z. Atribuímos valores a essas variáveis e em seguida fazemos algumas operações. As linhas que iniciam com um apóstrofe são simplesmente comentários. Toda linha que iniciar com um apóstrofe será desconsiderada pelo VBA. Os comentários são importantes para documentação do código.

' Exemplo de utilização de variáveis e operadores aritméticos
' Curso: Excel Avançado em 120 Lições.
' Autor: Júlio Battisti
' Site: www.juliobattisti.com.br
' Declaração das variáveis.

Dim x, y, z As Integer
x = 10
y = 25
z = x*y
' Nesse exemplo a variável z conterá o valor 250

Vamos fazer um pequeno teste com os comandos para declaração de variáveis.

Exemplo:

Acessar o Editor VBA para alterar a macro AplicaNegrito, da planilha C:\ExcelAvancado\Módulo 5 - Exemplo VBA.xls.

  1. 1. Abra o Excel.
  2. 2. Abra a Planilha C:\ExcelAvancado\ Módulo 5 - Exemplo VBA.xls.
  3. 3. Como existem macros já criadas, o Excel pede uma confirmação, perguntando se você deseja ativar as macros existentes. Essa confirmação é solicitada devido ao perigo representado pelos vírus de Macro, que podem afetar os aplicativos do Microsoft Office.

  4. 4. Clique no botão Ativar Macros.
  5. 5. A planilha será aberta.
  6. 6. Nessa planilha existe uma macro chamada AtivaNegrito. Vamos editar essa macro. O nosso objetivo é utilizar o comando Dim para declarar algumas variáveis e os operadores aritméticos para fazer alguns cálculos. Os valores dos cálculos serão exibidos quando a macro for executada.
  7. 7. Selecione o comando Ferramentas -> Macro -> Macros...
  8. 8. Será exibida a janela Macro.
  9. 9. Clique na macro AplicaNegrito para seleciona-la.
  10. 10. Clique no botão Editar.
  11. 11. Será aberto o editor do VBA e o código associado à macro AplicaNegrito.
  12. 12. Altere o código, para que fique conforme indicado na listagem a seguir:
' Exemplo de utilização de variáveis e operadores aritméticos
' Curso: Excel Avançado em 120 Lições.
' Autor: Júlio Battisti
' Site: www.juliobattisti.com.br
' Declaração das variáveis.
Selection.Font.Bold = True
Dim a As Integer
Dim b As Integer
Dim som, subtr, divis, mult, intdivs, expo, modul As Double

a = 25
b = 3
' Uso os operadores aritméticos para efetuar cálculos
som=a+b
subtr=a-b
divis=a/b
mult=a*b
intdivs=a\b
expo=a^b
modul= a mod b
'Uso de MsgBox para exibir os resultados.
MsgBox "Os números são: " & a & " e " & b & Chr(13)
MsgBox "Soma: " & som & Chr(13)& "Subtração: " & subtr & Chr(13)
MsgBox "Divisão: " & divis & Chr(13)& "Multiplicação: " & mult & Chr(13)
MsgBox "Divisão inteira: " & intdivs & Chr(13)& "Exponenciação: " & expo & Chr(13)
MsgBox "Resto da divisão: " & modul
  1. 13. Após digitar o código feche o Editor do VBA.
  2. 14. Salve a Planilha.
  3. 15. Clique na célula F2.
  4. 16. Pressione Ctrl+Shift+K para executar a macro AtivaNegrito.
  5. 17. Será exibida a seguinte mensagem:

Excel Avançado em 120 Lições - Júlio Battisti

  1. 18. Dê um clique no botão OK.
  2. 19. Será exibida a seguinte mensagem:

Excel Avançado em 120 Lições - Júlio Battisti

  1. 20. Dê um clique no botão OK.
  2. 21. Será exibida a seguinte mensagem:

Excel Avançado em 120 Lições - Júlio Battisti

  1. 22. Dê um clique no botão OK.
  2. 23. Será exibida a seguinte mensagem:

Excel Avançado em 120 Lições - Júlio Battisti

  1. 24. Dê um clique no botão OK.
  2. 25. Será exibida a seguinte mensagem:

Excel Avançado em 120 Lições - Júlio Battisti

  1. 26. Dê um clique no botão OK.
  2. 27. Você estará de volta à planilha e a célula F2 estará formatada com Negrito.
  3. 28. Mantenha a planilha aberta pois iremos utiliza-la nas demais lições desse módulo.

Neste exemplo utilizamos os operadores aritméticos, para realizar uma série de operações com os valores atribuídos às variáveis "a" e "b". Depois utilizamos a função MsgBox (que é um comando interno do próprio VBA), para exibir os resultados obtidos.

O uso da função MsgBox, merece alguns comentários. Primeiro, utilizamos a função MsgBox, para exibir mensagens em uma pequena janela, chamada de Janela Pop-Up (que é a janela exibida nas figuras desse exemplo). Podemos exibir texto e também valores de variáveis. Quando temos que exibir diversos componentes, como um pouco de texto, em seguida o valor de uma variável, depois mais texto, e assim por diante, devemos utilizar o operador de concatenação: &. Este operador permite que as diversas partes sejam exibidas como uma única mensagem. Considere o exemplo da seguinte linha de código:

MsgBox "Os números são: " & a & " e " & b & Chr(13)

Neste exemplo, primeiro é exibido o texto: " Os números são:" , logo em seguida o valor da variável a. Observe que as duas partes são concatenadas com o operador &. Depois concatenamos o valor da variável b, e finalmente utilizamos a função Chr(13). A função Chr(número), envia o caractere correspondente ao número digitado entre parênteses. Este número, é o número do caractere no padrão ASCII (American Standard Caracter Interchange Information). No código ASCII, cada caracter possui um número associado. No caso o número 13, é associado ao <ENTER>. Com isso estamos enviando um <ENTER>, para a caixa de mensagem, o que equivale a uma troca de linha. Assim utilizamos o Chr(13), para simular um <ENTER>, de tal maneira que os dados não saiam todos "emendados", na mesma linha.

Com o uso dos operadores aritméticos , realizamos uma série de operações sobre as variáveis existentes no código da macro AplicaNegrito.

Vamos avançar um pouco mais no nosso estudo sobre operadores. Vamos tratar dos operadores de comparação. Esse é justamente o assunto da próxima lição.

[LIVRO]: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2010 - PASSO-A-PASSO

APRENDA COM JULIO BATTISTI - 1124 PÁGINAS: CLIQUE AQUI