Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Cálculo de bono por ventas, Cálculo de bono por ventas

Cálculo de bono por ventas

| Sin comentarios

Para el caso se plantea 5 niveles de ventas:

a) > S/. 6000

b) >S/. 4500 y <=S/. 6000

c) > S/. 3000 y <=S/. 4500

d) >  S/. 1500 y <=S/.3000

e)  <  S/. 1500

Luego creamos un formulario con los siguientes controles:

Imagen02 300x197, Cálculo de bono por ventas

(Para mayor visualización de la imagen, hacer click en la misma)

Podemos ademas darle el formato que querramos a nuestro formulario en la ventana propiedades.

Como siguiente paso procedo a dar doble click sobre el control "CommandButton1" o "Bono Obtenido" para construir el codigo correspondiente:

Private Sub CommandButton1_Click()
Dim MV As Integer
Dim bop As Integer

MV = TextBox1.Text

Select Case MV

Case 0 To 1500
bop = 0.1 * MV
Case 1501 To 3000
bop = 0.2 * MV
Case 3001 To 4500
bop = 0.3 * MV
Case 4501 To 6000
bop = 0.4 * MV
Case Is > 6000
bop = 0.5 * MV
End Select
TextBox2.Text = bop

End Sub

A continuación creo el siguiente CommandButton en la hoja abierta:

Imagen003 300x235, Cálculo de bono por ventas

(Para mayor visualización de la imagen, hacer click en la misma)

En modo Diseño, doble click para escribir el codogo que permitirá mostrar el formulario creado anteriormente:

Imagen005 300x142, Cálculo de bono por ventas

(Para mayor visualización de la imagen, hacer click en la misma)

Private Sub CommandButton1_Click()
UserForm.Show
End Sub

Finalmente ya podemos usar este formulario

Imagen006 2 300x143, Cálculo de bono por ventas

(Para mayor visualización de la imagen, hacer click en la misma)

Adjunto archivo excel con el ejemplo expuesto arriba

SELECT-CASE

Deja un comentario

Los campos requeridos estan marcados con *.