VBA基础04-循环语句

VBA基础04--循环语句

用心了自然而然的就通了，沉下心去看10分钟就知道效果了

***************************************************************

****

Subtl()'注意循环语句面向的是有序有规律，有限次数或有

终止条件的

Range('d2')=Range('b2')*Range('c2')'看看这些都是有规律

可寻的，同一行单元格里D2=B2c2,下面也是同样

Range('d3')=Range('b3')*Range('c3‘)’一行行的处理起来,

还不如使用公式来便捷，当然这些个例题都是用来说明VBA很强大

Range('d4')=Range('b4')*Range('c4')你说一个函数搞定，

但是如果是数百的表要处理，你每次是不是都要输入一次函数，就算

是复制粘贴想想也觉着累

Range('d5')=Range('b5')*Range('c5')使用VBA就可以了,

点一下，全部搞定

Range('d6')=Range(*b6')*Range('c6')

EndSub

***

上面那些，下面一个过程搞定了

Subt2()

DimxAsInteger，定义一个整型变量x

Forx=10000To2Step-3，初始化x的初始值为10000至终

止值2,一看就是降序的方式，步副是-3

Rangefd'&x)=Rangefb'&x)*Rangefc'&x)'将上面过程

中的一个行拿过来修改一下0K,那个&是字符串拼接符，如：,b'&

x结果就是bx

Nextx

EndSub

***************************************************************

针对第一个过程里的操作，第二种操作方式如下

Subt3()

DimrgAsRange'这里不同以前看到的，它定义的是一个单元

格区域类型

ForEachrgInRange('d2:dl8')'这也是一个循环，这个循环使

用的方式是在已有的数据中循环提取出来进行处理

rg=rg.Offset(Oz-1)*rg.Offset^-2)'同时，这里的不是用单

元格的方式来运算，而是使用与当前格的绝对偏移来选取其它两个单

元格

Nextrg

EndSub

***************************************************************

****

使用do……loopUntil循环语句的方式处理

Subt4()

DimxAsInteger

x=1'这里给x一个初始值

Do

X=xr将x值循环加1,直到x的值等于18才登上循环，Until

英文意思就是直到….时候，才怎么样

Cells%4)=Cells(x,2)*Cells(x/3)'这里使用Cells(行数,列

数)的方式来选择单元格

LoopUntilx=18

EndSub

***************************************************************

使用DoWhile……loop循环的方式来实现

Subt5()

x=1'给x一个初始值，这里没有使用dim进行定义也是可以

的，就是vba的自由之处

DoWhilex<18'当x的值小于18时，开始执行以下代码

x=xl'每循环一次x1一次，直接它不小于18时，While的

条件不满足时，就会停止循环

Cells%4)=Cells%2)*Cells(xz3)

Loop

EndSub

再看两个例子吧

Subsl()

DimrgAsRange'定义一个区域类型，你懂的吧

ForEachrgInRange('al:b7,d5:e9')'看这个有啥不同，不错，

它可以有多个区域，但处理数据还是每次处理一个单元格

Ifrg="Then

rg=0

EndIf

Nextrg

EndSub

***********************************************************

下面是将判断语句嵌套在循环中

Subs2()

DimxAsInteger'注意这里定义了x是整型变量，但没有给初始

值，整型数据初始值默认为0

Do

X=X1

IfCells(x1,1)<>Cells(x,1)1Then'假设x=l,判断cells(2zl)

<>