Calculadora de ventas en Excel VBA

Buenas noches, me llamo Miguel y hoy os traigo un nuevo artículo.

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

Localización:

Calculadora de ventas en Excel VBA

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 de hoja de trabajo. Una variable de tipo String que llamamos empleado, una variable de tipo Integer que llamamos total, un objeto de Worksheet que llamamos sheet y una variable de tipo Integer que llamamos i.

Oscuro empleado Cómo Cuerda, total Cómo Entero, hoja Cómo Hoja de cálculo, me Cómo 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 ("Ingrese el nombre del empleado (distingue entre mayúsculas y minúsculas)")

Ingrese el nombre del empleado

3. Después de que el usuario haya escrito el nombre de un empleado, queremos calcular las ventas totales de ese 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 sale de En Hojas de trabajo

4. Comenzamos otro bucle For Next.

Para i = 2 Para 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:

sheet.Cells (i, 2) .Value = empleado Entonces

total = total + hoja.Células (i, 3) .Valor
Aleta

6. No olvide cerrar ambos bucles.

Entonces me
Entonces sale de

7. Finalmente, mostramos las ventas totales del empleado usando un msgbox.

MsgBox "Ventas totales de" & empleado & "es" & total

8. Pruebe el programa.

Resultados para David:

Resultado de la calculadora de ventas

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info