数字化工具VBA实战经验之三：VBA三种基本类型语句

伙伴们，大家好。今天分享VBA三种基本类型语句，仅供参考。我们每天进步一点，梦想更近一步。

思语：天下难事，必作于易；天下大事，必作于细。

      世人一直在追寻自己生命中的贵人，其实贵人的发源地就是自己本身。由于身世、年龄、经历、思想、性格、包容、境遇、阶段、方向、方法、心态、行为、习惯、资源不同，从空间维度看，每个人都处于不同的楼层，摆在我们面前的就是要突破自己所在楼层的天花板，向上能到多少层，不确定，至少先向上拓展一层。

      VBA三种常用类型语句有顺序结构语句、条件控制语句、循环结构语句。

1、顺序结构语句。

     通俗讲就是按部就班的语句，程序按照我们事先编译代码的顺序执行，而我们编译的代码又基于业务目标、业务流程而定，在运行过程中顺风顺水，道路平坦没有洼地，一步到底。

案例：在合并利润表中按如下代码的先后顺序实现相应的功能。

执行代码前，在VBA代码窗口输入如下代码。

Sub test1() 'test1是过程名称，可以根据代码管理需求自定义

Range("A20").Interior.Color = 49407 '销售费用填充橙色

Range("A21").Font.Size = 18 '管理费用的字号设置为：18磅

Range("A23").Font.Bold = True '财务费用加粗

End Sub

按F8功能键逐语句执行代码后：

2、条件控制语句。

      指有条件的选择执行相关语句。达到预设条件就执行，未达到预设条件就不执行（绕过或忽略的意思）。通俗讲就是只要你满意，你就乐意去做某件事；不满意，你就会视而不见，不做某件事。

案例：在合并利润表中如果A20单元格的值为：销售费用项目，则填充橙色，否则不执行任何操作。

执行代码前，在VBA代码窗口输入如下代码。

Sub test2()

'如果A20单元格的值为：销售费用项目，则填充橙色，否则不执行任何操作。

If Range("A20").Value = "销售费用" Then

    Range("A20").Interior.Color = 49407 '填充橙色

End If

End Sub

按F8功能键逐语句执行代码后：

3、循环结构语句

       指重复执行某个操作的语句。比如，在工作表中对目标区域里的单元格逐个填充橙色；再比如，我们在第一次拨打中国境内新手机号码时，需要在手机面板上按键11次，这11次的行为就是在重复执行按键动作。

案例：在合并利润表中对A20:A23区域里的单元格逐个填充橙色。

执行代码前，在VBA代码窗口输入如下代码。

Sub test3()

Dim myrng1 As Range '定义对象变量

Dim myrng2 As Range '定义对象变量

Set myrng1 = Sheets("sheet1").Range("A20:A23") '对象变量赋值

For Each myrng2 In myrng1'在A20:A23区域循环执行 

       myrng2.Interior.Color = 49407 '填充橙色

Next

End Sub

按F8功能键逐语句执行代码后：