Excel Avanzado

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

Excel Avanzado

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

(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

(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

(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

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

Adjunto archivo excel con el ejemplo expuesto arriba

SELECT-CASE

Deja una respuesta

Los campos requeridos estan marcados con *.