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
2 comentarios
Escriba un comentario →