快速上手VBA_02 for循环和do while循环 「90%使用率」

说明：循环语句在我们之后的实战中使用率会极其的高，是我们解决重复工作的利器之一！

循环语句的逻辑图：

For 循环

For 循环变量= 初始值 To 终止值 step［步长］
				循环体语句
Next循环变量

循环变量：该参数为必选参数，用于设置循环次数的计数变量名。

初始值：此参数为必选参数，用于设置循环变量的初始值。

终止值：该参数为必选参数，用于设置循环变量的终止值。

步长：该参数为可选参数，用于设置循环变量在每次循环后变化的数值，其默认值为1。

需求：用代码计算1月预算。

Sub for循环()
    
    Dim i
    
    For i = 5 To 7
    
        Range("C" & i) = Range("B" & i) * Range("B2")
    
    Next
End Sub

For each 遍历

说明：循环指定范围内的所有元素。

For Each 成员变量 In 数组或集合对象
				语句块
Next［变量］

成员变量：该参数用于变量数组或对象集合中的所有元素。

数组或对象集合：该参数为数组名或对象集合名称。

语句块：由一条或多条语句组成，我们需求的操作。

需求：用代码，在A1：A10单元格填入1-10的数字序号。

Sub 序号()
    Dim a As Range, i
    i = 1
    For Each a In Range("A1:A10")
        a = i
        i = i + 1
    Next
End Sub

do while循环

说明：一共有4个循环语句，分别如下：

Do While…Loop——先进行条件判断后循环Do…Loop while——先循环后进行条件判断Do Until…Loop——先进行条件判断后循环Do …Loop Until——先循环后进行条件判断

Do While…Loop语句的流程图

Do Until…Loop语句的流程图

Do…Loop While语句的流程图

Do…Loop Until语句

以此为例，其余三项不赘述；此语句使用较多。

1、语法：

Do While 条件判断句
       如果条件为真需要执行的语句
Loop

2、实战用法：

需求：用代码在B列添加一行数字，为A列的每个数字加1.

3、实战代码：

说明：i为循环元素，

Sub dowhile()
    i = 1
    
    Do While Range("a" & i)  ""         ’----------只要Range("a" & i)不为空，则执行
    
        Range("b" & i) = Range("a" & i) + 1
        
        i = i + 1      ’----------用来循环单元格
        
    Loop
End Sub

4、图示：

说一说：刚开始几篇可能比较枯燥，因为这些基础我们必须理解，知道其用法，后期我将以实际案列，我们一句一句来解读复杂模型里的语句，极其实现的功能。

举个复杂的自动化例子：

要做一个自动搭建预测、月报、预算等模型，如下图：

自动搭建一个模板出来，并且其内部公式自动生成计算逻辑，手工操作包括设置公式在内，可能需要不少于30分钟，还得检查计算是否有误。但是，代码几秒钟就搞定了。只需要你把信息也填好，其他的交给代码就行。

但这都需要我们一步一步的来！

模型动图：

———END———
限 时 特 惠： 本站每日持续更新海量各大内部创业教程，永久会员只需109元，全站资源免费下载 点击查看详情
站 长 微 信： nanadh666