下面我们就来看看在Excel VBA程序创建一个模式。

现状：

Create a Pattern in Excel VBA

将工作表上的一个命令按钮并添加以下代码行：

1.首先，我们声明整数类型的两个变量。一位叫我和一个名为学家

Dim i As Integer, j As Integer

2.其次，我们添加两个供下次循环。

For i = 1 To 5 Step 2

For j = 1 To 5 Step 2

3.接下来，我们添加这改变了细胞的背景颜色为浅灰色的行。

Cells(i, j).Interior.ColorIndex = 15

注：代替ColorIndex 15号（浅灰色），你可以使用任何ColorIndex数量。

4.关闭两个对于下一步循环。

Next j

Next i

5.测试程序。

到目前为止结果。

Crate a Pattern Result so Far

步骤2）时，Excel VBA颜色将细胞（1,3），对于i = 1和j = 5时，Excel VBA颜色细胞（1,5），对于i = 3（步骤2）和j = 1时，Excel VBA颜色细胞（3,1）等

偏移1行下方的1列的单元格的右边已经着色。下面的代码行添加到循环。

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

7.测试程序。

结果：

Create a Pattern Result