Vamos imaginar que você tem uma tabela de vendas em Excel e deseja criar um código VBA para calcular o total de vendas de um determinado produto. Neste exemplo, a tabela tem as seguintes colunas: - Produto (A) - Quantidade (B) - Preço Unitário (C) - Total (D)
Abaixo está o código VBA para calcular o total de vendas para o produto "Smartphone": ``` Sub calcularTotalSmartphone()
' Definir variáveis Dim linha As Integer Dim quantidade As Integer Dim precoUnitario As Double Dim totalVendas As Double
' Inicializar valores linha = 2 ' começa na segunda linha, pois a primeira é o cabeçalho totalVendas = 0
' Loop para percorrer todas as linhas da tabela Do While Not IsEmpty(Range("A" & linha)) ' verifica se a célula da coluna A está vaziaIf Range("A" & linha) = "Smartphone" Then ' verifica se o produto na coluna A é "Smartphone" quantidade = Range("B" & linha) precoUnitario = Range("C" & linha) totalVendas = totalVendas + (quantidade * precoUnitario) ' calcula o total de vendas para esta linhaEnd Iflinha = linha + 1 ' avança para a próxima linha Loop
' Mostra o resultado na célula D1 Range("D1") = "Total de vendas para Smartphone: R$ " & totalVendas
End Sub ```
Para executar este código, basta abrir o editor VBA (com o atalho Alt + F11), copiar e colar o código acima, e depois pressionar F5 ou clicar em "Executar" na barra de ferramentas. O resultado será exibido na célula D1 da planilha que estiver ativa. Se você alterar os valores na tabela, basta executar novamente o código para obter o novo resultado.