📄 vba函数说明.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Abs 函数</title>
<meta name="Microsoft Theme" content="none">
</head>
<body bgcolor="#008000">
<h1 align="center"><font color="#FFFFFF">Abs 函数</font> </h1>
<p class="T">返回参数的绝对值，其类型和参数相同。</p>
<p><b>语法</b></p>
<p class="SYN">Abs<b>(</b><i>number</i><b>)</b>
<p class="T">必要的 <i>number</i> 参数是任何有效的数值表达式，如果
<i>number </i>包含 Null，则返回 <b>Null</b>，如果
<i>number </i>是未初始化的变量，则返回
0。</p>
<p><b>说明</b></p>
<p class="T">一个数的绝对值是将正负号去掉以后的值。例如，<code>ABS(-1)</code>
和 <code>ABS(1)</code> 都返回 <code>1</code>。</p>
<h1 align="center"><b><font color="#FFFFFF">Array 函数</font></b> </h1>
<p class="T">返回一个包含数组的 Variant。</p>
<p><b>语法</b></p>
<p class="SYN"><b>Array(</b><i>arglist</i><b>)</b>
<p class="T">所需的 <i>arglist</i> 参数是一个用逗号隔开的值表，这些值用于给
<b>Variant</b>
所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为
0 的数组。</p>
<p><b>说明</b></p>
<p class="T">用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个
<b>Variant </b>的变量 <code>A</code>。第二条语句将一个数组赋给变量
<code>A</code>。最后一条语句将该数组的第二个元素的值赋给另一个变量。</p>
<pre class="CT"><code>Dim A As Variant
A = Array(10,20,30)
B = A(2)
</code></pre>
<p class="T">使用 <b>Array</b> 函数创建的数组的下界受 <b>Option
Base</b> 语句指定的下界的决定, 除非 <b>Array</b>
是由类型库（例如 <b>VBA.Array )</b>名称限定。如果是由类型库名称限定，则
<b>Array</b> 不受 <b>Option Base</b> 的影响。</p>
<p class="NT"><b>注意</b> 没有作为数组声明的 <b>Variant </b>也可以表示数组。除了长度固定的字符串以及用户定义类型之外，<b>Variant
</b>变量可以表示任何类型的数组。尽管一个包含数组的 <b>Variant
</b>和一个元素为 <b>Variant </b>类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。</p>
<h1 align="center"><font color="#FFFFFF">Asc 函数</font> </h1>
<p class="T">返回一个 Integer，代表字符串中首字母的字符代码。</p>
<p><b>语法</b></p>
<p class="SYN"><b>Asc(</b><i>string</i><b>)</b>
<p class="T">必要的 <i>string </i>参数可以是任何有效的字符串表达式。如果
<i>string</i> 中没有包含任何字符，则会产生运行时错误。</p>
<p><b>说明</b></p>
<p class="T">在非 DBCS 系统下，返回值范围为 0 – 255 。在 DBCS
系统下，则为 -32768 – 32767。</p>
<p class="NT"><b>注意</b> <b>AscB</b>
函数作用于包含在字符串中的字节数据，<b>AscB </b>返回第一个字节的字符代码，而非字符的字符代码。<b>AscW</b>
函数返回 Unicode
字符代码，若平台不支持 Unicode，则与 <b>Asc</b>
函数功能相同。</p>
<h1 align="center"><font color="#FFFFFF">Atn 函数</font> </h1>
<p class="T">返回一个 Double，指定一个数的反正切值。</p>
<p><b>语法</b></p>
<p class="SYN"><b>Atn(</b><i>number</i><b>)</b>
<p class="T">必要的 <i>number</i> 参数是一个
Double或任何有效的数值表达式。</p>
<p><b>说明</b></p>
<p class="T"><b>Atn</b> 函数的参数值 (<i>number</i>)
为直角三角形两边的比值并返回以弧度为单位的角。这个比值是角的对边长度除以角的邻边长度之商。</p>
<p class="T">值的范围在 <b>-</b>pi/2
和 pi/2 弧度之间。</p>
<p class="T">为了将角度转换为弧度，请将角度乘以 pi/180。为了将弧度转换为角度，请将弧度乘以
180/pi。</p>
<p class="NT"><b>注意</b> <b>Atn</b> 是 <b>Tan </b>的反三角函数，<b>Tan
</b>的参数值为角度，返回直角三角形的两条边的比值。不要将
<b>Atn</b> 和余切函数混淆，余切函数值是正切函数值的倒数，cotangent
= (1/tangent)。</p>
<h1 align="center"><b><font color="#FFFFFF">CallByName 函数</font></b><font color="#FFFFFF"> </font> </h1>
<p class="T">执行一个对象的方法，或者设置或返回一个对象的属性。</p>
<p><b>语法</b></p>
<p class="SYN"><b>CallByName(<i>object</i></b><i>, <b>procname</b>, <b>calltype</b>,[<b>args</b>()]</i><b>)</b>
<p class="T"><b>CallByName</b> 函数的语法有以下命名参数：</p>
<table cellSpacing="4" cols="2" cellPadding="4" rules="all" border="1" frame="box">
<tbody>
<tr vAlign="top">
<th width="21%">部分</th>
<th width="79%">描述</th>
</tr>
<tr vAlign="top">
<td class="T" width="21%"><i><b>objec</b>t</i></td>
<td class="T" width="79%">必需的；<b>变体型（对象）</b>。函数将要执行的对象的名称。</td>
</tr>
<tr vAlign="top">
<td class="T" width="21%"><b><i>procname</i></b></td>
<td class="T" width="79%">必需的；<b>变体型（字符串）</b>。一个包含该对象的属性名称或者方法名称的字符串表达式。</td>
</tr>
<tr vAlign="top">
<td class="T" width="21%"><b><i>calltype</i></b></td>
<td class="T" width="79%">必需的；<b>常数</b>。一个 <b>vbCallType</b>
类型的常数，代表正在被调用的过程的类型。</td>
</tr>
<tr vAlign="top">
<td class="T" width="21%"><i><b>args</b>()</i></td>
<td class="T" width="79%">可选的：<b>变体型（数组）</b>。</td>
</tr>
</tbody>
</table>
<p><b>说明</b></p>
<p class="T"><b>CallByName</b>
函数用于获取或者设置一个属性，或者在运行时使用一个字符串名称来调用一个方法。</p>
<p class="T">在下面的例子中，第一行使用 <b>CallByName</b>
来设置一个文本框的 <b>MousePointer</b> 属性，第二行得到 <b>MousePointer</b>
属性的值，第三行调用 <b>Move</b> 方法来移动文本框：</p>
<pre class="CT"><code>CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100</code></pre>
<h1 align="center"><font color="#FFFFFF">类型转换函数 </font> </h1>
<p class="T">每个函数都可以强制将一个表达式转换成某种特定数据类型。</p>
<h1>语法</h1>
<p class="T"><b>CBool(</b><i>expression</i><b>)</b>
<p class="T"><b>CByte(</b><i>expression</i><b>)</b>
<p class="T"><b>CCur(</b><i>expression</i><b>)</b>
<p class="T"><b>CDate(</b><i>expression</i><b>)</b>
<p class="T"><b>CDbl(</b><i>expression</i><b>)</b>
<p class="T"><b>CDec(</b><i>expression</i><b>)</b>
<p class="T"><b>CInt(</b><i>expression</i><b>)</b>
<p class="T"><b>CLng(</b><i>expression</i><b>)</b>
<p class="T"><b>CSng(</b><i>expression</i><b>)</b>
<p class="T"><b>CStr(</b><i>expression</i><b>)</b>
<p class="T"><b>CVar(</b><i>expression</i><b>)</b></p>
<p class="T"><b>CStr(</b><i>expression</i><b>)</b>
<p class="T">必要的 <i>expression</i> 参数可以是任何字符串表达式或数值表达式。</p>
<h1>返回类型</h1>
<p class="T">函数名称决定返回类型，如下所示：</p>
<table cellSpacing="4" cols="6" cellPadding="4">
<tbody>
<tr vAlign="top">
<th width="15%" colSpan="2">函数</th>
<th width="22%" colSpan="2">返回类型</th>
<th width="63%" colSpan="2"><i>expression</i> 参数范围</th>
</tr>
<tr vAlign="top">
<td class="T" width="15%" colSpan="2"><b>CBool</b></td>
<td class="T" width="22%" colSpan="2">Boolean</td>
<td class="T" width="63%" colSpan="2">任何有效的字符串或数值表达式。</td>
</tr>
<tr vAlign="top">
<td class="T" width="15%" colSpan="2"><b>CByte</b></td>
<td class="T" width="22%" colSpan="2">Byte</td>
<td class="T" width="63%" colSpan="2">0 至 255。</td>
</tr>
<tr vAlign="top">
<td class="T" width="15%" colSpan="2"><b>CCur</b></td>
<td class="T" width="22%" colSpan="2">Currency</td>
<td class="T" width="63%" colSpan="2">-922,337,203,685,477.5808 至922,337,203,685,477.5807。</td>
</tr>
<tr vAlign="top">
<td class="T" width="15%" colSpan="2"><b>CDate</b></td>
<td class="T" width="22%" colSpan="2">Date</td>
<td class="T" width="63%" colSpan="2">任何有效的日期表达式。</td>
</tr>
<tr vAlign="top">
<td class="T" width="15%" colSpan="2"><b>CDbl</b></td>
<td class="T" width="22%" colSpan="2">Double</td>
<td class="T" width="63%" colSpan="2">负数从 -1.79769313486231E308 至
-4.94065645841247E-324；正数从 4.94065645841247E-324 至
1.79769313486232E308。</td>
</tr>
<tr vAlign="top">
<td class="T" width="15%" colSpan="2"><b>CDec</b></td>
<td class="T" width="22%" colSpan="2">Decimal</td>
<td class="T" width="63%" colSpan="2">零变比数值，即无小数位数值，为<br>
+/-79,228,162,514,264,337,593,543,950,335。对于 28
位小数的数值，范围则为<br>
+/-7.9228162514264337593543950335；最小的可能非零值是
0.0000000000000000000000000001。</td>
</tr>
<tr vAlign="top">
<td class="T" width="15%" colSpan="2"><b>CInt</b></td>
<td class="T" width="22%" colSpan="2">Integer</td>
<td class="T" width="63%" colSpan="2">-32,768 至 32,767，小数部分四舍五入。</td>
</tr>
<tr vAlign="top">
<td class="T" width="15%" colSpan="2"><b>CLng</b></td>
<td class="T" width="22%" colSpan="2">Long</td>
<td class="T" width="63%" colSpan="2">-2,147,483,648 至 2,147,483,647，小数部分四舍五入。</td>
</tr>
<tr vAlign="top">
<td class="T" width="15%" colSpan="2"><b>CSng</b></td>
<td class="T" width="22%" colSpan="2">Single</td>
<td class="T" width="63%" colSpan="2">负数为 -3.402823E38 至
-1.401298E-45；正数为 1.401298E-45 至 3.402823E38。</td>
</tr>
<tr vAlign="top">
<td class="T" width="15%" colSpan="2"><b>CStr</b></td>
<td class="T" width="22%" colSpan="2">String</td>
<td class="T" width="63%" colSpan="2">依据 <i>expression </i>参数返回
Cstr。</td>
</tr>
<tr vAlign="top">
<td class="T" width="15%" colSpan="2"><b>CVar</b></td>
<td class="T" width="22%" colSpan="2">Variant</td>
<td class="T" width="63%" colSpan="2">若为数值，则范围与 <b>Double
</b>相同；若不为数值，则范围与 <b>String </b>相同。</td>
</tr>
</tbody>
</table>
<br>
说明
<p class="T">如果传递给函数的 <i>expression </i>超过转换目标数据类型的范围，将发生错误。</p>
<p class="T">通常，在编码时可以使用数据类型转换函数，来体现某些操作的结果应该表示为特定的数据类型，而不是缺省的数据类型。例如，当单精度、双精度或整数运算发生的情况下，使用
<b>CCur </b>来强制执行货币运算。</p>
<p class="T">应该使用数据类型转换函数来代替 <b>Val</b>，以使国际版的数据转换可以从一种数据类型转换为另一种。例如，当使用
<b>Ccur </b>时，不同的小数点分隔符、千分位分隔符和各种货币选项，依据系统的区域设置都会被妥善识别。</p>
<p class="T">当小数部分恰好为 0.5 时，<b>Cint </b>和 <b>CLng </b>函数会将它转换为最接近的偶数值。例如，0.5
转换为 0、1.5 转换为 2。<b>Cint </b>和 <b>CLng </b>函数不同于 <b>Fix
</b>和 <b>Int </b>函数，<b>Fix </b>和 <b>Int </b>函数会将小数部分截断而不是四舍五入。并且
<b>Fix </b>和 <b>Int </b>函数总是返回与传入的数据类型相同的值。</p>
<p class="T">使用 <b>IsDate</b> 函数，可判断 <i>date </i>是否可以被转换为日期或时间。<b>Cdate
</b>可用来识别日期文字和时间文字，以及落入可接受的日期范围内的数值。当转换一个数字成为日期时，是将整数部分转换为日期，小数部分转换为从午夜起算的时间。</p>
<p class="T"><b>CDate </b>依据系统上的区域设置来决定日期的格式。如果提供的格式为不可识别的日期设置，则不能正确判断年、月、日的顺序。另外，长日期格式，若包含有星期的字符串，也不能被识别。</p>
<p class="T"><b>CVDate</b> 函数也提供对早期 Visual Basic
版本的兼容性。<b>CVDate</b> 函数的语法与 <b>CDate</b>
函数是完全相同的，不过，<b>CVDate</b> 是返回一个 <b>Variant</b>，它的子类型是
<b>Date</b>，而不是实际的 <b>Date </b>类型。因为现在已有真正的
<b>Date</b> 类型，所以 <b>CVDate</b>
也不再需要了。转换一个表达式成为 <b>Date</b>，再赋值给一个
<b>Variant</b>，也可以达到同样的效果。也可以使用这种技巧将其他真正的数据类型转换为对等的
<b>Variant </b>子类型。</p>
<p class="NT"><b>注意 CDec</b>
函数不能返回独立的数据类型，而总是返回一个 <b>Variant</b>，它的值已经被转换为
<b>Decimal </b>子类型。</p>
<h1 align="center"><font color="#FFFFFF">Choose 函数</font></h1>
<p class="ALNSR">从参数列表中选择并返回一个值。</p>
<p><b>语法</b></p>
<p class="SYN"><b>Choose(</b><i>index</i><b>, </b><i>choice-1</i>[<b>,</b><i>
choice-2, ...</i> [<b>, </b><i>choice-n</i>]]<b>)</b>
<p class="T"><b>Choose</b> 函数的语法具有以下几个部分：</p>
<table cellSpacing="4" cols="2" cellPadding="4">
<tbody>
<tr vAlign="top">
<th width="13%">部分</th>
<th width="87%">描述</th>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -