订阅Excel VBA-----之for each.....next用法
来源：网络收集 点击： 时间：2024-03-12【导读】：
for each.....next用法：for each 变量 in 范围 .......Next：表示遍历该范围内的变量，做如下操作。工具/原料moreExcel软件方法/步骤1/3分步阅读
2/3
3/3
方法/步骤21/4
2/4
3/4
4/4
1、在Excel界面中初始化数据，对与如下数据。
实现功能：当性别为女时，标记为红色。
2/32、在VBE中编写如下代码：
Sub forEach()
Dim rg As Range
For Each rg In Sheet1.Range(b2:b10)
If rg = 女 Then rg.Interior.ColorIndex = 3
Next
End Sub
3/33、回到Excel界面中，插入形状--指定宏，指定刚刚定义的宏forEach；
4、运行该宏，运行结果如下图所示。
方法/步骤21/4二、实现功能：操作工作表。
1、在Excel界面中初始化数据，对与如下数据。
实现功能：在第4列中输出工作簿中所有的表名。
2/42、在VBE中编写如下代码：
Sub foreachNext2()
Dim ws As Worksheet, n As Byte
n = 1
For Each wsh In Worksheets
n = n + 1
Sheet1.Cells(n, 4) = wsh.Name
Next
End Sub
3/43、回到Excel界面中，插入形状--指定宏，指定刚刚定义的宏foreachNext2；
4、运行该宏，运行结果如下图所示，在第4列中已经插入了所有工作表的名称。
4/4综上所述，本文说明了for each....next在设置单元格属性颜色、工作簿中的应用。
注意事项注意单元格属性的设置方式
注意单元格的属性表达方式
EXCELVBEVBA单元格颜色版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_329482.html
