Excel Avanzado

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

Excel Avanzado
Descuento, Ejemplo de Userform para calcular descuentos de dos productos.

Ejemplo de Userform para calcular descuentos de dos productos.

| 2 comentarios

Userform es una herramienta que ayuda al usuario crear una interfaz simple (ventana de windows) en el cual le puede agregar una seria de botones que le ayudaran a realizar operaciones cotidianas de una manera automática reduciendo los tiempos de trabajo.

A continuación se presentara las instrucciones para crear una ventana , la cual necesitara que se escoja el producto y se determine la cantidad a comprar y con esa información  calculara los descuentos y el precio final.

Descuento de dos productos1, Ejemplo de Userform para calcular descuentos de dos productos.

Private Sub CommandButton1_Click()
Dim precioarroz As Double
Dim precioharina As Double
Dim descuentoarroz As Double
Dim descuentoharina As Double

precioarroz = 20.5
precioharina = 18.5
descuentoarroz = 0.15
descuentoharina = 0.25
If OptionButton1.Value = False And OptionButton2.Value = False And Len(TextBox1.Text) = 0 Then
MsgBox "escoger un producto"
Else
If Len(TextBox1.Text) = 0 Then
MsgBox "coloque una cantidad"
Else
If OptionButton1.Value = True Then
TextBox2.Text = TextBox1.Text * precioarroz
Else
TextBox2.Text = TextBox1.Text * precioharina
End If
If OptionButton1.Value = True Then
TextBox3.Text = TextBox2.Text * descuentoarroz
Else
TextBox3.Text = TextBox2.Text * descuentoharina
End If
TextBox4.Text = Val(TextBox2.Text) - Val(TextBox3.Text)
End If
End If
End Sub

Adjunto el archivo de Excel con la macros Ejemplo de Userform para calcular descuentos de dos productos.

Elaborado por: Daniel Cazorla

2 comentarios

Deja una respuesta

Los campos requeridos estan marcados con *.