Ayuda con macro en excel ! Urge
Hola ! Resulta que tengo que entregar un proyecto para informática, el porfe nos mandó a investigar sobre como hacer macros debido a que nos puso a hacer una macro en excel. No se como hacer. Si me pudieras ayudar me serviria mucho ! Te lo agradeceria un monton y con puntos ! Te voy a dejar el pseudocodigo que tengo que ejecutar...
1) Un cliente ordena cierta cantidad de hojas de hielo seco, viguetas y armazones; las hojas de hielo seco tienen 20% de descuento y las viguetas 15%. Los datos que se tienen por cada tipo de artículo son: cantidad pedida y el precio unitario. Además, si se paga de contado todo tiene un descuento del 7% adicional. En último lugar, si la cantidad de hojas de hielo solicitada es mayor que 50, se hace un descuento adicional del 5%; en caso de que sea mayor que 100 el descuento adicional es del 10%.
Elaborar un pseudocódigo que calcule e imprima el costo total de la orden, tanto para el pago de contado como para el pago a crédito.
R//
INICIO
DECLARAR cantidad hs=200
DECLARAR cantidas vtas50
DECLARAR cantidad arma=40
DECLARAR precio hs=1000
DECLARAR precio vtas=2000
DECLARAR precio arma=900
LEER hs,vtas,arma
HACER hsdes=hs*0.80
HACER vtasdes=vtas*0.85
HACER total=hsdes+vtasdes+arma
SI tipopago=contado entonces
Total= total*0.93
FIN SI
SI hs>50 entonces
Total=total*0.95
SI NO si hs>100 entonces
Total=total*0.90
SI NO
Total
FIN SI
IMPRIMIR total
FIN
¿Podrías aclarame que les pidió exactamente en el macro?. Te lo pregunto porque lo que planteas lo puedes hacer con simples fórmulas en Excel sin la necesidad de macros. Confírmame
Hola, Nos pidió ejecutar eso en una macro.
Existe muchas maneras como lo puedes escribir, te escribo una de ellas. Para esto debes agregar un Módulo en el Módulo de programador de Visual para excel y puedes pegar esta función:
Public Function CalculateValue(ByVal QtyHS, _
ByVal QtyV, _
ByVal QtyA, _
ByVal PrecioUHS, _
ByVal PrecioUV, _
ByVal PrecioUA, _
ByVal PagoContado As Boolean) As Double
' HS = Hielo Seco
' V = Viguetas
' A = Armazones
' PagoContado: verdadero para Contado y 0 para pago con crédito.
Dim valor_HS, _
valor_V, _
valor_A, _
Total As Double
'----- Hielo Seco ----------
If QtyHS > 100 Then
' Descuento 10% Adicional + 20% descuento normal
valor_HS = QtyHS * PrecioUHS * (0.7)
ElseIf QtyHS > 50 Then
' Descuento 5% Adicional + 20% descuento normal
valor_HS = QtyHS * PrecioUHS * (0.75)
Else
' 20% descuento normal
valor_HS = QtyHS * PrecioUHS * (0.8)
'----------------------------
End If
If PagoContado = True Then
Total = (valor_HS + (QtyV * PrecioUV * 0.85) + (QtyA * PrecioUA)) * (0.93)
Else
Total = (valor_HS + (QtyV * PrecioUV * 0.85) + (QtyA * PrecioUA))
End If
CalculateValue = Total
End Function
