《第一章 电子表格专业函数编程》由会员分享，可在线阅读，更多相关《第一章 电子表格专业函数编程（42页珍藏版）》请在金锄头文库上搜索。
1、第一章 电子表格专业函数编程1.1 如何把“度.分秒”角度变成弧度？在Excel 中，自带了大量的商务、办公标准函数，唯独没有把“度.分秒”角度变成“弧度”和将“弧度”转换为“度.分秒”或“ ”这样的专业计算函数。在测绘、工程、科学计算中，这经常是一个无法回避的问题。怎么办？打开Excel，选择“工具”“宏”“Visual Basic编辑器”“帮助”“Visual Basic语言参考”“语句”“A-L” “Function”，就可以详细看到编写函数“Function”的相关语法：Public | Private | Friend Static Function name (arglist) A
2、s typestatementsname = expressionExit Function statementsname = expressionEnd Function Function 语句的语法包含下面部分：部分 描述 Public 可选的。表示所有模块的所有其它过程都可访问这个 Function 过程。如果是在包含 Option Private 的模块中使用，则这个过程在该工程外是不可使用的。 Private 可选的。表示只有包含其声明的模块的其它过程可以访问该 Function 过程。 Friend 可选的。只能在类模块中使用。表示该 Function 过程在整个工程中都是可见的，
3、但对于对象实例的控制者是不可见的。 Static 可选的。表示在调用之间将保留 Function 过程的局部变量值。Static 属性对在该 Function 外声明的变量不会产生影响，即使过程中也使用了这些变量。 name 必需的。Function 的名称；遵循标准的变量命名约定。 arglist 可选的。代表在调用时要传递给 Function 过程的参数变量列表。多个变量应用逗号隔开。 type 可选的。Function 过程的返回值的数据类型，可以是 Byte、 Boolean 、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Da
4、te、String（除定长）、Object、Variant或任何用户定义类型。 statements 可选的。在 Function 过程中执行的任何语句组。 expression 可选的。Function 的返回值。 其中的 arglist 参数的语法以及语法各个部分如下：Optional ByVal | ByRef ParamArray varname( ) As type = defaultvalue部分 描述 Optional 可选的。表示参数不是必需的。如果使用了该选项，则 arglist 中的后续参数都必须是可选的，而且必须都使用 Optional 关键字声明。如果使用了 Param
5、Array，则任何参数都不能使用 Optional 声明。 ByVal 可选的。表示该参数按值传递。 ByRef 可选的。表示该参数按地址传递。ByRef 是 Visual Basic 的缺省选项。 ParamArray 可选的。只用于 arglist 的最后一个参数，指明最后这个参数是一个 Variant 元素的 Optional 数组。使用 ParamArray 关键字可以提供任意数目的参数。ParamArray 关键字不能与 ByVal，ByRef，或 Optional 一起使用。 varname 必需的。代表参数的变量的名称；遵循标准的变量命名约定。 type 可选的。传递给该过程的参
6、数的数据类型；可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持变长）、Object 或 Variant。如果参数不是 Optional，则也可以是用户定义类型，或对象类型。 defaultvalue 可选的。任何常数或常数表达式。只对于 Optional 参数时是合法的。如果类型为 Object，则显式缺省值只能是 Nothing。 说明如果没有使用 Public、Private 或 Friend 显式指定，则 Function 过程缺省为公用。如果没有使用 Static，则
7、局部变量的值在调用之后不会保留。Friend 关键字只能在类模块中使用。但 Friend 过程可以被工程的任何模块中的过程访问。Friend 过程不会在其父类的类型库中出现，且 Friend 过程不能被后期绑定。小心 Function 过程可以是递归的；也就是说，该过程可以调用自己来完成某个特定的任务。不过，递归可能会导致堆栈上溢。通常 Static 关键字和递归的 Function 过程不在一起使用。所有的可执行代码都必须属于某个过程。不能在另外的 Function、Sub 或 Property 过程中定义 Function 过程。Exit Function 语句使执行立即从一个 Funct
8、ion 过程中退出。程序接着从调用该 Function 过程的语句之后的语句执行。在 Function 过程的任何位置都可以有 Exit Function 语句。Function 过程与 Sub 过程的相似之处是： Function 过程是一个可以获取参数，执行一系列语句，以及改变其参数值的独立过程，而与子过程不同的是：当要使用该函数的返回值时，可以在表达式的右边使用 Function 过程，这与内部函数，诸如 Sqr、Cos 或 Chr 的使用方式一样。在表达式中，可以通过使用函数名，并在其后用圆括号给出相应的参数列表来调用一个 Function 过程。请参阅 Call 语句关于如何调用 F
9、unction 过程的详细说明。要从函数返回一个值，只需将该值赋给函数名。在过程的任意位置都可以出现这种赋值。如果没有对 name 赋值，则过程将返回一个缺省值：数值函数返回 0，字符串函数返回一个零长度字符串 ()，Variant 函数则返回Empty。如果在返回对象引用的 Function 过程中没有将对象引用赋给 name （通过 Set），则函数返回 Nothing。下面的示例说明如何给一个名为 BinarySearch 的函数赋返回值。在这个示例中，将 False 赋给了该函数名，表示没有找到某个值。Function BinarySearch(. . .) As Boolean. .
10、 . 值未找到，返回一个 False 值。 If lower upper Then BinarySearch = False Exit Function End If. . .End Function在 Function 过程中使用的变量分为两类：一类是在过程内显式声明的，另一类则不是。在过程内显式声明的变量（使用 Dim 或等效方法）都是局部变量。对于那些没有在过程中显式声明的变量，除非它们在该过程外更高级别的位置有显示地声明，否则也是局部的。小心 过程可以使用没有在过程内显式声明的变量，但只要有任何在模块级别中定义的名称与之相同，就会产生名称冲突。如果过程中使用的未声明的变量与另一个过程，
11、常数，或变量的名称相同，则会认为过程使用的是模块级的名称。显式声明变量就可以避免这类冲突。可以使用 Option Explicit 语句来强制显式声明变量。小心 Visual Basic 可能会重新安排数学表达式以提高内部效率。若 Function 过程会改变某个数学表达式中变量的值，则应避免在此表达式中使用该函数。Function 语句示例该示例使用 Function 语句来声明 Function 过程的名称、参数、以及构成 Function 过程主体的代码。最后一个例子中使用了确定类型的、初始化的 Optional 参数。下面的用户自定义函数返回它的参数的平方根。Function Calc
12、ulateSquareRoot(NumberArg As Double) As Double If NumberArg 0 Then 评估参数。 Exit Function 退出调用过程。 Else CalculateSquareRoot = Sqr(NumberArg) 返回平方根。 End IfEnd Function使用 ParamArray 关键字可以使函数接收数目可变的参数。在下面的定义中，FirstArg 是按值传递的。Function CalcSum(ByVal FirstArg As Integer, ParamArray OtherArgs()Dim ReturnValue
13、如果用如下代码调用该函数：ReturnValue = CalcSum(4, 3 ,2 ,1)则局部变量被赋予以下值：FirstArg = 4，OtherArgs(1) = 3，OtherArgs(2) = 2，等等。假设缺省数组下界 = 1。Optional 参数可以带缺省值，可以是除 Variant 之外的任何类型。如果函数的参数定义如下：Function MyFunc(MyStr As String, Optional MyArg1 As _ Integer = 5, Optional MyArg2 = Dolly) Dim RetVal则可用如下代码调用该函数：RetVal = MyFu
14、nc(Hello, 2, World) 提供了所有 3 个参数。RetVal = MyFunc(Test, , 5) 省略了参数 2。参数 1 和参数 3 使用了命名的参数。RetVal = MyFunc(MyStr:=Hello , MyArg1:=7)*请认真反复学习和理解Function语句的语法和示例。我们的任务是编制自己的专业函数去完成特定的专业计算任务。编制把“度.分秒”角度变成弧度的函数自然是公用的，用于进行通用三角函数的计算，用Public（公用的）声明；参数通过关键字ByVal（通过值）声明，选择按值传递，是因为按值传递，改变过程内部的参数时将不会影响到原来的变量，所以，我们
15、的专业计算函数的编程的一般格式应为： Public Function Rad(ByVal angle As Double) As DoubleDim A As Double, B As Double, C As Double, D As DoubleDim ang As Double, sign As Integerang = Abs(angle) + 0.0000000000001: sign = Sgn(angle)A = Int(ang): B = (ang - A) * 100#: C = Int(B): D = (B - C) * 100#Rad = sign * (A + C / 60# + D / 3600#) * M_RADEnd Function 说明：第1行：表示定义函数名为弧度Rad；参数angle按值传递，数据类型为双精度Double，函数的返回值的数据类型也是Dou
