vba for循环

本文是《王佩丰VBA》课程的总结版。第一课是for循环。

宏是针对固定位置的一组动作集合，vba是用vb书写宏的一种方式，另一种方法为宏录制。

加载开发工具

加载开发工具的步骤：文件→选项→自定义功能区→开发工具→录制宏→录完后执行宏

加载宏

宏是重复动作的集合

录制的方法是最简单的创建宏的方式，对一张表录制的宏操作，可以随即运用到其他表上，其他表的内容位置必须完全一样。

录制宏→删除ＣＤＥ→按住shift，移动J列→删选数据→停止录制

例子

相对引用的宏

改颜色
对当前单元格，填充紫色

Sub 宏1()   ’针对当前单元格，填充紫色
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10498160
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

绝对引用 选中H1，填充单元格颜色为紫色

Sub 宏2()
    Range("H1").Select 
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10498160
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

相对引用 向下3格，填充紫色

Sub 宏3()

    ActiveCell.Offset(3, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10498160
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

相对引用

VBA查看代码

界面

for循环

for循环针对重复步骤，起过程控制作用。重点在于找到重复的步骤。此例即用到相对引用，向下7行填充紫色，循环下一次重复进行。

for循环

for循环应用

【1】生成工资条

原表格

过程：选中第1行复制，到第3行，插入复制单元格。选中第3行复制，到第5行，插入复制单元格。循环往复。

重复过程：选中复制、向下2行、插入复制单元格。

生成工资条

【2】恢复工资条

恢复工资条

添加按钮：右键属性可以控制大小、位置都固定，还可修改名称。

按钮