条件付きフォーマットエラーVBA

Question

誰かがお手伝いできるかどうか疑問に思っていましたか？次の行にエラーが表示されます。

.Add Type:=xlExpression, Formula1:= _ 
    "=IF($E1<>"",AND($E1<TODAY(),$F1=""Awaiting Information"")) = 1" 

以下のコードがあります。

Sub ConditionalFormat() 

Sheets("NACO").Cells.FormatConditions.Delete 

With Worksheets("NACO").Columns("A:N").FormatConditions 
**.Add Type:=xlExpression, Formula1:= _ 
    "=IF($E1<>"",AND($E1<TODAY(),$F1=""Awaiting Information"")) = 1"** 
With .Item(.Count).Interior 
    .Color = 255 
End With 

.Add Type:=xlExpression, Formula1:= _ 
    "=IF($E1<>"",AND($E1<TODAY(),$F1=""On Going"")) = 2" 
With .Item(.Count).Interior 
    .Color = 225 
End With 

.Add Type:=xlExpression, Formula1:= _ 
    "=IF($E1<>"",AND($E1<TODAY(),$F1=""Awaiting Quotation"")) = 3" 
With .Item(.Count).Interior 
    .Color = 255 
End With 

.Add Type:=xlExpression, Formula1:= _ 
    "=$F1=""On Going"" = 4" 
With .Item(.Count).Interior 
    .Color = RGB(247, 150, 70) 
End With 
End With 
End Sub 

誰かがエラーが発生している理由を説明してください。それは ""と関係がありますか？

Answer 1

あなたはこの1に数式を変更してみてください：

=IF(AND($E1<>"",$E1<TODAY(),$F1="Awaiting Information")=1？