vba do loop的几个例子

诚信合作475

诚信合作475

2016-02-19 14:06

在这个颜值当道,屌丝闪边的时代,拼不过颜值拼内涵,只有知识丰富才能提升一个人的内在气质和修养,所谓人丑就要多学习,今天图老师给大家分享vba do loop的几个例子,希望可以对大家能有小小的帮助。

一、DoLoop语句的语法

Do[While I Until逻辑表达式]

循环体

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)

Loop[While I Until逻辑表达式]

当逻辑表达式的值为True时,使用While关键字执行循环体,直到逻辑表达式的值为False时跳出循环体,即执行Do While-Loop循环语句。

当逻辑表达式的值为False时,使用Until关键字执行循环体,直到逻辑表达式的值为True时跳出循环体,即执行Do Until-Loop循环语句。

在大多数情况下Do while.Loop循环语句与Do UntilLoop循环语句可以互换使用,只需将循环条件取反即可。但对于需要先判断再执行的一些操作,最好使用Do While-Loop循环语句。

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)

另外,使用Do-Loop循环语句时,需要在循环体内使用Exit Do语句跳出Do-Loop循环,进而执行Loop后面的一条语句。

二、doloop的几个例子

①例子

Dim myCnt As Long

myCnt = 1

Do While myCnt = 5

Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value

myCnt = myCnt + 1

Loop

当myCnt小于等于5时循环,否则就退出循环。

②例子

Dim myCnt As Long

myCnt = 1

Do

Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value

myCnt = myCnt + 1

Loop While myCnt=5

③例子

Dim myCnt As Long

myCnt = 1

Do

Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value

myCnt = myCnt + 1

If myCnt5 Then Exit Do

Loop

④例子

counter = 0

myNum = 9

Do Until myNum = 10

myNum = myNum - 1

counter = counter + 1

If myNum 10 Then Exit Do

Loop

MsgBox "The loop made " & counter & " repetitions."

展开更多 50%)
分享

猜你喜欢

vba do loop的几个例子

电脑入门
vba do loop的几个例子

vba Do Until

电脑入门
vba Do Until

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

LineDDA的一个例子

编程语言 网络编程
LineDDA的一个例子

用XMLHTTP很好的一个例子

Web开发
用XMLHTTP很好的一个例子

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

使用JSP + JAVABEAN + XML 开发的一个例子

Java JAVA基础
使用JSP + JAVABEAN + XML 开发的一个例子

断开的数据库连接的一个例子

ASP
断开的数据库连接的一个例子

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

如何在Win9x/2k下建立共享目录

如何在Win9x/2k下建立共享目录

如何在Word2007文档中去掉修改标记

如何在Word2007文档中去掉修改标记
下拉加载更多内容 ↓