VBA工作表SelectionChange事件If条件为False却执行代码的问题

排查原因 #

以下是导致该异常的几个核心可能性：

• 全局变量DataSize时机错误：如果DataSize是在ReadTextFile函数内部赋值的，当前代码判断用的是上一次的DataSize值，而非本次目标文件的实际大小。比如上一次读取小文件后DataSize小于30000，这次选中大文件时，判断用旧值触发了代码执行，执行后DataSize才更新为大数值，此时监视窗口看到的是更新后的值，就会误以为条件为False却执行了代码。
• SelectionChange事件重复触发：工作表滚动、冻结窗格联动、选中时的格式刷新等操作，会导致该事件多次触发。第一次触发时条件为True并执行代码，第二次触发时条件变为False，但用户看到的是第二次的监视结果，误以为是这次触发执行了代码。
• Target对象不确定性：如果选中多个单元格，Target.Cells(1,1)取的是选中区域左上角单元格，而非用户预期的目标单元格。若此时监视的是其他单元格的值，就会出现条件显示为False，但实际执行用的是符合条件的左上角单元格值。
• 变量作用域冲突：如果模块或当前工作表代码中存在局部DataSize变量，会覆盖全局变量，导致判断时使用未初始化或错误的局部值。

修复方案 #

针对上述原因，给出递进式修复方案：

1. 修正判断逻辑，使用当前文件实际大小 #

放弃依赖全局变量，改为判断前直接获取目标文件的实际大小，确保判断的是本次要加载的文件：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim filePath As String
    Dim fileSize As Long
    
    ' 仅处理单个单元格选中的情况
    If Target.Cells.Count > 1 Then Exit Sub
    
    filePath = Trim(Target.Value)
    ' 验证是txt文件且文件存在
    If Right(filePath, 4) = ".txt" And Dir(filePath) <> "" Then
        ' 获取文件实际大小
        fileSize = FileLen(filePath)
        If fileSize < 30000 Then
            Me.Shapes("txtFileBox").TextFrame.Characters.Text = ReadTextFile(filePath)
        End If
    End If
End Sub

2. 防止事件重复触发 #

执行代码前关闭事件触发，避免多次执行：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim filePath As String
    Dim fileSize As Long
    
    If Target.Cells.Count > 1 Then Exit Sub
    
    ' 关闭事件触发
    Application.EnableEvents = False
    
    On Error GoTo RestoreEvents ' 确保出错时恢复事件
    
    filePath = Trim(Target.Value)
    If Right(filePath, 4) = ".txt" And Dir(filePath) <> "" Then
        fileSize = FileLen(filePath)
        If fileSize < 30000 Then
            Me.Shapes("txtFileBox").TextFrame.Characters.Text = ReadTextFile(filePath)
        End If
    End If
    
RestoreEvents:
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

3. 确保全局变量作用域正确（若坚持使用） #

如果必须用全局变量DataSize，请按以下方式调整：

• 在标准模块中声明全局变量：Public DataSize As Long，不要在工作表代码中声明。
• 在调用ReadTextFile前，先调用单独函数获取当前文件大小并赋值给DataSize，确保判断用的是最新值：

' 标准模块中代码
Public DataSize As Long

Public Function GetFileSize(filePath As String) As Long
    If Dir(filePath) <> "" Then
        GetFileSize = FileLen(filePath)
    Else
        GetFileSize = 0
    End If
End Function

然后修改工作表事件代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim filePath As String
    
    If Target.Cells.Count > 1 Then Exit Sub
    
    filePath = Trim(Target.Value)
    If Right(filePath, 4) = ".txt" Then
        DataSize = GetFileSize(filePath)
        If DataSize < 30000 And DataSize > 0 Then
            Me.Shapes("txtFileBox").TextFrame.Characters.Text = ReadTextFile(filePath)
        End If
    End If
End Sub

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