VBA基础04

VBA

基础

04--

循环语句

用心了自然而然的就通了，沉下心去看

10

分钟就知道效果了

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

**** 

Sub t1()         '

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

终止条件的

Range('d2') = 

Range('b2') 

* 

Range('c2') 

'

看看这些都是有规律

可寻的，同一行单元格里

 D2 = B2 C2 

，

下面也是同样

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') 

End Sub 

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

*** 

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

Sub t2() 

Dim x As Integer '

定义一个整型变量

 x 

For x = 10000 To 2 Step -3  '

初始化

 x 

的初始值为

 10000 

到

终

止值

 2

，一看就是降序的方式，步副是

 -3 

Range('d' & x) = Range('b' & x) * Range('c' & x) '

将上面过程

中的一个行拿过来修改一下

 OK

，那个

 & 

是字符串拼接符，如：

'b' & 

x  

结果就是

 bx