下面我们将看看Excel VBA中创建模式的程序。
情况：
在您的工作表上放置一个命令按钮，并添加以下代码行：
1.首先，我们声明两个Integer类型的变量。一个叫i，另一个叫j。
暗淡我作为 整数，J 作为 整数
2.其次，我们添加两个For Next循环。
对于 i = 1 至 5 步骤 2
对于 j = 1 至 5 步骤 2
对于 j = 1 至 5 步骤 2
3.接下来，我们添加一行，将单元格的背景颜色更改为浅灰色。
单元格（i，j）.Interior.ColorIndex = 15
注意：您可以使用任何ColorIndex编号代替ColorIndex编号15（浅灰色）。
4.关闭两个For Next循环。
下一步 Ĵ
接下来我
接下来我
5.测试程序。
到目前为止的结果。
例如，对于i = 1和j = 1，对于i = 1和j = 3，Excel VBA为Cells（1,1）着色（步骤 2），对于i = 1和j = 3 ，Excel VBA为Cells（1,3）着色j = 5，Excel VBA为Cells（1,5）着色，i = 3（步骤2），j = 1，Excel VBA为Cells（3,1）着色，等等。
6.我们快到了。我们唯一需要做的就是为已经上色的单元格下面偏移 1行并在右边1列偏移的单元格着色。将以下代码行添加到循环中。
像元（i，j）。偏移量（1，1）.Interior.ColorIndex = 15
7.测试程序。
结果：
