编写VBA代码时遇Compile Error: Expected: expression错误，请求排查

编译错误原因 #

代码出现Compile Error: Expected: expression的核心原因：

• 当Target.Value是日期类型时，直接对其使用Left、Mid、Len这类字符串处理函数，而这些函数仅支持字符串类型参数，无法直接作用于日期数值，导致编译失败。
• 额外隐患：未处理Target为多单元格选区的情况，直接调用Target.Value会引发运行时错误。

修复后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim tbl As ListObject
    Dim tblCol As Range
    Dim cell As Range
    Dim dateStr As String
    
    ' 禁用事件防止循环触发
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 错误处理，确保事件恢复
    
    Set tbl = ActiveSheet.ListObjects("DATATABLE")
    Set tblCol = tbl.ListColumns("Value Date(dd/mm/yyy)").DataBodyRange
    Set rng = Intersect(Target, tblCol)
    
    If Not rng Is Nothing Then
        ' 遍历每个被修改的单元格（处理多选区情况）
        For Each cell In rng
            If cell.Value <> "" Then
                ' 先将值转为字符串，避免日期类型冲突
                dateStr = CStr(cell.Value)
                
                ' 验证格式与有效性
                If Not IsDate(cell.Value) Then
                    MsgBox "Please enter a valid date in DD/MM/YYYY format."
                    cell.Value = ""
                ElseIf Len(dateStr) <> 10 Then
                    MsgBox "Please enter a valid date in DD/MM/YYYY format."
                    cell.Value = ""
                ElseIf CInt(Mid(dateStr, 3, 2)) > 12 Or CInt(Left(dateStr, 2)) > 31 Then
                    MsgBox "Please enter a valid date in DD/MM/YYYY format."
                    cell.Value = ""
                Else
                    ' 检查列中是否有空单元格
                    If WorksheetFunction.CountBlank(tblCol) > 0 Then
                        MsgBox "Please enter a date in all cells of the column."
                        cell.Value = ""
                    End If
                End If
            Else
                ' 空值时检查列完整性
                If WorksheetFunction.CountBlank(tblCol) > 0 Then
                    MsgBox "Please enter a date in all cells of the column."
                    cell.Value = ""
                End If
            End If
        Next cell
    End If

Cleanup:
    Application.EnableEvents = True ' 恢复事件
End Sub

关键修改点 #

• 类型兼容处理：将日期值转为字符串dateStr后再使用字符串处理函数，解决类型不兼容问题。
• 多单元格适配：通过For Each cell In rng遍历每个修改的单元格，避免多选选区触发错误。
• 事件循环防护：添加Application.EnableEvents控制，防止修改单元格时重复触发Worksheet_Change事件。
• 容错保障：添加错误处理分支，确保即使代码出错也能恢复Excel的事件响应状态。

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