Question

我正在尝试编写一些将条件格式添加到工作表的vba代码，但是我一直遇到应用程序定义的错误。以下是我的代码

With sheet1.Range("C2:C")
  .FormatConditions.Delete
  .FormatConditions.Add Type:=xlExpression, Formula1:="=NOT(ISBLANK($B2))"
  .FormatConditions(1).Interior.ColorIndex = RGB(225, 242, 255)
End With

有关为何会发生这种情况的任何建议？

谢谢！

Answer 1

Range("C2:C")不是有效范围，修复后，或以下内容使其成为动态范围：

然后将您的ColorIndex更改为Color：

With Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row)
  .FormatConditions.Delete
  .FormatConditions.Add Type:=xlExpression, Formula1:="=NOT(ISBLANK($B2))"
  .FormatConditions(1).Interior.Color = RGB(225, 242, 255)
End With

条件格式错误

1 个答案: