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

1、   新建一张表格，如图所示，单击菜单栏“开发工具”——VisualBasic，打开VBA编辑器，如图所示。

2、   现在在VBA编辑器中单击菜单栏中“插入”——模块，现在就回打开代码编辑框，如图所示。

3、   现在我们来输入代码：

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

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