vba function和sub的区别 vba和函数

了解VBA与Excel内置的函数，能够使我们处理起任务来事半功倍。这些函数不仅使用方便，而且效率一般都比较高(有些是例外的，特别是某些工作表函数)，比我们自己写的要高效的多。

1. VBA内置的函数
   VBA内置函数是VBA种可以直接使用的函数，很多处理函数也相当有用。
   调用方式：直接使用函数，或者使用VBA调用。例如Shell()或者VBA.Shell()。
   VBA内置的函数主要涉及以下几类：
   测试类函数：
   IsNumeric(x) - 是否为数字, 返回Boolean结果。
   IsDate(x) - 是否是日期, 返回Boolean结果。
   IsEmpty（x） - 是否为Empty, 返回Boolean结果。
   IsArray(x) - 指出变量是否为一个数组。
   IsError(expression) - 指出表达式是否为一个错误值。
   IsNull(expression) - 指出表达式是否不包含任何有效数据 (Null)。
   IsObject(identifier) - 指出标识符是否表示对象变量。
   数学函数：
   Sin(X)、Cos(X)、Tan(X)、Atan(x) - 三角函数，单位为弧度。
   Log(x)、Exp(x) - 返回x的自然对数，指数。
   Abs(x) - 返回x的绝对值。
   Int(number)、Fix(number) - 都返回参数的整数部分，区别：Int 将 -8.4 转换成 -9，而 Fix 将-8.4 转换成 -8。
   Sgn(number) - 返回一个 Variant (Integer)，指出参数的正负号。
   Sqr(number) - 返回一个 Double，指定参数的平方根。
   VarType(varname) - 返回一个 Integer，指出变量的子类型。
   Rnd(x) - 返回0-1之间的单精度数据，x为随机种子。
   Round(x,y) - 把x四舍五入得到保留y位小数的值。
   字符串函数：
   Trim(string)、Ltrim(string)、Rtrim(string) - 去掉string左右两端空白，左边的空白，右边的空白。
   Len(string) - 计算string长度
   Replace(expression,find,replace) - 替换字符串。
   Left(string, x)、Right(string, x)、Mid(string, start,x) - 取string左/右/指定段x个字符组成的字符串
   Ucase(string)、Lcase(string) - 转换字符串为大、小写
   Space(x) - 返回x个空白的字符串
   Asc(string) - 返回一个 integer，代表字符串中首字母的字符代码
   Chr(charcode) - 返回 string，其中包含有与指定的字符代码相关的字符
   InStr() - 返回一个字符串在另外一个字符串中的位置，返回值为Variant(Long)型。
   转换函数：
   CBool(expression) - 转换为Boolean型
   CByte(expression) - 转换为Byte型
   CCur(expression) - 转换为Currency型
   CDate(expression) - 转换为Date型
   CDbl(expression) - 转换为Double型
   CDec(expression) - 转换为Decemal型
   CInt(expression) - 转换为Integer型
   CLng(expression) - 转换为Long型
   CSng(expression) - 转换为Single型
   CStr(expression) - 转换为String型
   CVar(expression) - 转换为Variant型
   Val(string) - 转换为数据型
   Str(number) - 转换为String
   时间函数：
   Now、Date、Time - 返回一个 Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间。
   Timer - 返回一个 Single，代表从午夜开始到现在经过的秒数。
   TimeSerial(hour, minute, second) - 返回一个 Variant (Date)，包含具有具体时、分、秒的时间。
   DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) - 返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
   Second(time) - 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一分钟之中的某个秒。
   Minute(time) - 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一小时中的某分钟。
   Hour(time) - 返回一个 Variant (Integer)，其值为 0 到 23 之间的整数，表示一天之中的某一钟点。
   Day(date) - 返回一个 Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日
   Month(date) - 返回一个 Variant (Integer)，其值为 1 到 12 之间的整数，表示一年中的某月。
   Year(date) - 返回 Variant (Integer)，包含表示年份的整数。
   Weekday(date, [firstdayofweek]) - 返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。
   其它常用函数：
   Shell - 运行一个可执行的程序。
   InputBox - 这个太熟悉了，简单输入对话框。这个需要注意与Application.InputBox(更强大，内置容错处理，选择取消后返回false)区分，而这个函数不含有容错处理，而且选择取消后返回空串(零个字节的字符串)。
   MsgBox - 这个更不用说了，简单信息显示对话框，其实也是一种简单的输入手段。
   Join - 连接数组成字符串。
   Split - 拆分字符串成数组。
   RGB - 返回指定R、G、B分量的颜色数值。
   Dir - 查找文件或者文件夹。
   IIF(expression, truePart, falsePart) - IF语句的“简化版本”(比喻，当然并不一样)；expression为true的话返回truePart，否则返回falseParth。
   Choose(index, choice1,...choiceN) - 选择指定Index的表达式，Index可选范围是1到选项的总数。
   Switch(exp1,value1,exp2,value2,...expN,valueN) - 从左至右计算每个exp的值，返回首先为true的表达式对应的value部分。如果所有的exp值都不为true，则返回Null。注意虽然只返回一个部分，但是这里所有的表达式exp1到expN都是要被计算的，实际使用中要注意这个副作用。
2. WorksheetFunction工作表函数
   WorksheetFunction工作表函数是Excel内置的处理函数，计算功能相当强大。
   调用方式：Application.WorksheetFunction或者直接WorksheetFunction。例如Application.WorksheetFunction.Max()或者WorksheetFunction.Max()。
   VBA内置的函数是用于处理程序数据的，是为VB语言服务的，所有VBA宿主环境都可以使用这些内置的功能。但是对于Worksheet中的对象，似乎这些通用的函数并不能提供最佳的实践。所以针对Sheet，又存在另外一套相关的处理函数，虽然它们与VBA中的某些函数作用是一样的，但是从“工作表函数”这个名字上就可以看出，对于工作表中的对象的所有操作，比如对单元格求和，求单元格中最大值等，使用工作表函数必将具有先天的优势(当然了，工作表函数基本上都是可以在Excel单元格中直接输入“=”然后就可以使用的)。虽然从实际的操作中，我们可能发现，使用内置的工作表函数并不一定是最快，最高效的，但无疑是最直接，最省事的。
   这里简单总结一下常用的几类函数。全部的函数说明参见文末的MSDN链接。
   数学函数类：
   BesselI(贝塞尔函数) BesselJ BesselK BesselY Power（指数） Log(对数，还有以不同) In(自然对数) Fact(阶乘) FactDouble(半数阶乘，意思就是偶数的只计算偶数阶乘，奇数的只奇数奇数阶乘) PI(圆周率)
   弦值计算类：
   Acos Acosh Asin Asinh Atan2 Atanh Cosh Sinh Tanh
   数制转换类：
   Bin2Dec Bin2Hex Bin2Oct Dec2Bin Dec2Hex Dec2Oct Hex2Bin Hex2Dec Hex2Oct Oct2Bin Oct2Dec Oct2Hex Degrees与Radians(弧度角度互换).
   数值处理类：
   Ceiling(arg1,arg2) - 数值舍入处理，把arg1舍入处理成arg2的最接近的倍数(大于等于传入的参数)。
   Floor(arg1,arg2) - 数值舍入处理，把arg1舍入处理成arg2的最接近的倍数(小于等于传入的参数)。
   Round - 按指定的位数四舍五入，返回类型是Double。
   MRound - 按指定位数四舍五入，参数是Variant，返回类型是Double.
   RoundDown - 舍去指定位数后面的小数，总是小于等于传入的参数，其它的基本同Round。
   RoundUp - 舍去指定位数后的小数总是进1，总是大于等于传入的参数，其它的基本同Round。
   Fixed - 按指定的位数四舍五入，返回类型是String，可以指定显示不显示逗号(第三个参数决定，False则显示逗号，True则不显示逗号).
   Odd - 返回比参数大的最接近的奇数。
   Even - 返回比参数大的最接近的偶数。
   数值运算类：
   Average AverageIf AverageIfs Max Min Large Small Sum SumIf SumIfs SumProduct SumSq SumX2MY2 SumX2MY2 SumX2PY2 SumXMY2 Count CountA CountBlank CountIf CountIfs
   Frequency - 计算第二个数组的每个元素在第一个数组中出现的次数，返回一个与第二个数组同长的一个数组。一般参数和返回值都是Range。
   Lcm - 计算数值的最小公倍数。
   Product - 返回所有参数的乘积。
   Quotient - 返回两个数整除的值，忽略余数。
   逻辑判断类：
   And - 如果所有参数都为True，则返回True；只要有一个返回False，则返回False。
   Or - 如果所有参数都为False，则返回False；只要有一个返回True,则返回True。
   IsErr - 检查是不是除了#N/A外的错误值.
   IsError - 检查是不是错误值(#N/A, #VALUE!, #REF!, #DIV/0!, #NUM!, #NAME?,或者 #NULL!).
   IsEven - 检查是否是偶数.
   IsOdd - 检查是否是奇数.
   IsLogical - 检查是不是布尔值.
   IsNA - 检查值是否是错误值#N/A（值不可用）。
   IsNonText - 检查是否是非文本(空的单元格返回true)。
   IsNumber - 检查是不是数字。
   IsText - 一般用于判断单元格中内容是否是文本。
   Delta - 判断两个Variant的值是否相等，相等则返回1，否则返回0。
   数据操作类：
   Choose - 返回第一个参数Index指定的值. 与VBA内置的函数Choose有类似的功能。
   Asc - 把双字节字符变成单字节字符。
   Lookup,VLookup,HLookup - 查找单元格数组中与给定值相同的值，文本等等。
   Match - 查找并返回单元格数组中与指定值相同的单元格的相对Index值。
   Find,FindB,Search,SearchB - 返回第一个字符串在第二个字符串中的位置(位置是从1开始的，不是基于0的)。
   Replace,ReplaceB - 字符串替换，可以指定开始的位置以替换的字符数，控制更为精细。
   Substitute - 直接进行字符串替换，不需要指定开始位置，可控性差，但是使用简单。
   Rept - 按照指定次数的重复构造字符串并返回。
   Text - 按照一定的格式把值转换成文本。
   Index - 一般用于返回一组单元格中某块区域中某行某列的值。
   Median - 计算一个Double的数值，这个数值将参数分为相同数目两组，一组比这个值大，一组比这个值小。这个值可能正好出现在参数中，也可能不出现在这些参数中。
   Mode - 返回传入的数组，或一组值中出现次数最多的值.
   Prope - 格式化字符串中的每个单词，把首字母转成大写，其它的转成小写。
   RandBetween - 返回介于两个数之间的随机数，返回值为Double型。
   Rank- 返回指定的数在一个Range对象值中排过序后的位置(可以用第三个参数指定按降序或升序排，默认是降序)，比如单元格d1到d4的值为(1,4,3,4)，那么4的Rank值就是1(忽略第三个参数是按降序找第一个匹配，然后返回位置)。
   Transpose - 把一个数组的行列互换，这个方法主要是针对单元格的，所以数组的长度(<65535)，和每个元素的长度(<255)都有限制。如果这个方法由于这些因素失败了，可以尝试一下这个方案：http://club.excelhome.net/thread-583046-1-1.html。 Trim - 移除单词之间多余的空格，只保留一个；字符串开头和结尾的空格也会全部移除。
   Weekday - 返回指定日期是星期几，用Double值表示，范围默认是从1 (Sunday)到7(Saturday)。
   WeekNum - 返回指定日期是一年中的第几周。
   基本上以Variant为参数的函数都是可以直接传入单元格的。
   以B结尾的函数代表是推荐使用于双字节的字符语言的，比如汉子，日语等。不以B结尾的函数代表的是推荐使用于单字节字符语言的，例如英语，德语等。 对于不同的语言，这2个函数返回的结果可能是有差异的。
   加上前缀“D”的函数是特别针对Range对象或数据库数据的相关数学运算，例如DMax，DMin，DCount，DSum。
   除了这些常用的函数，工作表函数还包含了相当多的高级数学计算函数，比如矩阵，方差，分布，统计,利率，虚数计算相关的函数，具体需要使用的时候查阅MSDN就可以了。
   在MSDN上，很多函数的很多参数是必须的，但是使用的时候，编译器的提示是说这些参数不是必须的，这个时候以编译器为准。谨记，实践是检验真理的唯一标准。
   基本上，如果参数是需要传入一组数的函数，都可以传入一个数组或单元格。
   实际学习过程中，我是先了解这些内置的函数能干什么，但并不太关注细节；等实际使用的时候，才会找到需要的函数，匹配实现细节的。
   全部的函数说明参见下面的MSDN链接：http://msdn.microsoft.com/en-us/library/bb259450(v=office.12).aspx 或者是http://msdn.microsoft.com/en-us/library/bb225774(v=office.12).aspx
    
   VBA中不能直接调用Excel工作表中的一些函数，如果调用就需采用Application.WorksheetFunction.函数名(参数...)的形式。
   以SUM求和为例，SUM求和语法和工作表中一样，但不能直接用SUM(A1:A20),要用VBA的表示方法 SUM(RANGE("A1:A20"))。
   另外说明下，不是每个函数前都要加Application.WorksheetFunction.，如果单个调用必须加，如果多个调用就可以用WITH语句省去后面的。
   单个调用情况：
   Sub 矩形1_单击()
   Dim x As Integer
   For x = 1 To 20
   Sheets("sheet1").Cells(x, 1) = x
   Sheets("sheet1").Cells(x, 2) = x + 1
   Sheets("sheet1").Cells(x, 3) = Cells(x, 1) * 3 + Cells(x, 2) * 4
   Next
   Range("C21").Value = Application.WorksheetFunction.Sum(Range("C1:C20"))
   End Sub
   多个调用情况：
   Sub 矩形1_单击()
   Dim x As Integer
   For x = 1 To 20
   Sheets("sheet1").Cells(x, 1) = x
   Sheets("sheet1").Cells(x, 2) = x + 1
   Sheets("sheet1").Cells(x, 3) = Cells(x, 1) * 3 + Cells(x, 2) * 4
   Next
   With Application.WorksheetFunction
   Range("A21").Value = .Sum(Range("A1:A20"))
   Range("A22").Value = .Average(Range("A1:A20"))
   End With
   End Sub
   注意.Sum和.Average前要有一个英文实心点“.”。
   补充说明：
   Application.WorksheetFunction.函数名(参数...)
   还可省略写成
   WorksheetFunction.函数名(参数...)
   或
   Application.函数名(参数...)
   另外，有部分Excel函数是不可以在VBA内引用的, 如 trunc, numberstring,…
   再者，数组函数的调用不适用此方法。