常用VBA函数精选集_蓝桥玄霜探索.doc

常用VBA函数精选 By 蓝桥玄霜 目录 前言 第1.1例 ASC函数 第1.2例 Chr函数 第1.3例 Choose函数 第1.4例 Cos函数 第1.5例 Date函数 第1.6例 DateAdd函数 第1.7例 DateDiff函数 第1.8例 DatePart函数 第1.9例 DateSerial函数 第1.10例 DateValue函数 第1.11例 Day函数 第1.12例 Dir函数 第1.13例 Fix函数 第1.14例 Format函数 第1.15例 Hour函数 第1.16例 IIF函数 第1.17例 InputBox函数 第1.18例 Instr函数 第1.19例 InstrRev函数 第1.20例 IsArray函数 第1.21例 IsNumeric函数 第1.22例 Join函数 第1.23例 LBound 和UBound 函数 第1.24例 LCase和UCase 函数 第1.25例 Left 和 Right 函数 第1.26例 Len 函数 第1.27例 LTrim、RTrim与 Trim 函数 第1.28例 Mid 函数 第1.29例 Month 和 MonthName函数 第1.30例 MsgBox 函数 第1.31例 Now函数 第1.32例 RGB函数 第1.33例 Rnd函数 第1.34例 Round函数 第1.35例 Split 函数 第1.36例 Sqr 函数 第1.37例 Str 和CStr 函数 第1.38例 Time 函数 第1.39例 TimeSerial 和TimeValue 函数 第1.40例 Timer 函数 前言 我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。 而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。 第1.1例 ASC函数 一、题目： 　　要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。 二、代码： Sub 示例_1_01() Dim myNum1%, myNum2% myNum1 = Asc(Excel) 返回69 myNum2 = Asc(e) 返回101 [a1] = myNum1= : [b1] = myNum1 [a2] = myNum2= : [b2] = myNum2 End Sub 三、代码详解 1、Sub 示例_1_01()：宏程序的开始语句。 2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。 也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。Integer 的类型声明字符是百分比符号 (%)。 3、myNum1 = Asc(Excel)：把Asc函数的值赋给变量myNum1。 Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。 语法 Asc(string) 必要的 string（字符串） 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。 4、myNum2 = Asc(e)：把Asc函数的值赋给变量myNum2。这里返回小写字母e的ASCII代码101。 5、[a1] = myNum1= : [b1] = myNum1：把字符串“myNum1= “赋给A1单元格，把变量myNum1的值赋给B1单元格。 6、[a2] = myNum2= : [b2] = myNum2：把字符串“myNum2= “赋给A2单元格，把变量myNum2的值赋给B2单元格。 7、End Sub：程序的结束语句，和“Sub示例_1_01（）”相对应。 第1.2例 Chr函数 一、题目： 　　要求编写一段代码，运用Chr函数将ASCII值转换为对应的字符。 二、代码： Sub 示例_1_02() Dim myChar1$, myChar2$ myChar1 = Chr(69) 返回 E。 myChar2 = Chr(101) 返回 e。 [a1] = myChar1= : [b1] = myChar1 [a2] = myCh