Excel VBA高效办公应用-第八章-商品销售决策与分析-Part2 （商品分期付款决策）

今日彩蛋：模拟运算表（Data Table）

"模拟运算表是一个单元格区域，它可显示一个或多个公式中替换不同值时的结果。有两种类型的模拟运算表：单输入模拟运算表和双输入模拟运算表。单输入模拟运算表中，用户可以对一个变量键入不同的值从而查看它对一个或多个公式的影响。双输入模拟运算表中，用户对两个变量输入不同值，而查看它对一个公式的影响"

知道为什么以前没用过这玩意了，其实可以通过拖动复制公式来完成这个任务。

代码如下：

Public Sub 分期付款决策()
    '选择“分期付款计算”工作表
    Sheets("分期付款计算").Select
    '计算商品的首付金额，为价格的20%
    Cells(10, 1) = Cells(4, 1) * Cells(7, 1)
    '计算年限为1年的每月付款
    Cells(3, 3) = "=PMT(A13/12,B3*12,A10-A4)"
    '计算年限为1年的回款总额
    Cells(3, 4) = "=FV(A13/12,A16,-C3,-A10)"
    '选择B3:D17单元格区域
    Range("B3:D17").Select
    '使用“模拟运算表”工具运算
    Selection.Table ColumnInput:=Range("B3")
End Sub