手把手教你学VBA之

1、首先，新建一个excel，打开后，按"Alt + F11"，调出 visual basic 窗口；

2、在visual basic窗口中点击"插入"-"模块"，准备编程；

得到以下界面：

3、100元换成零钱，有1元，5元，10元，20元，50元这些面值零钱，组合后统计所有的可能；

4、编程，用"For"循环

5、代码如下：

Sub 换零钱()

Dim t As Integer

Sheets(1).Cells(1, 1) = 1 & "元"

Sheets(1).Cells(1, 2) = 5 & "元"

Sheets(1).Cells(1, 3) = 10 & "元"

Sheets(1).Cells(1, 4) = 20 & "元"

Sheets(1).Cells(1, 5) = 50 & "元"

For i = 0 To 100

For j = 0 To 20

For k = 0 To 10

For l = 0 To 5

For m = 0 To 2

If i + j * 5 + k * 10 + l * 20 + m * 50 = 100 Then

t = t + 1

Sheets(1).Cells(t + 1, 1) = i

Sheets(1).Cells(t + 1, 2) = j

Sheets(1).Cells(t + 1, 3) = k

Sheets(1).Cells(t + 1, 4) = l

Sheets(1).Cells(t + 1, 5) = m

End If

Next

Next

Next

Next

Next

MsgBox "100元换零钱共有:" & t & "种方法"

End Sub

得到结果：

7、点击"保存"后出现以下窗口，选择"否"；

弹出下面窗口，选择"启用宏的工作簿(*xlsm)"保存；

点击确定后，保存结束。

这样，一个100元换零钱的小程序就写好了。