EXCEL技巧——VBA代码实现整钱找零的方法-Excel教程

在日常生活中我们经常要把整钱变成零钱，你想知道一张10元的钞票到底有几种找零的方式吗，这离我们用EXCEL中VBA代码来实现整钱找零的方法，有了它，面对再庞大的钞票我们也可以从容应对了，现在我们就赶快来试一试吧！

前期准备工作（包括相关工具或所使用的原料等）

EXCEL软件

详细的操作方法或具体步骤

新建一张表格，如图所示，单击菜单栏“开发工具”——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元”张数

If

Next

Next

Next

Next

Next

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

Sub

在VBA编辑器中，单击“运行”——运行子程序/用户窗体，在EXCEL表格中可以看到每一种方法。并弹出对话框“10元找零共有4562种方法”

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。