EXCEL技巧——VBA程式碼實現整錢找零的方法

2019-12-06 05:26:01

在日常生活中我們經常要把整錢變成零錢，你想知道一張10元的鈔票到底有幾種找零的方式嗎，這離我們用EXCEL中VBA程式碼來實現整錢找零的方法，有了它，面對再龐大的鈔票我們也可以從容應對了，現在我們就趕快來試一試吧！

新建一張表格，如圖所示，單擊選單欄「開發工具」——VisualBasic，開啟VBA編輯器，如圖所示。

現在在VBA編輯器中單擊選單欄中「插入」——模組，現在就回開啟程式碼編輯框，如圖所示。

現在我們來輸入程式碼：

Sub 整錢找零()

Dim t As Long '定義t

For j = 0 To 50 '定義j為2角

For k = 0 To 20 '定義k為5角

For l = 0 To 10 '定義l為1元

For m = 0 To 5 '定義m為2元

For n = 0 To 2 '定義n為5元

t2 = 2 * j + 5 * k + 10 * l + 20 * m + 50 * n '定義輸入的整錢面值為t2

If t2 <= 100 Then '如果面值小於等於100元

t = t + 1

i = 100 - t2 '定義i為1角

Sheets(4).Cells(t + 1, 1) = i '第一列顯示「1角」張數

Sheets(4).Cells(t + 1, 2) = j '第二列顯示「2角」張數

Sheets(4).Cells(t + 1, 3) = k '第三列顯示「5角」張數

Sheets(4).Cells(t + 1, 4) = l '第四列顯示「1元」張數

Sheets(4).Cells(t + 1, 5) = m '第五列顯示「2元」張數

Sheets(4).Cells(t + 1, 6) = n '第六列顯示「5元」張數

End If

MsgBox "10元找零共有" & t & "種方法！"

End Sub

在VBA編輯器中，單擊「執行」——執行子程式/使用者表單，在EXCEL表格中可以看到每一種方法。並彈出對話方塊「10元找零共有4562種方法」