计算最佳变更的algorithm,sorting

TL; DR:

我试图在VBA中编写一个非常基本的macros来计算达到某个总数的最佳货币量。 最简单的方法,我可以解释我的问题。


更深入的:

我有一个每天从175美元起步的registry。 在一天结束的时候,我的经理们必须closuresregistry,这意味着计入存款/提示,并在第二天将registry重新设置为175美元。 不pipe出于什么原因,有些人会有这个问题 我很无聊,想看看我能否用Excel和VBAfind一个简单的解决scheme。

我目前有这样的“计划”: input字段

  1. 更改(在注册中)
  2. $ 1'S
  3. $ 5'S
  4. $ 10片
  5. $ 20个年代
  6. $ 50个年代
  7. $ 100多个

产量

1,5,10等的金额要注册才能达到$ 175.00


我的想法:

本质上,我试图得到一个输出,告诉我根据我所拥有的(input数量),我需要把每个面额法案中有多less放到寄存器中,并给予比5更多的优先级,依此类推。

我只是难以理解如何解决这个问题。 几年来我一直没有编程,现在只是没有到我这里来。

一个实际的例子是:

input

Change = $11.00 $1's = $33.00 $5's = $20.00 $10's = $10.00 $20's = $300.00 $50's = $100.00 $100's = $0.00 

产量

 $1's = $29.00 $5's = $15.00 $10's = $0.00 $20's = $120.00 

我的代码到目前为止:

 Private Sub CalculateButton_Click() 'Assigning Variables Dim cha As Currency Dim A1 As Currency Dim A5 As Currency Dim A10 As Currency Dim A20 As Currency Dim A50 As Currency Dim A100 As Currency 'Setting Variables values cha = Range("b5").Value A1 = Range("b6").Value A5 = Range("b7").Value A10 = Range("b8").Value A20 = Range("b9").Value A50 = Range("b10").Value A100 = Range("b11").Value End Sub