第15课：建立MS Excel 的函数

15.1 建立在MS - Excel里用户定义的函数

MS - Excel拥有VB的程序设计功能。您可以应用VB来创建自己定义的函数，以补充在Microsoft Excel试算表相当有限的内建函数。如果你知道如何设计它的程序，这些函数可以非常有用和强大的。创建用户定义函数的其中一个主要的原因是我们能够定制为个别的需要的试算表环境，。举例来说，我们可能需要一个可以从销售数量的基础上计算佣金支付的函数，这是不简单的。现在我们来看看下面的例子：

在表15.1里，如果销售量达到$ 6000 ，公司将支付佣金 $6000x12 ％ =$720 。以下的Visual Basic函数可用来计算上述的佣金：

Function Comm(Sales_V  As Variant) as Variant   
If Sales_V <500 Then   
Comm=Sales_V*0.03   
Elseif Sales_V>=500 and Sales_V<1000 Then   
Comm=Sales_V*0.06   
Elseif Sales_V>=1000 and Sales_V<2000 Then   
Comm=Sales_V*0.09   
Elseif Sales_V>=200 and Sales_V<5000 Then   
Comm=Sales_V*0.12   
Elseif Sales_V>=5000  Then   
Comm=Sales_V*0.15   
End If   
End Function    
 

15.2 使用Microsoft Excel Visual Basic编辑器

创建用户定义的函数在MS Excel中，您可以按一下工具，选择macro，然后单击Visual Basic编辑器，如图12.1所显示。

 

当您点击Visual Basic编辑器后， VB编辑器的Windows会出现,如图15.2 所示 。在编辑器里，您就可以把以上的函数程式以打字方式键入及存取文件，然后返回到Excel窗口。
　

图 15.2 : VB 编辑器

 

 

在Excel的窗口，首先键入标题，然后在储存格C4键入佣金函数并参照B4的值。它的语法为Comm（ B4）。任何在储存格B4出现的数值将能通过佣金函数在储存格C4里计算佣金 。至于其余的行，只复制公式，通过拖动储存格C4的右下角到所需的储存格，所有的佣金将被自动计算出来。

图15.3:MS Excel 试算表