计算最佳变更的算法，排序

Question

TL; DR：

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

越深入：

我有一个注册，每天起价175美元。在一天结束时，我的经理必须关闭注册表，这意味着计算存款/小费，并在第二天将注册回到175美元。无论出于何种原因，有些人对此有疑问。我很无聊，想看看我是否能用Excel和VBA为他们找到一个简单的解决方案。

我目前有以下“计划”： 输入字段

1. 更改（注册）
2. $ 1的
3. $ 5'S
4. $ 10片
5. $ 20年代
6. $ 50年代
7. $ 100多个

输出

1美元，5美元，10美元等的金额将进入注册以获得175.00美元

我的想法：

基本上我正在尝试获得一个输出，它会告诉我根据我拥有的内容（输入金额）并将优先级更高优先于1而不是5，我需要将多少面额账单放入注册表中。上。

我只是对如何解决这个问题感到难过。我几年没有编程，而且现在还没有找到我。

一个真实的例子是：

输入

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