VBA excel，用颜色填充每个其他执行的行

Question

我在使用这部分代码时遇到了问题。到目前为止它是正确的，但我需要用颜色填充每隔一行，并且所有行都带有边框

完整代码的目的：每次用户按下添加项目按钮时，程序都会运行，并将数据行添加到表格的下一行。

If IsNumeric(Quantity) And Quantity >= 1 Then
  While Not IsEmpty(Range("I12").Offset(i, 0))
    i = i + 1
  Wend
  Range("G13").Offset(i - 1, 0).Value = item_no
  Range("H13").Offset(i - 1, 0).Value = itemDescription
  Range("I13").Offset(i - 1, 0).Value = Quantity
  Range("J13").Offset(i - 1, 0).Select
  Selection.Offset(0, 0) = Quantity * itemValue
Else:
  Quantity = False Or Quantity = vbCancel
  QtyError = MsgBox("Please enter a valid purchase quantity!", _
        vbCritical, "Incorrect Purchase Quantity")
End If

Answer 1

根据您的评论，我使用条件格式发布解决方案：

1. 选择要格式化的单元格。
2. 从菜单中选择条件格式。
3. 点击“使用公式确定要格式化的单元格”
4. 输入我在=mod(row(), 2)
上方发布的公式
5. 进行所需的格式化选择，然后单击“确定”进行确认。



注意，如果您使用Excel宏录制器录制您的操作，那么您还可以将VBA代码合并到您的程序中。