EXCEL MACRO Cantidad de Monedas necesarias

[microdr]

Buenas,
Deseo saber como realizar un subprograma que permita realizar el cálculo de monedas necesarias ingresando un monto x . Las monedas disponibles son 1,5,10. Ejemplo, si tengo 34 soles me devolveria 3 x 10 y 4 x 1. El subprograma tiene como parametros el monto y la denominacion.

Conozco como hacerlo con selectivas pero sin usarlas no se como plantearlo.

Muchas gracias por la ayuda,

[judoka]

Iniciado por microdr

Buenas,
Deseo saber como realizar un subprograma que permita realizar el cálculo de monedas necesarias ingresando un monto x . Las monedas disponibles son 1,5,10. Ejemplo, si tengo 34 soles me devolveria 3 x 10 y 4 x 1. El subprograma tiene como parametros el monto y la denominacion.

Conozco como hacerlo con selectivas pero sin usarlas no se como plantearlo.

Muchas gracias por la ayuda,

puedes definir una función como la siguiente :

Function desglose(monto As Double) As String
moneda10 = Int(monto / 10)
moneda5 = Int((monto - moneda10 * 10) / 5)
moneda1 = Int(monto - moneda10 * 10 - moneda5 * 5)
desglose = moneda10 & " x 10; " & moneda5 & " x 5; " & moneda1 & " x 1"
End Function