vba for循环

2020-07-12  本文已影响0人  水鸟归巢

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

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

加载开发工具

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

加载宏

宏是重复动作的集合

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

录制宏→删除CDE→按住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】恢复工资条


恢复工资条

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

按钮
上一篇下一篇

猜你喜欢

热点阅读