如何移除VBA中无需激活DataSheet的代码段并保留原活动单元格？

原代码通过选中并显示DataSheet来读取数据，这会导致Excel界面频繁闪烁，还会破坏用户运行宏前的活动单元格与工作表状态。只需通过直接引用工作表对象访问数据，无需切换选中状态，就能解决问题。

修改后的完整代码 #

Private Sub TextBox2_Change()
    ' 声明变量
    Dim row As Integer
    Dim dataSheet As Worksheet ' 新增工作表对象变量，提升代码可读性与维护性
    row = 1
    
    ' 绑定目标数据工作表
    Set dataSheet = ThisWorkbook.Sheets("DataSheet")

    ' 在DataSheet的A列查找匹配项
    Do While dataSheet.Range("A" & row).Value <> ""
        ' 找到匹配项时更新标签内容
        If dataSheet.Range("A" & row).Value = TextBox2.Text Then
            Label8.Caption = dataSheet.Range("A" & row).Value
            Label9.Caption = dataSheet.Range("B" & row).Value
            Label10.Caption = dataSheet.Range("C" & row).Value
            Label11.Caption = dataSheet.Range("D" & row).Value
            Label16.Caption = dataSheet.Range("E" & row).Value
            
            ' 找到匹配项后退出循环
            Exit Do
        End If
        
        ' 检查下一行
        row = row + 1
    Loop

    ' 未找到匹配项时统一更新标签提示
    If dataSheet.Range("A" & row).Value = "" Then
        Label8.Caption = "No match found"
        Label9.Caption = "No match found"
        Label10.Caption = "No match found"
        Label11.Caption = "No match found"
        Label16.Caption = "No match found" ' 补充原代码遗漏的标签提示
    End If
End Sub

关键改动说明 #

• 新增dataSheet变量绑定目标工作表，避免重复书写Sheets("DataSheet")，让代码更简洁易维护
• 所有单元格操作都添加dataSheet.前缀，直接访问DataSheet的单元格数据，完全不需要切换选中工作表
• 移除了原代码中控制DataSheet可见性、选中状态以及屏幕更新的代码，因为不再需要切换工作表，自然消除了界面闪烁和活动状态丢失的问题
• 补充了Label16的无匹配提示，保持所有关联标签的提示一致性

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