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:
(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:
(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:
(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
(Para mayor visualización de la imagen, hacer click en la misma)
Adjunto archivo excel con el ejemplo expuesto arriba