没有合适的资源?快使用搜索试试~ 我知道了~
常用VBA函数精选集 ,包括多个函数
5星 · 超过95%的资源 需积分: 5 8 下载量 38 浏览量
2023-02-02
14:45:16
上传
评论 1
收藏 280KB DOC 举报
温馨提示
试读
38页
ASC函数 Chr函数 Choose函数 Cos函数 Date函数 DateAdd函数 DateDiff函数 DatePart函数 DateSerial函数 DateValue函数 Day函数 Dir函数 Fix函数 Format函数 Hour函数 IIF函数 InputBox函数 Instr函数 InstrRev函数 IsArray函数 IsNumeric函数 Join函数 LBound 和UBound 函数 LCase和UCase 函数 Left 和 Right 函数 Len 函数 LTrim、RTrim与Trim 函数 Mid 函数 Month 和 MonthN ame函数 MsgBox 函数 Now函数 RGB函数 Rnd函数 Round函数 Split 函数 Sqr 函数 Str 和CStr 函数 Time 函数 TimeSerial 和Ti meValue函数 Timer 函数
资源推荐
资源详情
资源评论
常用 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 单元格。
Commented [A1]: 一个字节为 8 位
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。
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())的值,赋给变量 zenge。
Cos 函数返回一个角的余弦值。其参数是表示一个以弧度为单位的角。
5、MsgBox “角度为 ” & jiaodu & “的正割的值= ” & zenge :利用 MsgBox 函数
显示算得的正割(sec())的值。
第 1.5 例 Date 函数
一、题目:
要求编写一段代码,运用 Date 函数显示系统日期的值。
二、代码:
Sub 示例_1_05()
Dim myDate
myDate = Date
MsgBox “系统日期为 ” & myDate
End Sub
三、代码详解
1、Sub 示例_1_05():宏程序的开始语句。宏名为示例_1_05。
2、Dim myDate :变量 myDate 被指定为可变型数据类型。
3、myDate = Date :把系统日期的值赋给变量 myDate。
Date 函数返回系统当前的日期。
4、MsgBox “系统日期为 ” & myDate :利用 MsgBox 函数显示系统日期的值。
第 1.6 例 DateAdd 函数
一、题目:
要求编写一段代码,运用 DateAdd 函数显示返回一定间隔后的日期。
二、代码:
Sub 示例_1_06()
Dim dyrq As Date
Dim jglx As String
Dim n As Integer
Dim Msg
jglx = "m"
dyrq = InputBox("请输入一个日期")
n = InputBox("输入增加月的数目:")
Msg = "新日期: " & DateAdd(jglx, n, dyrq)
MsgBox Msg
End Sub
三、代码详解
1、Sub 示例_1_06():宏程序的开始语句。宏名为示例_1_06。
2、Dim dyrq As Date :变量 dyrq 声明为日期对象型数据类型。其余几个变量分别是字符
串型、整型和可变型变量。
3、jglx = "m" :用字符 m 来指定以“月份”作为间隔。
4、dyrq = InputBox("请输入一个日期") :用 InputBox 函数来让用户输入一个日期,并把用
户输入的日期赋给变量 dyrq。
5、n = InputBox("输入增加月的数目:") :用 InputBox 函数来让用户输入间隔月的数目,
并把用户输入的值赋给变量 n。
剩余37页未读,继续阅读
m0_61709596
- 粉丝: 0
- 资源: 3
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
- 1
- 2
前往页