VBA动态表达式引用条件格式报错：运行时错误5（无效过程调用或参数）

错误原因分析 #

你遇到的运行时错误5，核心是条件格式的Formula1字符串拼接错误，还有变量声明不规范、冗余操作的问题：

• 静态录制的宏里Formula1:="=""Q3>=60"""是录制工具的冗余写法，实际条件格式表达式不需要额外包裹双引号；你动态拼接时多添加了闭合引号，导致公式格式非法。
• 变量声明不规范：Dim row1, row2, row3, row4 As Integer只有row4是Integer类型，其余变量默认是Variant，虽不直接引发错误，但易导致逻辑问题。
• 使用Select/Selection操作单元格，不仅低效还容易引发意外错误。

修正后的代码 #

Sub Cond_Format()
    Dim row1 As Integer, row2 As Integer, row3 As Integer, row4 As Integer
    Dim rng1 As Range, rng2 As Range, rng3 As Range
    Dim target1 As Range, target2 As Range, target3 As Range
    Dim form1 As String, form2 As String, form3 As String
    Dim i As Integer ' 补上循环变量的声明

    For i = 0 To 9
        row1 = 3 + (4 * i)
        row2 = row1 + 1
        row3 = row2 + 1
        row4 = row3 + 1

        Set rng1 = Range("E" & row2 & ":Q" & row2)
        Set rng2 = Range("E" & row3 & ":Q" & row3)
        Set rng3 = Range("E" & row4 & ":Q" & row4)

        Set target1 = Range("Q" & row1)
        Set target2 = Range("Q" & row1 & ":Q" & row2)
        Set target3 = Range("Q" & row1 & ":Q" & row3)

        ' 修正公式拼接：去掉多余引号，使用相对地址（参数False, False）
        form1 = "=" & target1.Address(False, False) & ">=60"
        form2 = "=SUM(" & target2.Address(False, False) & ")>=60"
        form3 = "=SUM(" & target3.Address(False, False) & ")>=60"

        ' 直接操作rng1，避免Select/Selection
        With rng1
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:=form1
            With .FormatConditions(1).Interior
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorLight1
                .TintAndShade = 0
            End With
            .FormatConditions(1).StopIfTrue = False
        End With

        ' 可按同样逻辑添加rng2和rng3的条件格式
        ' With rng2
        '     .FormatConditions.Delete
        '     .FormatConditions.Add Type:=xlExpression, Formula1:=form2
        '     ' ... 格式设置
        ' End With
    Next i
End Sub

关键修正点说明 #

1. 公式字符串修正：

   • 去掉冗余双引号，条件格式表达式直接写=Q3>=60即可，无需包裹成"Q3>=60"。
   • 使用Address(False, False)生成相对引用地址，确保条件格式应用到整行时，公式能正确对应目标单元格（若需绝对引用，可改用Address(True, True)）。

2. 变量声明规范：

   • 每个变量单独指定类型，避免隐式Variant类型。
   • 补上循环变量i的声明，避免未声明变量的潜在问题。

3. 避免Select操作：

   • 直接通过Range对象的With语句操作，代码更高效、稳定。

内容的提问来源于stack exchange，提问作者Hollywood