0

关于每个循环的插入颜色使用的另一个类似问题。

问题：照片包含 40 个销售区域的月销售额。编写一个子程序，使用 for 循环将每隔一行（第 3、5 行等）的内部涂成灰色。仅对日期区域着色，A 到 M 列

           http://postimg.org/image/vhvj83wwd/

现在我选择了整个 currentregion，但我不知道如何选择每隔一行变成灰色

我的代码如下：

Sub color()
Dim rngcolor As Range, rngcolors As Range, shtcolor As Worksheet

Set shtcolor = Application.Workbooks("Sales Data").Worksheets("sheet1")

Set rngcolors = shtcolor.Range("a1").CurrentRegion
Set rngcolors = rngcolors.Offset(1, 1).Resize(, rngcolors.Columns.Count - 1)

rngcolors.Select

For Each rngcolor In rngcolors
    rngcolor.Font.Interior = vbgrey
Else

Next rngcolor

End Sub

非常感谢！如果你能帮助我，我还有一个类似的问题插入颜色，对于每个循环 我希望你能帮助我！！！！！！谢谢！！！

4

1 回答 1

1

您可以使用带有步骤的 For.Next 循环

For i = rngcolor.Cells(1).Row to rngcolor.Cells(rngcolor.Cells.Count).Row Step 2

或者您可以在 For.Each 循环中测试行号

If rngcolor.Row Mod 2 = 1 Then
于 2013-10-27T16:55:13.553 回答