VBA If语句结合文本匹配与日期工作日判断时报错排查

核心问题定位 #

• 核心逻辑失效原因：目标列偏移方向错误。遍历的单元格cl位于E列，要匹配同行C列的日期值，列偏移应为向左移动2列。原代码写的cl.Offset(, 2)是向右偏移2列，实际取数位置是G列，完全没有读取到C列的日期数据，这是判断结果完全不符合预期的根本原因。
• 直接触发编译报错的原因：语句结构不完整。VBA单行If判断必须在判断条件末尾追加Then关键字，原尝试代码的条件行缺失Then，会直接中断代码运行。
• 潜在运行时错误风险：如果C列对应单元格存储的不是合法日期格式（比如空值、非日期文本），直接把值传入Weekday函数会触发类型不匹配的运行时报错。

注：VBA本身不区分关键字大小写，原代码中全大写的AND不存在语法错误，不是触发报错的原因。

修正后的代码写法 #

如果希望把两个判断条件直接合并为单行If语句，正确写法如下：

' 合并判断逻辑：同时满足E列值为1ST、同行C列日期为工作日
If UCase(Trim(cl.Value)) = "1ST" And _
   IsDate(cl.Offset(0, -2).Value) = True And _
   Weekday(CDate(cl.Offset(0, -2).Value), vbMonday) < 6 Then

上述代码的规则说明：

• cl.Offset(0, -2)：行偏移量设为0表示保持同行位置，列偏移量设为-2表示向左偏移2列，精准定位同行C列单元格
• IsDate()函数：提前校验C列值是否为合法日期，避免类型不匹配报错
• Weekday(日期, vbMonday)：将周一设为一周起始，返回值范围1-7对应周一到周日，值小于6即代表周一到周五的工作日

如果需要完整的可运行过程代码，可参考如下结构：

Sub SetFormulasFormat()
    Application.ScreenUpdating = False
    Dim cl As Range

    With ActiveSheet      
        For Each cl In Application.Intersect(.Columns("E"), .UsedRange)
            ' 整合后的组合判断
            If UCase(Trim(cl.Value)) = "1ST" And _
               IsDate(cl.Offset(0, -2).Value) And _
               Weekday(CDate(cl.Offset(0, -2).Value), vbMonday) < 6 Then
                ' 此处写入满足条件后的操作逻辑
            End If
        Next cl
    End With
    Application.ScreenUpdating = True
End Sub

内容的提问来源于stack exchange，提问作者Aäron Coene