如果單元格值<>“”，則為條件格式（更改單元格顏色）

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如果單元格是空的） 可能會奏效。 （未經測試）