时间:2020-02-10  来源:百度经验  作者:南霸天mxw  阅读:6

在日常生活中我们经常要把整钱变成零钱,你想知道一张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                    Next                Next            Next        Next    Next    MsgBox "10元找零共有" & t & "种方法!"End Sub

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

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

Top