最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛

 找回密码
 
查看: 7245|回复: 13

[VBA/VBS教程] 【VBA For ET 教材连载系列】三十七

[复制链接]

399

主题

75

听众

3062

积分

测试体验团员

Rank: 14Rank: 14Rank: 14Rank: 14

该用户从未签到

金币
3
威望
5033
帖子
2014
精华
11

特殊贡献奖 最佳教程奖 活跃会员奖

发表于 2009-10-14 09:59 |显示全部楼层
分享到: 新浪微博 腾讯微博
    条件语句与工作表函数IF一样,可以多层嵌套,从而满足多条件的需求。本节讲述条件语句的嵌套应用.
" A; {7 L* I) p+ w1 ]: ]6 N2 e    条件语句的嵌套分两种方式,现分别进行介绍如下。$ e4 T7 z  i' _) `! o3 l7 X; c1 X
l9 m6 J6 U. a/ _5 z6 V4 r% \
方式一
& B- @( T1 O4 R4 S- t9 J+ m. {2 vIF Condition Then
2 d6 p0 @) E; G5 c9 [# ]8 C% ^& Y9 S) N3 g/ T
[statements]

7 r! Q+ z7 H5 G, p7 x( [5 A4 ~1 |[ElseIF condition-n Then
4 g" M+ x/ h' V2 j* X  J/ V8 \$ N1 E. J8 t! \* ^
[elseifstatements] ...

' Z0 m$ i. b1 N$ `2 X5 ]2 p[Else
9 g, x5 J1 |  h# u& n9 m$ R1 g9 ?( B% h8 Y
[elsestatements]]

  C& ]0 h& D/ z: v. k8 M- WEnd IF3 F$ x2 J9 P0 z' b3 k  U+ ~# z
    语法列表中省略号代表可以继续添加更多的条件和对应的执行语句。
# O9 g( R& w' ^' `  b# z    例如:根据图37.1所示的根据成绩对姓名所在单元格进行着色,如果成绩小于60(不含60),则填充灰色背景,如果在60(含)到100之间,则填充淡蓝色背景,如果100分则填充红色背景。完成这个需求可以利用条件语句嵌套完成,代码如下:$ s. a, l, S4 ?
___________________________________________________________________
8 _6 h" N# X, Y6 `+ K+ q4 G
* j$ _/ O" e0 _% K) cSub 根据成绩设置背景色(): R+ m2 e% _  s5 }. N" b2 R
'
遍历所有成绩

; _4 j) L+ A9 tFor i = 2 To Cells(Rows.Count, 2).End(xlUp).Row

* o% Y: o' x, k7 t+ ]9 u* K'
如果成绩小于60 第一层IF
. D5 S4 {, @4 i- n! h, r
IF Cells(i, "B") < 60 Then

$ F/ g7 C5 ~3 i2 ^. V" j'
单元格颜色地址设置为15
5 L9 n$ t7 `4 D; l% o+ ^
Cells(i, "A").Interior.ColorIndex = 15

  D; J$ [' C, S'如果成绩小于100(相对于60100但不包括100,第二层IF; q" i) g( l* L+ l& D, v9 Z
ElseIF Cells(i, "B") < 100 Then
2 l- A1 v/ T" ?1 R3 [# q* F'
单元格颜色地址设置为17

! h& D6 E( _1 b' b7 Q- iCells(i, "A").Interior.ColorIndex = 17
9 V" v" u) a5 B8 C( O
Else'
否则
! \% q# J2 {$ p8 W
'
单元格颜色地址设置为13 ,代表满分100

1 ~! l3 m! G$ o# xCells(i, "A").Interior.ColorIndex = 3
$ F3 x. h' U. x  o7 k  V6 `
End IF
3 Z- p% c3 [3 @" Z/ N+ s0 W' s
Next i

4 s5 J4 v8 ?" s& x4 s9 [' fEnd Sub3 y6 J% c9 k9 l: U' C( j3 V* F3 W, h
_______________________________________________________; C2 e4 b, T* h1 X& Z7 K" F

; a* d- ?9 ^9 c    以上过程中IF语句设置条件为“<60”,然后将其背景色设置为灰色;而ElseIF语句则是在前一个IF的基础上进行的判断,所以它的条件虽然是“<100”,而实际上是大于等于60且小于100这个范围;最后的Else语句则作用于100分成绩对应的单元格。! l5 \7 a) a+ L0 E" I
执行过程后,其效率如图37.2所示。! y- C8 [1 b$ F! j% l. a
6 B8 f9 p/ B5 A7 G, D8 t# m

+ [. f3 n. e6 {% T4 M4 t* [# u. a      

. i3 l9 l8 i' w9 m7 n" c37.1 成绩表- @- x+ g3 {& o6 \

8 }; X* D' M# F) ~8 w3 ?$ U  G
1 T' ]7 K: G2 G! o% z. p37.2根据成绩对姓名列着色

5 L& o2 N( z( u4 f1 b
3 h4 z; A' k" y$ tl
* e6 u1 l; L! A0 G  H  n* t
方式二
1 w7 D; C1 y9 V3 D, s+ k+ QIF Condition Then
' @7 d% J; N2 B8 W9 B9 o# x
. ]! O+ R, P, N9 YIF Condition Then

* k( a4 T1 v0 }& j& C0 G* _# X- Y$ [1 K' V6 w1 R( [2 m
[statements]
3 H/ M  J" @5 e+ |  P/ ?! k

; }) F: J2 C+ H& |* p/ R" n[Else

8 t  W6 m% q0 K5 @1 p
" s$ A, Z+ U; O( w4 x[elsestatements]]

) h0 L7 J7 Q; w8 V0 t0 W9 M& {
! z: `& \3 N$ p* @2 B% \- \End IF

$ p& r; n' h8 Z/ h/ ]# r- H2 j  |End IF
! Y8 Z3 ]# Z1 y3 R# N" e1 R8 B. i    本嵌套方式表示在“IF”与“End IF”之间置入若干个“IF…Then…Else…”条件语句,那么有多少个“IF”就会有多少个“End IF”。# P/ @. n3 f2 C/ I
    使用此类语句通常是指要满足某条件后再执行一个或多个执行条件语句。里面的条件语句既可以使用条件与执行语句在同行的句式,也可以使用条件与执行语句不在一行的句式。$ `$ j. p$ w4 e+ V1 c5 _2 l
    假设每周一到五是15:00开会,周六则13:00开会,如果运行程序时间在开会前10分钟以内,那么弹出提示窗口.可以通过以下代码来实现.:0 q1 I/ V" b1 L. U9 r! e
________________________________________________________________
; x, C! `" M$ \! T% U( ^% r2 y! X
Sub 提示()
# y. @8 j5 U; jIf WorksheetFunction.Weekday(Now(), 2) < 6 Then
1 n% b* P: ], H! b4 l' ?If Format(Now(), "hh:mm:ss") >= "07:50:00" Then MsgBox "
会议时间15:00快到了,请你做好准备"

1 Y/ ~7 [( `" t' M; Y. ^Else
1 w( H; d2 i+ Q$ ^3 e( B- T$ i8 t# kIf Format(Now(), "hh:mm:ss") >= "12:50:00" Then MsgBox "
会议时间13:00快到了,你做好准备"
& a) G& r* u. |7 @. x! A4 U" z" ~
End If
( g- s! k  N. BEnd Sub
) ?% R4 q0 [+ {- H. l_________________________________________________________________
: {; c- `5 u! H4 s/ O3 f% {/ S
; r1 p( {- d8 p( Y3 ?    以上程序是IF Then的嵌套运费,在条件判断的句式中,IF的作用无可替代.

8 w2 D5 j( g  K. B) b: _; A8 w! a/ s  F0 g% C: o! j5 n$ s
[ 本帖最后由 wendy   于 2009-12-23 16:03 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,

0

主题

0

听众

312

积分

LV.4

Rank: 4

该用户从未签到

金币
6
威望
838
帖子
66
精华
0
发表于 2013-9-5 11:24 |显示全部楼层
继续学习。: c) [, }/ F& @1 a# M
回复

使用道具 举报

1

主题

0

听众

80

积分

LV.2

Rank: 2

该用户从未签到

金币
1
威望
125
帖子
61
精华
0
发表于 2013-9-7 21:20 |显示全部楼层
学习了,标记一下
回复

使用道具 举报

114

主题

20

听众

2万

积分

LV.18

Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18

签到天数: 1244 天

[LV.10]以坛为家III

金币
2144
威望
69396
帖子
4240
精华
0

优秀会员奖 活跃会员奖

发表于 2014-12-14 14:48 |显示全部楼层
了解一下        
回复

使用道具 举报

114

主题

20

听众

2万

积分

LV.18

Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18

签到天数: 1244 天

[LV.10]以坛为家III

金币
2144
威望
69396
帖子
4240
精华
0

优秀会员奖 活跃会员奖

发表于 2015-4-12 09:56 |显示全部楼层
jsdbplt 发表于 2014-12-14 14:48
& A; t4 q4 p  ^2 d了解一下

1 g# E. C0 ~9 G; J( g学习一下         
回复

使用道具 举报

114

主题

20

听众

2万

积分

LV.18

Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18

签到天数: 1244 天

[LV.10]以坛为家III

金币
2144
威望
69396
帖子
4240
精华
0

优秀会员奖 活跃会员奖

发表于 2015-7-26 12:29 |显示全部楼层
jsdbplt 发表于 2015-4-12 09:56 ) x- f* ~  B" v1 w% O% x
学习一下
( b9 Z) g1 ?4 {
参考一下              
回复

使用道具 举报

114

主题

20

听众

2万

积分

LV.18

Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18

签到天数: 1244 天

[LV.10]以坛为家III

金币
2144
威望
69396
帖子
4240
精华
0

优秀会员奖 活跃会员奖

发表于 2015-11-22 08:38 |显示全部楼层
再看一下              
回复

使用道具 举报

114

主题

20

听众

2万

积分

LV.18

Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18

签到天数: 1244 天

[LV.10]以坛为家III

金币
2144
威望
69396
帖子
4240
精华
0

优秀会员奖 活跃会员奖

发表于 2016-3-20 06:58 |显示全部楼层
jsdbplt 发表于 2015-11-22 08:38 3 }* E+ w; d& E4 |+ K! t
再看一下

7 O% \) E% O1 S) Q继续看           
回复

使用道具 举报

3

主题

4

听众

1万

积分

LV.15

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

签到天数: 1250 天

[LV.10]以坛为家III

金币
2413
威望
27956
帖子
3443
精华
0

优秀会员奖

发表于 2016-3-20 10:43 |显示全部楼层

$ M% A- c4 z- H9 g7 F2 N来学习教程!支持!
回复

使用道具 举报

114

主题

20

听众

2万

积分

LV.18

Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18

签到天数: 1244 天

[LV.10]以坛为家III

金币
2144
威望
69396
帖子
4240
精华
0

优秀会员奖 活跃会员奖

发表于 2016-7-17 09:32 |显示全部楼层
看一下              
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 更多账号登录:

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛 ( 粤公网安备 44049102496073号 粤ICP备13015957号-1   

GMT+8, 2018-1-22 16:31

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部