/ / Calculadora de vendas no Excel VBA

Calculadora de vendas no Excel VBA

Abaixo, vamos olhar para um programa em Excel VBA naquela calcula o total de vendas de cada empregado durante um período de três anos.

Situação:

Calculadora de vendas no Excel VBA

As outras duas folhas têm a mesma configuração, mascom diferentes combinações de meses e funcionários, e diferentes números de vendas. Existem várias maneiras de calcular o total de vendas de cada funcionário no Excel, mas veremos que isso pode ser feito no Excel VBA com muita facilidade.

Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:

1 Primeiro, declaramos três variáveis ​​e um objeto de planilha. Uma variável do tipo String chamamos employee, uma variável do tipo Integer chamamos total, um objeto Worksheet que chamamos de sheet e uma variável do tipo Integer que chamamos de i.

Dim employee As String, total As Integer, sheet As Worksheet, i As Integer

2. Inicializamos duas variáveis. Inicializamos o total da variável com o valor 0. Usamos a função InputBox para obter o nome do funcionário do usuário.

total = 0
employee = InputBox("Enter the employee name (case sensitive)")

Digite o nome do empregado

3 Depois que o usuário inserir um nome de funcionário, queremos calcular o total de vendas desse funcionário. A pasta de trabalho consiste em três folhas. Queremos um programa que ainda possa ser usado se as folhas forem adicionadas no futuro. Portanto, usamos a seguinte linha de código:

For Each sheet In Worksheets

4. Começamos outro ciclo For Next.

For i = 2 To 13

5. Se o nome do funcionário inserido corresponder ao nome do funcionário na coluna B, o Excel VBA adicionará o número de vendas ao total da variável. Adicione as seguintes linhas de código:

If sheet.Cells(i, 2).Value = employee Then
    total = total + sheet.Cells(i, 3).Value
End If

6. Não se esqueça de fechar os dois loops.

    Next i
Next sheet

7. Por fim, exibimos as vendas totais do funcionário usando um msgbox.

MsgBox "Total sales of " & employee & " is " & total

8. Teste o programa.

Resultado para David:

Resultado da calculadora de vendas

Leia também: