当前所在位置: 首页 > 儿童教育 > 正文

excel图表有条件的循环(1)—Do While循环

2023-01-26 餐饮美食网 【 字体:

在上一篇文章中,我们介绍的For-Next循环,能够按照指定的数值进行有限次的循环。下面介绍在满足指定的条件时才执行相应代码块的循环结构,先来看看Do While循环。

按照惯例,先举一个例子。下面的代码从当前单元格开始,逐行显示单元格的内容,直到碰到空单元格为止。如果第一个单元格就为空,则不会执行循环。

Sub DoWhile0()

Dim i As Integer ‘声明变量

i = 1 ‘初始化变量

Do While Cells(i, 1).Value <> “”

MsgBox “单元格A” & i & “的内容为:” & Cells(i, 1).Value

i = i + 1

Loop

End Sub

例如,在单元格区域A1:A5中依次输入数字1、2、3、4、5,将当前单元格置于A1单元格(如所示),运行上面的代码,将依次显示数字1、2、3、4、5。

Do While循环的基本语法结构如下:

Do [While 条件语句]

[语句块]

[Exit Do]

[语句块]

Loop

或者:

Do

[语句块]

[Exit Do]

[语句块]

Loop [While 条件语句]

说明:

按照惯例,方括号中的内容表示可选项。

条件语句可以放在循环的开始处或者结尾处。如果放在开始处,那么先评估条件,满足条件要求,就执行循环里面的语句;这种情况下,当始终不满足条件时,就有可能一次也不会执行循环里面的语句。如果放在结尾处,则至少会执行一次循环里面的语句。

Exit Do语句表示提前退出循环。

将条件放置在结尾处,前面的示例代码修改如下:

Sub DoWhile01()

Dim i As Integer ‘声明变量

i = 1 ‘初始化变量

Do

MsgBox “单元格A” & i & “的内容为:” & Cells(i, 1).Value

i = i + 1

Loop While Cells(i, 1).Value <> “”

End Sub

此时,如果单元格A1为空,也会显示一条消息框,然后退出循环。

用框图分别表示Do While循环的两种语法形式如下:

如果熟悉了Excel中的常用对象及其属性,也可以将上面的代码修改如下,实现相同的结果。

Sub DoWhile1()

Do While ActiveCell.Value <> “”

MsgBox “当前单元格的内容为:” & ActiveCell.Value

ActiveCell.Offset(1, 0).Activate

Loop

End Sub

其中,Offset属性表示下移一个单元格,即当前单元格下面的单元格。(单元格的常用属性将在后续文章中详细介绍)

将条件放置在结尾处,前面的示例代码修改如下:

Sub DoWhile2()

Do

MsgBox “当前单元格的内容为:” & ActiveCell.Value

ActiveCell.Offset(1, 0).Activate

Loop While ActiveCell.Value <> “”

End Sub

下面,为更深入理解Do While循环,我们来改写上一篇中用来说明For-Next循环的示例。

示例1:如果想要在工作表单元格区域A1:A10中依次填写数字1至10,也可以使用下面的包含Do While循环的代码:

Sub DoWhile3()

Dim i As Integer ‘声明变量

i = 1 ‘给变量赋初始值

‘循环

Do While i <= 10

Cells(i, 1).Value = i

i = i + 1

Loop

End Sub

注意,与For-Next循环不同的是,在进入循环之前,需要先给变量i赋初始值。在循环中,还需要能够增加变量的值。

示例2:下面的代码使用Do While循环求1至100的和,并显示结果。

Sub DoWhile4()

‘声明变量

Dim i As Integer

Dim sum As Integer

‘给变量赋初值

i = 1

sum = 0

‘循环并显示结果

Do While i <= 100

sum = sum + i

i = i + 1

Loop

MsgBox “1至100的和为:” & sum

End Sub

示例3:下面的代码使用Do While循环求1至100之间的偶数和并显示结果。

Sub DoWhile5()

‘声明变量

Dim i As Integer

Dim sum As Integer

‘给变量赋初值

i = 1

sum = 0

‘循环并显示结果

Do While i <= 100

If (i Mod 2 = 0) Then

sum = sum + i

End If

i = i + 1

Loop

MsgBox “1至100的和为:” & sum

End Sub

在编写程序时,我们可以使用多种方法实现想要的结果,您可以根据具体情况选择实现方式,这也是编程的一大美妙之处。

阅读全文
相关推荐

如何自制蛋挞

如何自制蛋挞
1、倒入低筋面、黄油和水,揉成面团状,藏一小时后取出,抹上黄油卷起,包上保鲜膜冷藏半小时。2、取出,将面团切成一厘米的面团,放入模具内,用力按压,中间稍薄,外缘要比模具高,将蛋挞液倒入蛋挞皮中,放入烤箱里烤30分钟即可。

肉火烧面怎么和面

肉火烧面怎么和面
1、首先用温水把酵母融开,加入面粉,用手把面粉揉成非常软的面团,可以放一点熬好的猪油在面团里面。2、然后放在温暖的地方,盖上保鲜膜发酵至2倍大,发好的面团用手插入不回缩,就说明面团发酵好了。

奶茶几分糖好喝

奶茶几分糖好喝
1、不同的人对奶茶的口感要求是不一样的,一般来说,奶茶有三分糖、五分糖、七分糖三种不同的口味。2、女生一般都喜欢喝甜一点的,而男生则喜欢喝不那么甜的,七分糖的奶茶最好喝。

过桥米线是哪里的?

过桥米线是哪里的?
过桥米线是来自云南省滇南地区的一种有名特色小吃。过桥米线最早是在清朝就已经出现,距离现在至少有一百多年的历史啦!起源于建水县东城外锁龙桥西侧的鸡市街头处,有建水的特产草芽、地椒作配料,风味独特而远近闻名。深受广大美食爱好者的喜欢,不少人为此专门长途跋涉,只为尝

面霜和乳液的区别

面霜和乳液的区别
面霜和乳液的区别,相较而言乳液的水分含量要比面霜高,乳液质地要轻薄一些,乳液主要作用是保湿,滋润可以隔离外界干燥的气候,面霜既可保湿,又可美白,还能抗衰老,乳液的吸收快一些,而面霜吸收比较慢一些,因为液体的吸收速度都比较快。

怎么摘隐形眼镜

怎么摘隐形眼镜
在摘隐形眼镜之前,先用洗手液将手清洗干净,以免将细菌带入眼睛内,对着镜子,用右手中指轻拉眼睛下眼睑,左手中指轻拉眼睛上眼睑,让黑色眼球暴露在空气中,用右手食指和拇指轻触镜片的两边缘部分,向中间推使镜片拱起,再用两手指轻轻捏出镜片即可。

粉饼和散粉的区别

粉饼和散粉的区别
粉饼是呈压缩固体状态,多呈圆形或者方形,散粉则是细腻的粉末状,粉饼遮瑕力会比较强一些,可以湿用做粉底,或者用来补妆,而散粉则是定妆的效果,粉饼通常用在底妆的第一步,而散粉通常用在底妆最后一步。

冷烫和热烫的区别

冷烫和热烫的区别
冷烫和热烫的区别:冷烫对头发的要求是要在保温状态下才能给卷有个好的效果,而热烫是在干和湿的情况下都行,热烫烫出来的头发比较自然明显而有弹力,冷烫的头发风干后基本看不出来,并且发质会有点干。

高品质香水如何鉴别?用三步就可以解决

高品质香水如何鉴别?用三步就可以解决
1、看色泽以天然香料调制而成的高级香水,都有它本来的颜色,且大都是琥珀色或褐色,看起来很像宝石,比如,从茉莉、玫瑰或水仙等天然鲜花中所萃取的精油都呈黄色、褐白或绿褐色;此外,香水中所添加的魅惑香气物性香料也是褐色,苔类中的橡树苔是绿色,从树根或树根脂类中萃取的

如何去除黑眼圈

如何去除黑眼圈
去除黑眼圈首先可以用热毛巾敷眼,然后再用冷毛巾敷,十分钟就能让黑眼圈淡化的不那么严重,其次将去壳后的鸡蛋用无菌纱布包裹住,敷于眼部轻轻转动,可以急救去除黑眼圈,另外抹完眼霜后,用双手顺时针按摩,可以促进血液循环消除黑眼圈。
本文Tag