常用VBA函数精选目录
第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] = "myChar2= ": [b2] = myChar2
End Sub
三、代码详解
1、Sub 示例_1_02()：宏程序的开始语句。
2、Dim myChar1$, myChar2$：变量myChar1和myChar2声明为字符串变量。
也可以写为Dim myChar1 As String 。String  之字符码的范围是0 到255。字符集的前128 个字符（0 到127）对应于标准的U.S. 键盘上的字符与符号。这前 128 个字符与 ASCII 字符集中所定义的相同。后 128个字符（128 到255）则代表特殊字符，例如国际字符，重音符号，货币符号及分数。String 的类型声明字符为美元号 ($)。
3、myChar1 = Chr(69)：把Chr(69)的值赋给变量myChar1。这里返回大写字母E。
Chr函数根据字符代码返回一个字符。
语法
Chr(charcode)
必要的 charcode（字符代码）参数是用来识别某字符的。
4、myChar2 = Chr(101)：把Chr 函数的值赋给变量myChar2。这里返回小写字母e。
5、[a1] = "myChar1= ": [b1] = myChar1：把字符串“myChar1=  “赋给A1单元格，把变量myChar1的值赋给B1单元格。
6、[a2] = "myChar2= ": [b2] = myChar2：把字符串“myChar2=  “赋给A2单元格，把变量myChar2的值赋给B2单元格。
7、End Sub：程序的结束语句，和“Sub示例_1_02（）”相对应。
第1.3例 Choose函数
一、题目：
  要求编写一段代码，运用Choose函数根据指定数字选择对应的字符串。
二、代码：
Sub 示例_1_03()
Dim Num%
Num=2
MsgBox  Choose(Num, "一月", "二月", "三月")
End Sub
三、代码详解
1、Sub 示例_1_03()：宏程序的开始语句。宏名为示例_1_03。
datediff是字符型函数
2、Dim Num% ：变量Num声明为整型变量。
3、Num=2 ：把2赋给变量Num。
4、MsgBox  Choose(Num, "一月", "二月", "三月") ：
Choose函数从参数列表中选择并返回一个值。
语法
Choose(index, choice-1[, choice-2, ... [, choice-n]])
Choose 会根据index 的值来返回选择项列表中的某个值。如果index 是 1，则 Choose 会返回列表中的第 1 个选择项。如果 index 是 2，则会返回列表中的第 2 个选择项，以此类推。
Index是必要参数，数值表达式或字段，它的运算结果是一个数值，且界于1 和可选择的项目数之间。当index小于1 或大于列出的选择项数目时，Choose 函数返回 Null。如果 index 不是整数，则会先四舍五入为与其最接近的整数。
第1.4例 Cos函数
一、题目：
  要求编写一段代码，运用Cos函数根据指定角度的余弦计算其正割的值。
二、代码：
Sub 示例_1_04()
Dim jiaodu, zenge
jiaodu = 1.3
zenge = 1 / Cos(jiaodu)
MsgBox  “角度为 ” & jiaodu & “的正割的值＝ ” & zenge
End Sub
三、代码详解
1、Sub 示例_1_04()：宏程序的开始语句。宏名为示例_1_04。
2、Dim jiaodu, zenge ：两个变量都被指定为可变型数据类型。当声明常数、变量或参数时，若无指定数据类型则会自动的指定成
Variant（可变型）数据类型。声明成Variant 数据类型的变量可以为字符串、日期、时间、Boolean或数值。
3、jiaodu = 1.3 ：把以“弧度”为单位的角度1.3赋给变量jiaodu。
4、zenge = 1 / Cos(jiaodu) ：利用1/余弦算得正割（sec()）的值，赋给

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。