在 Excel 中创建自定义函数

现在，可以使用新的 DISCOUNT 函数。 关闭 Visual Basic 编辑器，选择单元格 G7，然后键入以下内容：

=DISCOUNT(D7,E7)

Excel 计算 200 个单位的 10% 折扣，每单位 47.50 美元，返回 950.00 美元。

在 VBA 代码的第一行函数 DISCOUNT（数量、价格）中，指示 DISCOUNT 函数需要两个参数：数量 和 价格。 在工作表单元格中调用函数时，必须包含这两个参数。 在公式 =DISCOUNT (D7，E7)，D7 是数量参数，E7 是价格参数。 现在，可以将 DISCOUNT 公式复制到 G8:G13，以获取如下所示的结果。

让我们看看 Excel 是如何执行此函数过程。 按 Enter时，Excel 会在当前工作簿中查找名称 DISCOUNT，并发现它是 VBA 模块中的自定义函数。 括号中的参数名称，数量和价格，是计算折扣所依据值的占位符。

以下代码块中的 If 语句检查数量参数，并确定销售的商品数是大于还是等于 100：

如果销售的商品数大于或等于 100，VBA 将执行以下语句，该语句将数量值乘以价格值，然后将结果乘以 0.1：

Discount = quantity * price * 0.1

结果存储为变量 Discount。 将值存储在变量中的 VBA 语句称为赋值语句，因为它计算等号右侧表达式，并将结果分配给左侧的变量名称。 由于变量 Discount 与函数过程同名，因此存储在变量中的值将返回到名为 DISCOUNT 函数的工作表公式。

如果数量小于 100，VBA 将执行以下语句：

Discount = 0

最后，以下语句将分配给 Discount 变量的值四舍五入到小数点后两位：

Discount = Application.Round(Discount, 2)

VBA 没有 ROUND 函数，但 Excel 有。 因此，若要在此语句中使用 ROUND，告知 VBA 在 Application 对象 （Excel） 中查找 Round 方法（函数）。 为此，在“Round”一词前添加“Application”一词。 每当需要从 VBA 模块访问 Excel 函数时，请使用此语法。