Calculadora de ventas en Excel VBA

A continuación, veremos un programa en Excel VBA que calcula las ventas totales de cada empleado durante un período de tres años.

Situación:

Las otras dos hojas tienen la misma configuración, pero con diferentes combinaciones de meses y empleados, y diferentes números de ventas. Hay varias formas de calcular las ventas totales de cada empleado en Excel, pero veremos que se puede hacer en Excel VBA de forma muy sencilla.

Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:

1. Primero, declaramos tres variables y un objeto Hoja de trabajo. Una variable de tipo String que llamamos empleado, una variable de tipo Integer que llamamos total, un objeto Worksheet que llamamos hoja y una variable de tipo Integer que llamamos i.

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

2. Inicializamos dos variables. Inicializamos la variable total con valor 0. Usamos la función InputBox para obtener el nombre del empleado del usuario.

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

3. Después de que el usuario haya ingresado el nombre de un empleado, queremos calcular las ventas totales de este empleado. El libro de trabajo consta de tres hojas. Queremos un programa que aún se pueda usar si se agregan hojas en el futuro. Por lo tanto, usamos la siguiente línea de código:

For Each sheet In Worksheets

4. Comenzamos otro ciclo For Next.

For i = 2 To 13

5. Si el nombre del empleado ingresado coincide con el nombre del empleado en la columna B, Excel VBA agrega el número de ventas al total variable. Agregue las siguientes líneas de código:

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

6. No olvide cerrar ambos bucles.

      Next i
Next sheet

7. Finalmente, mostramos las ventas totales del empleado usando un cuadro de mensaje.

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

8. Pruebe el programa.

Resultado para David:

5/8 Completado! Más información sobre libros y hojas>
Capítulo siguiente: Objeto de rango