Calculadora de ventas en Excel VBA
A continuación vamos a ver un programa en Excel VBA que calcula el total de ventas de cada empleado durante un período de tres años.
Situación:
Los otros dos hojas tienen la misma configuración, pero con diferentes combinaciones de meses y empleados, y las cifras de ventas diferentes. Hay varias maneras de calcular las ventas totales de cada empleado en Excel, pero vamos a ver que se puede hacer en Excel VBA muy fácilmente.
Coloque un botón de comando en la hoja de trabajo y añadir las líneas de código siguientes:
-
En primer lugar, declaramos tres variables y un objeto de hoja. Una variable de tipo String que llamamos empleado, una variable de tipo entero que llamamos total de, un objeto Hoja de trabajo que llamamos hoja, y una variable de tipo entero que llaman i.
Dim employee As String, total As Integer, sheet As Worksheet, i As Integer
-
inicializar dos variables. Inicializamos la variable total con el valor 0. Utilizamos la función InputBox para obtener el nombre del empleado por parte del usuario.
total = 0
employee = InputBox("Enter the employee name (case sensitive)")
-
Después de que el usuario ha introducido un nombre de empleado, queremos calcular las ventas totales de este empleado. El libro de trabajo consta de tres hojas.
Queremos un programa que aún se pueden utilizar si se añaden hojas en el futuro. Por lo tanto, se utiliza la siguiente línea de código:
For Each sheet In Worksheets
-
Comenzamos otro bucle For Next.
For i = 2 To 13
-
Si el nombre del empleado introducido coincide con el nombre del empleado en la columna B, Excel VBA añade el número de ventas a la variable total. Añadir las siguientes líneas de código:
If sheet.Cells(i, 2).Value = employee Then total = total + sheet.Cells(i, 3).Value End If
-
No se olvide de cerrar ambos bucles.
Next i Next sheet
-
Por último, se muestra el total de ventas del empleado usando un MsgBox.
MsgBox "Total sales of " & employee & " is " & total
Prueba 8. programa.
Resultado David:
