Question

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

问题：照片包含40个销售区域的月销售额。写一个使用for循环为每个其他行（第3,5行等）的内部着色的子灰色。仅为日期区域着色，列A到M

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

现在我选择整个当前区域，但我不知道如何选择每隔一行变为灰色

我的代码如下：

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

非常感谢！如果你能帮助我，我还有一个类似的问题insert color , For each loop 我希望你能帮助我!!!!!感谢!!!

Answer 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

对于每个循环，插入颜色

1 个答案: