录制了一个条件格式宏代码出现1004错误请高手帮忙

xpmiemiezhou

我在表内录制了一个设置条件格式的宏，如图所示 条件为=SUM($W8:$X8)<>$Y8时Y8单元格填充为红色并显示不正确，反之则不填充红色且正常显示。

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("Y8:Y43").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=SUM($W8,$X8)<>$Y8"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    ExecuteExcel4Macro "(2,1,""""不""""正""""确"""")"
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
End Sub

以上是录制 的宏
但是录制出来的宏不能运行，提示运行时错误1004并指向    ExecuteExcel4Macro "(2,1,""""不""""正""""确"""")"。请高手帮忙修改一下，谢谢！

autohotey

你这条件格式不是已经实现了吗？
代码供参考

1. 
   
2. Sub y列标红()
   
3.     Dim lastRow As Long
   
4.     lastRow = Cells(Rows.Count, "W").End(xlUp).Row
   
5.     Range("Y2:Y" & lastRow).Interior.ColorIndex = xlNone '计算前清除Y列颜色
   
6.     For i = 2 To lastRow
   
7.         If Cells(i, "W").Value + Cells(i, "X").Value <> Cells(i, "Y").Value Then
   
8.             Cells(i, "Y").Interior.Color = 255
   
9.         End If
   
10.     Next i
    
11. End Sub
    

复制代码