[灌水]VBA循环语句（今天学的东西~）

lzh95957 · 发表于 2008-4-3 21:04

<div class="content" id="BodyLabel" style="

ADDING-RIGHT: 10px; DISPLAY: block; PADDING-LEFT: 10px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px;"><h2 style="MARGIN: 6pt 0cm;">VBA循环语句</h2>1）For Next语句 以指定次数来重复执行一组语句For counter = start To end [Step step]              ' step 缺省值为1[statements][Exit For][statements]Next [counter]如1：For Words = 10 To 1 Step -1             ' 建立 10 次循环    For Chars = 0 To 9                  ' 建立 10 次循环        MyString = MyString & Chars     ' 将数字添加到字符串中    Next Chars                          ' Increment counter    MyString = MyString & " "           ' 添加一个空格Next Words2）For Each…Next语句  主要功能是对一个数组或集合对象进行，让所有元素重复执行一次语句For Each element In groupStatements[Exit for]StatementsNext [element]如1：For Each rang<chmetcnv wst="on" unitname="in" sourcevalue="2" hasspace="True" negative="False" numbertype="1" tcsc="0">2 In</chmetcnv> range1With range2.interior.colorindex=6.pattern=xlSolidEnd withNext这上面一例中用到了 With…End With 语句，目的是省去对象多次调用，加快速度；语法为：With object[statements]End With3）Do…loop语句在条件为true时，重复执行区块命令Do {while |until} condition' while 为当型循环，until为直到型循环，顾名思义，不多说啦StatementsExit doStatements<place wst="on">Loop</place>或者使用下面语法Do                          ' 先do 再判断，即不论如何先干一次再说StatementsExit doStatementsLoop {while |until} condition</div>

办公软件123 · 发表于 2010-3-25 20:07

比我强的都是我的老师[em09]

haoyu2645 · 发表于 2010-3-31 19:04

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			注册

haoyu2645 haoyu2645 当前离线积分 5 IP卡狗仔卡	发表于 2010-3-31 19:04 \| 显示全部楼层工作中最常用的Excel函数公式，全印在一张鼠标垫上提示: 作者被禁止或删除内容自动屏蔽
haoyu2645 haoyu2645 当前离线积分 5 IP卡狗仔卡
	回复使用道具举报显身卡

[习题] [灌水]VBA循环语句（今天学的东西~）

浏览过的版块