A continuación veremos un programa en Excel VBA que calcula las ventas totales de cada empleado en 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 maneras de calcular las ventas totales de cada empleado en Excel, pero veremos que se puede hacer en Excel VBA muy fácilmente.
Coloca un botón de comando en tu hoja de trabajo y añade las siguientes líneas de código:
1. Primero, declaramos tres variables y un objeto de la hoja de cálculo. 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 empleado como cadena, total como entero, hoja como hoja de trabajo, i como entero
2. Inicializamos dos variables. Inicializamos la variable total con el valor 0. Usamos la función InputBox para obtener el nombre del empleado del usuario.
total = 0 empleado = InputBox(«Introduzca el nombre del empleado (distingue entre mayúsculas y minúsculas)»)
3. Después de que el usuario haya introducido el nombre de un empleado, queremos calcular las ventas totales de este empleado. El libro de trabajo consiste en tres hojas. Queremos un programa que pueda ser utilizado si se añaden hojas en el futuro. Por lo tanto, usamos la siguiente línea de código:
Para cada hoja en las hojas de trabajo
4. Empezamos otro bucle de «For Next».
Para i = 2 a 13
5. 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 al total de la variable. Añade las siguientes líneas de código:
Si hoja.Celdas(i, 2).Valor = empleado Entonces total = total + hoja.Células(i, 3).Valor Finalizar si
6. No te olvides de cerrar los dos bucles.
Siguiente… Próxima hoja
7. Finalmente, mostramos las ventas totales del empleado usando un msgbox.
MsgBox «Ventas totales de » & empleado & » es » & total
8. Pruebe el programa.
Resultado para David:
