批量数据范围的循环着色

Question

我试图使用循环使用背景色填充数据。 VBA在下面的代码中未显示任何错误，因此似乎可以正常工作。但是，工作表中没有任何效果。

您能告诉我我错过了什么吗？

我的数据包含第11行和14515行之间的值

我有31个部分的这些数据，其中每个部分正好有467行。我想为其中一些（每2个）上色，但不是全部。

Sub Background_color2()
    Sheets("14").Activate
    With Range("A479:FI945")
    For n = o To n = 14515 Step 934       '934 rows interval between 2  separate sections
        .Offset(n).Interior.Color = RGB(235, 241, 222)
    Next n
    End With
End Sub

Answer 1

您可以执行类似的操作。值可能需要调整。

Sub Background_color2()
    Dim n As Long
    For n = (11 + 468) To (11 + 31 * 468) Step (2 * 468)
        Sheet("14").Cells(n,1).Resize(467, 165).Interior.Color = RGB(235, 241, 222)
    Next n
End Sub

Answer 2

尝试

<input class="class-name" placeholder="1234567" name="elementname"  type="text" maxlength="4" onkeypress="return (event.charCode == 8 || event.charCode == 0 || event.charCode == 13) ? null : event.charCode >= 48 && event.charCode <= 57" />