A continuación, veremos un programa en Excel VBA ese 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.
Atenuar empleado como cadena, total como entero, hoja como hoja de trabajo, i como entero
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
empleado = InputBox ("Ingrese el nombre del empleado (distingue entre mayúsculas y minúsculas)")
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:
Para cada hoja en hojas de trabajo
4. Comenzamos otro ciclo For Next.
Para i = 2 a 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:
Si sheet.Cells (i, 2) .Value = employee Entonces
total = total + hoja.Células (i, 3) .Valor
Terminara si
6. No olvide cerrar ambos bucles.
Siguiente yo
Siguiente hoja
7. Finalmente, mostramos las ventas totales del empleado usando un cuadro de mensajes.
MsgBox "Ventas totales de" & empleado & "es" & total
8. Pruebe el programa.
Resultado para David:
