按键精灵函数介绍

1、.按字母顺序排列: a = abs 函数 返回参数的绝对值，其类型和参数相同。 语法 abs(number) 必要的 number 参数是任何有效的数值表达式，如果 number 包含 null，则返回 null，如果 number 是未初始化的变量，则返回 0。 说明 一个数的绝对值是将正负号去掉以后的值。例如，abs(-1) 和 abs(1) 都返回 1。 - abs 函数示例 本示例使用 abs 函数计算数的绝对值。 dim mynumber mynumber = abs(50.3) 返回 50.3。 mynumber = abs(-50.3) 返回 50.3。 = array 函数 返

2、回一个包含数组的 variant。 语法 array(arglist) 所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。 说明 用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个 variant 的变量 a。 第二条语句将一个数组赋给变量 a。最后一条语句将该数组的第二个元素的值赋给另一个变量。 dim a a = array(10,20,30) b = a(2) 使用 array 函数创建的数组的下界受 option base 语句

3、指定的下界的决定, 除非 array 是由类型库（例如 vba.array )名称限定。如果是由 类型库名称限定，则 array 不受 option base 的影响。 注意 没有作为数组声明的 variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，variant 变量可以表示任何类型的数组 。尽管一个包含数组的 variant 和一个元素为 variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。 - array 函数示例 该示例使用 array 函数来返回一个包含 variant 的数组。 dim myweek, myday myweek = arr

4、ay(mon, tue, wed, thu, fri, sat, sun) 返回值假设下界的设置为 1（使用 option base 语句）。 myday = myweek(2) myday 的值为 tue。 myday = myweek(4) myday 的值为 thu。 = asc 函数 返回一个 integer，代表字符串中首字母的字符代码。 语法 asc(string) 必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。 说明 在非 dbcs 系统下，返回值范围为 0 255 。在 dbcs 系统下，则为 -32768

5、32767。 注意 ascb 函数作用于包含在字符串中的字节数据，ascb 返回第一个字节的字符代码，而非字符的字符代码。ascw 函数返回 unicode 字 符代码，若平台不支持 unicode，则与 asc 函数功能相同。 - asc 函数示例 本示例使用 asc 函数返回字符串首字母的字符值（ascii 值）。 dim mynumber mynumber = asc(a) 返回 65。 mynumber = asc(a) 返回 97。 mynumber = asc(apple) 返回 65。 = atn 函数 返回一个 double，指定一个数的反正切值。 语法 atn(number)

6、 必要的 number 参数是一个 double或任何有效的数值表达式。 说明 atn 函数的参数值 (number) 为直角三角形两边的比值并返回以弧度为单位的角。这个比值是角的对边长度除以角的邻边长度之商。 值的范围在 -pi/2 和 pi/2 弧度之间。 为了将角度转换为弧度，请将角度乘以 pi/180。为了将弧度转换为角度，请将弧度乘以 180/pi。 注意 atn 是 tan 的反三角函数，tan 的参数值为角度，返回直角三角形的两条边的比值。不要将 atn 和余切函数混淆，余切函数值是正切 函数值的倒数，cotangent = (1/tangent)。 - atn 函数示例 本示例

7、使用 atn 函数计算圆周率。 dim pi pi = 4 * atn(1) 计算圆周率。按字母顺序排列: c = cbool 函数 描述 返回表达式，此表达式已转换为 boolean 子类型的 variant。 语法 cbool(expression) expression 是任意有效的表达式。 说明 如果 expression 是零，则返回 false；否则返回 true。如果 expression 不能解释为数值，则将发生运行时错误。 下面的示例使用 cbool 函数将一个表达式转变成 boolean 类型。如果表达式所计算的值非零，则 cbool 函数返回 true；否则返回 fals

8、e。 - 示例: dim a, b, check a = 5: b = 5 初始化变量。 check = cbool(a = b) 复选框设为 true 。 a = 0 定义变量。 check = cbool(a) 复选框设为 false 。 = cbyte 函数 描述 返回表达式，此表达式已被转换为 byte 子类型的 variant。 语法 cbyte(expression) expression 参数是任意有效的表达式。 说明 通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，在出现货币、单精度、双精度或整数运算的情况下，使用 cb

9、yte 强制执行字节运算。 cbyte 函数用于进行从其他数据类型到 byte 子类型的的国际公认的格式转换。例如对十进制分隔符（如千分符）的识别，可能取决于系统的区域设置。 如果 expression 在 byte 子类型可接受的范围之外，则发生错误。下面的示例利用 cbyte 函数把 expression 转换为 byte: - 示例: dim mydouble, mybyte mydouble = 125.5678 mydouble 是一个双精度值。 mybyte = cbyte(mydouble) mybyte 包含 126 。 = ccur 函数 描述 返回表达式，此表达式已被转换为

10、 currency 子类型的 variant。 语法 ccur(expression) expression 参数是任意有效的表达式。 说明 通常，您可以使用子类型数据转换函数书写代码，以显示某些操作的结果应当被表达为特定的数据类型，而非默认的数据类型。例如在整数运算的情况下，使用 ccur 函数强制进行货币计算。 ccur 函数用于进行从其他数据类型到 currency 子类型的国际公认的格式转换。例如，对十进制分隔符和千位分隔符的识别取决于系统的区域设置。 下面的示例使用 ccur 函数将一个表达式转换成 currency 类型: - 示例: dim mydouble, mycurr my

11、double = 543.214588 mydouble 是双精度的。 mycurr = ccur(mydouble * 2) 把 mydouble * 2 (1086.429176) 的结果转换为 currency (1086.4292)。 = cdate 函数 描述 返回表达式，此表达式已被转换为 date 子类型的 variant。 语法 cdate(date) date 参数是任意有效的日期表达式。 说明 isdate 函数用于判断 date 是否可以被转换为日期或时间。cdate 识别日期文字和时间文字，以及一些在可接受的日期范围内的数字。在将数字转换为日期时，数字的整数部分被转换为

12、日期，分数部分被转换为从午夜开始计算的时间。 cdate 根据系统的区域设置识别日期格式。如果数据的格式不能被日期设置识别，则不能判断年、月、日的正确顺序。另外，如果长日期格式包含表示星期几的字符串，则不能被识别。 下面的示例使用 cdate 函数将字符串转换成日期类型。一般不推荐使用硬件译码日期和时间作为字符串（下面的例子已体现）。而使用时间和日期文字 (如 #10/19/1962#, #4:45:23 pm#)。 - 示例: mydate = october 19, 1962 定义日期。 myshortdate = cdate(mydate) 转换为日期数据类型。 mytime = 4:3

13、5:47 pm 定义时间。 myshorttime = cdate(mytime) 转换为日期数据类型。 = cdbl 函数 描述 返回表达式，此表达式已被转换为 double 子类型的 variant。 语法 cdbl(expression) expression 参数是任意有效的表达式。 说明 通常，您可以使用子类型数据转换函数书写代码，以显示某些操作的结果应当被表达为特定的数据类型，而非默认的数据类型。例如在出现货币或整数运算的情况下，使用 cdbl 或 csng 函数强制进行双精度或单精度算术运算。 cdbl 函数用于进行从其他数据类型到 double 子类型的国际公认的格式转换。例如

14、，十进制分隔符和千位分隔符的识别取决于系统的区域设置。 下面的示例利用 cdbl 函数把 expression 转换为 double。 - 示例: dim mycurr, mydouble mycurr = ccur(234.456784) mycurr 是 currency 型 (234.4567)。 mydouble = cdbl(mycurr * 8.2 * 0.01) 把结果转换为 double 型 (19.2254576)。 = chr 函数 描述 返回与指定的 ansi 字符代码相对应的字符。 语法 chr(charcode) charcode 参数是可以标识字符的数字。 说明 从

15、 0 到 31 的数字表示标准的不可打印的 ascii 代码。例如，chr(10) 返回换行符。 下面例子利用 chr 函数返回与指定的字符代码相对应的字符: - 示例: dim mychar mychar = chr(65) 返回 a。 mychar = chr(97) 返回 a。 mychar = chr(62) 返回 。 mychar = chr(37) 返回 %。 - 注意 chrb 函数与包含在字符串中的字节数据一起使用。chrb 不是返回一个或两个字节的字符，而总是返回单个字节的字符。chrw 是为使用 unicode 字符的 32 位平台提供的。它的参数是一个 unicode (

16、宽字符)的字符代码，因此可以避免将 ansi 转化为 unicode 字符。 = cint 函数 描述 返回表达式，此表达式已被转换为 integer 子类型的 variant。 语法 cint(expression) expression 参数是任意有效的表达式。 说明 通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，在出现货币、单精度或双精度运算的情况下，使用 cint 或 clng 强制执行整数运算。 cint 函数用于进行从其他数据类型到 integer 子类型的国际公认的格式转换。例如对十进制分隔符（如千分符）的识别，可能取决

17、于系统的区域设置。 如果 expression 在 integer 子类型可接受的范围之外，则发生错误。 下面的示例利用 cint 函数把值转换为 integer: - 示例: dim mydouble, myint mydouble = 2345.5678 mydouble 是 double。 myint = cint(mydouble) myint 包含 2346。 - 注意 cint 不同于 fix 和 int 函数删除数值的小数部分，而是采用四舍五入的方式。 当小数部分正好等于 0.5 时, cint 总是将其四舍五入成最接近该数的偶数。例如， 0.5 四舍五入为 0, 以及 1.5

18、四舍五入为 2. = clng 函数 描述 返回表达式，此表达式已被转换为 long 子类型的 variant。 语法 clng(expression) expression 参数是任意有效的表达式。 说明 通常，您可以使用子类型数据转换函数书写代码，以显示某些操作的结果应当被表达为特定的数据类型，而非默认的数据类型。例如，在出现货币运算、单精度或双精度算术运算的情况下，使用 cint 或 clng 函数强制进行整数运算。 clng 函数用于进行从其他数据类型到 long 子类型的的国际公认的格式转换。例如，对十进制分隔符和千位分隔符的识别取决于系统的区域设置。 如果 expression 取

19、值不在 long 子类型的允许范围内，则会出现错误。 下面的示例利用 clng 函数把值转换为 long: - 示例: dim myval1, myval2, mylong1, mylong2 myval1 = 25427.45: myval2 = 25427.55 myval1, myval2 是双精度值。 mylong1 = clng(myval1) mylong1 25427。 mylong2 = clng(myval2) mylong2 包含 25428 。 - 注意 clng 不同于 fix 和 int 函数删除小数部分， 而是采用四舍五入的方式。 当小数部分正好等于 0.5 时，

20、clng 函数总是将其四舍五入为最接近该数的偶数。如， 0.5 四舍五入为 0, 以及 1.5 四舍五入为 2 。 = cos 函数 描述 返回某个角的余弦值。 语法 cos(number) number 参数可以是任何将某个角表示为弧度的有效数值表达式。 说明 cos 函数取某个角并返回直角三角形两边的比值。此比值是直角三角形中该角的邻边长度与斜边长度之比。结果范围在 -1 到 1 之间。 角度转化成弧度方法是用角度乘以 pi/180 。 反之，弧度转化成角度的方法是用弧度乘以 180/pi 。 下面的示例利用 cos 函数返回一个角的余弦值: - 示例: dim myangle, myse

21、cant myangle = 1.3 用弧度定义一个角。 mysecant = 1 / cos(myangle) 计算正割。 = createobject 函数 描述 创建并返回对 automation 对象的引用。 语法 createobject(servername.typename , location) createobject 函数语法 ，有以下部分： 部分 描述 servername 要求。提供对象的应用程序名称。 typename 要求。要创建的对象类型或类。 location 可选的。对象所在的网络服务器将被创建。 说明 automation 服务器至少提供一种对象类型。例如，

22、字处理应用程序可以提供应用程序对象、文档对象和工具条对象。 要创建 automation 对象，将 createobject 函数返回的对象赋值给某对象变量： dim excelsheet set excelsheet = createobject(excel.sheet) 上述代码启动创建对象（在此实例中，是 microsoft excel 电子表格）的应用程序。对象创建后，就可以在代码中使用定义的对象变量引用此对象。在下面的示例中，可使用对象变量、excelsheet 和其他 excel 对象，包括 application 对象和 cells 集合访问新对象的属性和方法。例如： 通过 ap

23、plication 对象使 excel 可见。 excelsheet.application.visible = true 在工作表的第一个单元中放置文本。 excelsheet.activesheet.cells(1,1).value = 这是 a 列第一行 保存工作表。 excelsheet. saveas c:docstest.xls 在 application 对象中使用 quit 方法退出 excel。 excelsheet.application.quit 释放对象变量。 set excelsheet= nothing 在远程服务器上创建一个对象，当 internet 安全关闭时只

24、能完成。通过传递计算机名到 createobject 服务器名的参数，能在远程网络上创建对象。该名称如同共享部份的机器名。例如网络共享名命名为： myserverpublic, servername 是 myserver。另外,只能指定 servername 使用 dns 格式或 ip 地址。 以下代码返回运行在命名为myserver的远程网络计算机上 excel 实例的版本号 : - 示例: function getversion dim xlapp set xlapp = createobject(excel.application, myserver) getversion = xlap

25、p.version end function 错误发生在指定的远程服务器不存在或无法找到。 = csng 函数 描述 返回表达式，该表达式已被转换为 single 子类型的 variant。 语法 csng(expression) expression 参数是任意有效的表达式。 说明 通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，在出现货币或整数运算的情况下，使用 cdbl 或 csng 强制执行双精度或单精度运算。 csng 函数用于进行从其他数据类型到 single 子类型的国际公认的格式转换。例如，对十进制分隔符（如千分符）的识

26、别取决于系统的区域设置。 如果 expression 在 single 子类型允许的范围之外，则发生错误。 下面的示例利用 csng 函数把值转换为 single: - 示例: dim mydouble1, mydouble2, mysingle1, mysingle2 mydouble1, mydouble2 是双精度值。 mydouble1 = 75.3421115: mydouble2 = 75.3421555 mysingle1 = csng(mydouble1) mysingle1 包含 75.34211 。 mysingle2 = csng(mydouble2) mysingle2

27、 包含 75.34216 。 = cstr 函数 描述 返回表达式，该表达式已被转换为 string 子类型的 variant。 语法 cstr(expression) expression 参数是任意有效的表达式。 说明 通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，使用 cstr 强制将结果表示为 string。 cstr 函数用于替代 str 函数来进行从其他数据类型到 string 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。 expression 根据下表决定返回的数据： 如果 expressi

28、on 为 cstr 返回 boolean 字符串，包含 true 或 false。 date 字符串，包含系统的短日期格式日期。 null 运行时错误。 empty 零长度字符串 ()。 error 字符串，包含跟随有错误号码的单词 error。 其他数值 字符串，包含此数字。 下面的示例利用 cstr 函数把数字转换为 string: - 示例: dim mydouble, mystring mydouble = 437.324 mydouble 是双精度值。 mystring = cstr(mydouble) mystring 包含 437.324。按字母顺序排列: d = date 函数

29、 描述 返回当前系统日期。 语法 date remarks 下面的示例利用 date 函数返回当前系统日期: - 示例: dim mydate mydate = date mydate 包含当前系统日期。 = dateadd 函数 描述 返回已添加指定时间间隔的日期。 语法 dateadd(interval, number, date) dateadd 函数的语法有以下部分： 部分 描述 interval 必选。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。 number 必选。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的

30、日期）。 date 必选。variant 或要添加 interval 的表示日期的文字。 设置 interval 参数可以有以下值： 设置 描述 yyyy 年 q 季度 m 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 小时 n 分钟 s 秒 说明 可用 dateadd 函数从日期中添加或减去指定时间间隔。例如可以使用 dateadd 从当天算起 30 天以后的日期或从现在算起 45 分钟以后的时间。要向 date 添加以“日”为单位的时间间隔，可以使用“一年的日数”（“y”）、“日”（“d”）或“一周的日数”（“w”）。 dateadd 函数不会返回无效日期。如下示例将 95 年

31、 1 月 31 日加上一个月： - 示例: newdate = dateadd(m, 1, 31-jan-95) 在这个示例中，dateadd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则返回 96 年 2 月 29 日，这是因为 1996 是闰年。 如果计算的日期是在公元 100 年之前，则会产生错误。 如果 number 不是 long 型值，则在计算前四舍五入为最接近的整数。 = datediff 函数 描述 返回两个日期之间的时间间隔。 语法 datediff(interval, date1, date2 ,f

32、irstdayofweek, firstweekofyear) datediff 函数的语法有以下参数： 参数 描述 interval 必选。string expression 表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。 date1, date2 必选。日期表达式。用于计算的两个日期。 firstdayofweek 可选。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。 firstweekofyear 可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。

33、设置 interval 参数可以有以下值： 设置 描述 yyyy 年 q 季度 n 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 小时 m 分钟 s 秒 firstdayofweek 参数可以有以下值： 常数 值 描述 vbusesystem 0 使用区域语言支持 (nls) api 设置。 vbsunday 1 星期日（默认） vbmonday 2 星期一 vbtuesday 3 星期二 vbwednesday 4 星期三 vbthursday 5 星期四 vbfriday 6 星期五 vbsaturday 7 星期六 firstweekofyear 参数可以有以下值： 常数 值

34、 描述 vbusesystem 0 使用区域语言支持 (nls) api 设置。 vbfirstjan1 1 由 1 月 1 日所在的星期开始（默认）。 vbfirstfourdays 2 由在新年中至少有四天的第一周开始。 vbfirstfullweek 3 由在新的一年中第一个完整的周开始。 说明 datediff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 datediff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。 要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的

35、日数”（“w”）时，datediff 返回两个日期之间的星期数。如果 date1 是星期一，则 datediff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 datediff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，datediff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。 如果 date1 晚于 date2，则 datediff 函数返回负数。 firstdayofweek 参数会对使用“

36、w”和“ww”间隔符号的计算产生影响。 如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 ( ) 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。 在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，datediff 返回 1 表示相差一个年份。 下面的示例利用 datediff 函数显示今天与给定日期之间间隔天数: - 示例: function diffadat

37、e(thedate) diffadate = 从当天开始的天数: & datediff(d, now, thedate) end function = datepart 函数 描述 返回给定日期的指定部分。 语法 datepart(interval, date, firstdayofweek, firstweekofyear) datepart 函数的语法有以下参数： 参数 描述 interval 必选。字符串表达式表示要返回的时间间隔。有关数值，请参阅“设置”部分。 date 必选。要计算的日期表达式。 firstdayof week 可选。指定星期中的第一天的常数。如果没有指定，则默认为星

38、期日。有关数值，请参阅“设置”部分。 firstweekofyear 可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。 设置 interval 参数可以有以下值： 设置 描述 yyyy 年 q 季度 m 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 小时 n 分钟 s 秒 firstdayofweek 参数可以有以下值： 常数 值 描述 vbusesystem 0 使用区域语言支持 (nls) api 设置。 vbsunday 1 星期日（默认） vbmonday 2 星期一 vbtuesday 3 星期二 vbwedn

39、esday 4 星期三 vbthursday 5 星期四 vbfriday 6 星期五 vbsaturday 7 星期六 firstweekofyear 参数可以有以下值： 常数 值 描述 vbusesystem 0 使用区域语言支持 (nls) api 设置。 vbfirstjan1 1 由 1 月 1 日所在的星期开始（默认）。 vbfirstfourdays 2 由在新年中至少有四天的第一周开始。 vbfirstfullweek 3 由在新的一年中第一个完整的周（不跨年度）开始。 说明 datepart 函数用于计算日期并返回指定的时间间隔。例如使用 datepart 计算某一天是星期几

40、或当前的时间。 firstdayofweek 参数会影响使用“w”和“ww”间隔符号的计算。 如果 date 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date 被包含在引号 ( ) 中，并且省略年份，则在代码中每次计算 date 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。. 下面的示例利用 datepart 函数获得日期并显示该日所在的季节。 - 示例: function getquarter(thedate) getquarter = datepart(q, thedate) end function = dateserial 函数 描述 对于指定的年、月、日，返回 date 子类型的 variant。 语法 dateserial(year, month, day) dateserial 函数的语法有以下参数： 参数 描述 year 从 100 到 9999 之间的数字或数值表达式。 month 任意数值表达式。 day 任意数值表达式。 说明 要指定日期，如 1991 年 12 月 31 日，dateserial 函数中每个参数的取值范围都应该是可接受的；即日的取值应在 1 和 31 之间，月的取值应在 1 和 12 之间。但是，也可以使用表示某日之前或之后的年、月、日数目的数值表达