没有合适的资源?快使用搜索试试~ 我知道了~
EXCEL VBA函数精选详细介绍了EXCEL的函数功能如何在VBA中使用。
资源推荐
资源详情
资源评论
常用常用常用常用 VVVV B AB AB AB A 函数函数函数函数精选精选精选精选
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.11.11.11.1 例例例例 A S CA S CA S CA S C 函数函数函数函数
一、题目:
要求编写一段代码,运行后得到字符串”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.21.21.21.2 例例例例 C h rC hrC hrC h r函数函数函数函数
一、题目"":
要求编写一段代码,运用 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.31.31.31.3 例例例例 C h oo seC ho oseC h oo seC ho ose 函数函数函数函数
一、题目:
要求编写一段代码,运用 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.41.41.41.4 例例例例 C o sC osC o sC os 函数函数函数函数
一、题目:
要求编写一段代码,运用 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.51.51.51.5 例例例例 D ateD ateD ateD ate 函数函数函数函数
一、题目:
要求编写一段代码,运用 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.61.61.61.6 例例例例 D ateA ddD ateA ddD ateA ddD ateA dd 函数函数函数函数
一、题目:
要求编写一段代码,运用 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。
剩余35页未读,继续阅读
资源评论
sccddengwei
- 粉丝: 0
- 资源: 10
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功