没有合适的资源?快使用搜索试试~ 我知道了~
Excel常用VBA函数案例.pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 165 浏览量
2022-07-14
04:44:19
上传
评论
收藏 95KB PDF 举报
温馨提示
试读
13页
Excel常用VBA函数案例.pdf
资源推荐
资源详情
资源评论
Excel 常用 VBA 函数案例
ASC 函数
一、题目:
要求编写一段代码,运行后得到字符串” Excel”的首字母和” e”的 ASCII值。
二、代码:
SUB 示例 _1_01()
DIM MYNUM1%, MYNUM 2%
MYNUM1 = ASC("EXCEL") '返回 69 MYNUM 2 = ASC("E") ' 返回 101
[A1] = "MYNUM 1= ": [B1] = MYNUM 1 [A2] = "MYNUM2= ": [B2] = MYNUM 2
E
ND
S
UB
三、代码详解
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()”相对应。
Chr 函数
一、题目 "" :
要求编写一段代码,运用 Chr 函数将 ASCII值转换为对应的字符。
二、代码:
S
UB
示例 _1_02()
DIM MYCHAR1$, MYCHAR2$
MYCHAR1 = CHR(69) ' 返回 E。 MYCHAR2 = CHR(101) ' 返
回
E
。 [
A
1] = "
MY
C
HAR
1= ": [
B
1] =
MY
C
HAR
1 [
A
2] = "
MY
C
HAR
2= ": [
B
2] =
MY
C
HAR
2
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()”相对应。
Choose 函数
一、题目:
要求编写一段代码,运用 Choose 函数根据指定数字选择对应的字符串。
二、代码:
SUB 示例 _1_03() DIM NUM% NUM =2
MSGBOX CHOOSE(NUM, "一月 ", "二月 ", " 三月 ")
E
ND
S
UB
三、代码详解
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 不是整数,则会先四舍五入为与其最接近的整数。
Cos 函数
一、题目:
要求编写一段代码,运用 Cos 函数根据指定角度的余弦计算其正割的值。
二、代码:
SUB 示例 _1_04()
DIM JIAODU, ZENGE JIAODU = 1.3
ZENGE = 1 / COS(JIAODU)
M
SG
B
OX
“角度为 ” &
JIAODU
& “的正割的值= ” &
ZENGE
E
ND
S
UB
三、代码详解
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())的值。
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 函数显示系统日期的值。
DateAdd 函数
一、题目:
要求编写一段代码,运用 DateAdd 函数显示返回一定间隔后的日期。
二、代码:
SUB 示例 _1_06()
D
IM DYRQ
A
S
D
ATE
D
IM JGLX
A
S
S
TRING
D
IM N
A
S
I
NTEGER
D
IM
M
SG
JGLX = "M"
DYRQ
= I
NPUT
B
OX
("请输入一个日期 ")
N
= I
NPUT
B
OX
("输入增加月的数目: ")
MSG = "新日期 : " & D ATEADD(JGLX, N, DYRQ) MSGBOX MSG
E
ND
S
UB
三、代码详解
1、Sub 示例 _1_06():宏程序的开始语句。宏名为示例 _1_06。
2、Dim dyrq As Date :变量 dyrq 声明为日期对象型数据类型。其余几个变量分别
是字符串型、整型和可变型变量。
3、jglx = "m" :用字符 m 来指定以“月份”作为间隔。
剩余12页未读,继续阅读
资源评论
lxc15005035395
- 粉丝: 0
- 资源: 7万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功