如果单元格值<>“”，则为条件格式（更改单元格颜色）

Question

为了提供一些背景信息，我运行了一个应用程序，基本上在按一下按钮的地方编写了代码：-

• 创建一个新工作表
• 新工作表中的“ A：L”列是有条件的格式
• 条件为： 如果A列中的任何单元格都具有值，则该单元格颜色为红色 。 同样，每列的颜色条件不同

为此，我在Sub中编写了以下代码段：

Dim condA As FormatCondition
Set condA = Range("A5:A500").FormatConditions.Add(Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="")

现在的问题是执行在Set statement处停止并出现错误：

无效的过程调用或参数

语句有什么问题，如果在单元格中输入了值或存在值，如何重写代码以更改列中任何单元格的内部颜色？ 谢谢！

Answer 1

如果要测试空白的单元格，请使用公式="" 。 要将公式作为Formula1参数放入，可以使用Formula1:="="""""

---

注意：这不会严格测试用户输入的任何值，因为用户可以在单元格中输入一个' ，或者他们可以在单元格中插入=""的公式，而这两个单元格都不会使用您的条件格式上色。 这可能不太可能成为问题，但如果是，则Formula1为"=AND(A5="""",A5=0)" （即测试单元格既是空白字符串又是数字零） -这应该只是True如果单元格是空的） 可能会奏效。 （未经测试）