Este caso consiste en la aplicación de Select Case para determinar el descuento que se otorgará en la próxima compra a un cliente habitual. Dicho cliente cuenta con tarjeta de crédito de la tienda retail y el descuento esta relacionado al monto de su facturación del mes de enero.
Se consideran 4 niveles de facturación:
| MONTO FACTURADO ENERO | DESCUENTO PRÓXIMA COMPRA |
| > S/450 | 40% |
| > S/300 y <= S/450 | 30% |
| > S/150 y <= S/300 | 20% |
| < S/150 | 10% |
Se procede a crear un formulario que contenga los campos: Facturación enero y Descuento próxima compra:
(Para mayor visualización de la imagen, hacer click en la misma)
Para "Facturación enero" se crea una etiqueta y cuadro de texto. Para "Descuento próxima compra" se crea un Botón de comando y un cuadro de texto donde obtendremos el resultado.
A dicho botón se le da doble click para digitar el siguiente código:
Private Sub CommandButton1_Click()
Dim FE As Integer
Dim DPC As Integer
FE = TextBox1.Text
Select Case FE
Case 0 To 150
DPC = 10
Case 151 To 300
DPC = 20
Case 301 To 450
DPC = 30
Case Is > 450
DPC = 40
End Select
TextBox2.Text = DPC
End Sub
(Para mayor visualización de la imagen, hacer click en la misma)
En la hoja 1 creamos un botón de comando Active X que nos permitirá jalar el formulario antes creado, para obtener el descuento que se otorgará al cliente en su próxima compra:
(Para mayor visualización de la imagen, hacer click en la misma)
Luego de darle formato, salimos del modo diseño y damos doble click en el botón para dar la siguiente indicación que permitirá mostrar el formulario:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
De esta manera ya podemos utilizar el formulario.
(Para mayor visualización de la imagen, hacer click en la misma)