1、打开一个表格文件,下面操作将演示如何使表格隔行变色;
2、按组合按键【Alt+F11】调出VBA编辑器,插入宏取名为【隔行变色】;
3、插入循环体,通过循环语句依次遍历行,演示1000行(For i = 1 To 1000 Next);
4、在循环体内插入语句If i Mod 2 = 0 Then Rows(i).Inte筠续师诈rior.Color = vbYellow,获取双数行并设置其内部颜色为黄色;
5、执行后,表格实现了隔行变色。
时间:2024-10-12 21:20:37
1、打开一个表格文件,下面操作将演示如何使表格隔行变色;
2、按组合按键【Alt+F11】调出VBA编辑器,插入宏取名为【隔行变色】;
3、插入循环体,通过循环语句依次遍历行,演示1000行(For i = 1 To 1000 Next);
4、在循环体内插入语句If i Mod 2 = 0 Then Rows(i).Inte筠续师诈rior.Color = vbYellow,获取双数行并设置其内部颜色为黄色;
5、执行后,表格实现了隔行变色。