在VBA中，自定义函数实例应用（1）

1、如图所示，函数staddress就是我们自定义的函数！下面我们看一下如何编写代码的？

3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

5、在代码编辑窗口输入以下代码：Function staddress(选择区域 As Range, 引用方式 As Integer)If 引用方式 = 1 Then st锾攒揉敫address = 选择区域.Address(1, 1)ElseIf 引用方式 = 2 Then staddress = 选择区域.Address(0, 0)End IfEnd Function

7、用鼠标选择区域，在引用方式中输入“1”。