Ejemplo de Userform para calcular descuentos de dos productos.

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.

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