Soma Restrita

Exercício Básico

Enunciado

Obtenha o valor da soma dos números presentes na coluna "A" cujo valor absoluto seja maior que 50.

Conceitos Sugeridos:

Dim - Declara variáveis.
For Next - Auxilia na somatória dos números.
If Then - Executa uma instrução caso uma condição seja atendida.
End com .Row - Encontrar a última linha com dados.
Cells - Permite a interação do VBA com células da planilha.

Abs - Retorna o valor absoluto de um números.

MsgBox Abs(10) 'Resultará em 10
MsgBox Abs(-10) 'Resultará em 10

Lembre-se que na maioria dos casos há mais de uma forma de resolver o problema.

Dica: A soma deverá ter resultado positivo.

Exercício Resolvido

Resolvendo o Problema

Declaramos as variáveis e encontramos o último dado da planilha

Dim UltLinha As Long
Dim ValCel As Long
Dim Soma As Long
Dim i As Integer

UltLinha = Cells(Rows.Count, 1).End(xlUp).Row

Criamos um loop For Next até a ultima linha, somando cada célula restrita a uma condicional (ser maior do que 50 em termos absolutos) e associando o resultado a variável Soma
```
Soma=0
For i = 3 To UltLinha
    ValCel = Cells(i, 1).Value
    If Abs(ValCel)>50 Then
        Soma = Soma + ValCel
    End If
Next i
```

Código Consolidado

    Sub Resolucao()

    Dim UltLinha As Long
    Dim ValCel As Long
    Dim Soma As Long
    Dim i As Integer

    UltLinha = Cells(Rows.Count, 1).End(xlUp).Row

    Soma = 0
    For i = 3 To UltLinha
        ValCel = Cells(i, 1).Value
        If Abs(ValCel) > 50 Then
            Soma = Soma + ValCel
        End If
    Next i

    Cells(3, 5).Value = Soma

    End Sub

Exibir Resposta

Download do exercício Download da resposta

SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.

Excel ® é uma marca registrada da Microsoft Corporation.

INTRODUÇÃO

BÁSICO

INTERMEDIÁRIO

AVANÇADO