Excel Avanzado

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

Excel Avanzado

Select case: Descuento Próxima Compra

| 0 comments

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:

Select case _descuento1

(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

Select case _descuento2

(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:

Select case _descuento3

(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.

Select case _descuento4

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

SELECT CASE_Descuento Próxima Compra

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5