excel宏自动填充颜色

发布网友 发布时间：2022-07-02 01:42

我来回答

共5个回答

热心网友 时间：2023-10-23 05:36

首先1：把D2至D6弄成蓝色。2：选中D2至D11,用格式刷直接刷下来即可。
如果用宏是这样。
Sheets("AAA").Select'AAA是工作表的名称
Range("A2:A6").Select
Selection.Interior.ColorIndex = 33
Range("A2:A11").Select
Selection.Copy
Range("A2").Select
Application.Goto Reference:="R2C1:R501C1"
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

热心网友 时间：2023-10-23 05:36

用条件格式更方便。
选中第2到第500行，全部先设为白色，然后点菜单“格式”-“条件格式”
下拉框中选择“公式”，旁边输入公式 =MOD(ROW()-2,10)<5 点“格式”,设置图案为蓝色，确定即可。

热心网友 时间：2023-10-23 05:37

Sub abc()
Dim a, b As Integer
b = 1
For a = 2 To 500
If b <= 5 Then
Cells(a, 4).Interior.ColorIndex = 5
b = b + 1
ElseIf b <= 10 Then
Cells(a, 4).Interior.ColorIndex = 0
b = b + 1
If b = 11 Then b = 1
End If
Next a
End Sub

热心网友 时间：2023-10-23 05:37

写了一个请参考：

Sub MyColor()
For i = 2 To 500 Step 10
Range(Cells(i, 4), Cells(i + 4, 4)).Interior.ColorIndex = 5 '蓝色
Range(Cells(i + 5, 4), Cells(i + 9, 4)).Interior.ColorIndex = 2 '白色
Next i
End Sub

热心网友 时间：2023-10-23 05:38

条件格式即可做到。何必VBA？
条件公式 =and(mod(row(),10)>1,mod(row(),10)<7)