Excel VBA类模块未主动调用属性却自动执行修改数据问题求助

核心根本原因 #

你遇到的"单步正常、直接运行断点数据异常"的现象，本质是VBA调试器的自动属性求值特性导致的，并非你的代码逻辑主动预执行了moves属性：

• 当你在断点处暂停时，VBA的本地窗口会自动读取对象的所有属性值用于展示，这个过程会隐式触发moves属性的Get过程
• 你的moves属性Get过程存在副作用：会直接修改类内部的tubes集合，即使后续有撤销逻辑，如果你在断点查看的时间点刚好落在"修改完成、还未执行撤销"的窗口，就会看到异常的修改后数据
• 单步调试时，调试器不会提前枚举所有属性值，所以不会触发隐式的moves调用，运行就符合预期

其他隐藏风险 #

同时你的代码还存在两个容易引发后续异常的设计问题：

1. 类成员变量滥用：tempx、tempy被声明为类的全局成员，你在isvalid函数中修改这两个值，会在不同方法调用时互相干扰
2. 属性设计不规范：Get属性原则上应该是无副作用的只读操作，你把修改内部状态的逻辑写在Get过程中，不符合VBA类的设计规范，容易触发不可预期的问题

修复方案 #

第一步：先验证根因（快速复现验证） #

打开VBA编辑器，点击顶部菜单栏工具 → 选项 → 通用，取消勾选自动计算属性和变量、自动列出数据提示，再运行代码到断点，此时tubes的值就会和单步调试时一致，不会出现异常修改。

第二步：代码逻辑优化 #

1. 改造moves属性为无副作用逻辑：计算合法移动时，操作tubes的深拷贝，不要直接修改原对象的内部集合，示例修改思路：

Property Get moves() As Collection
    ' 先拷贝一份tubes的副本，所有移动操作都在副本上执行，不碰原tubes
    Dim tubesCopy As Collection
    Set tubesCopy = New Collection
    Dim arr As Variant
    For Each arr In tubes
        Dim newArr() As Variant
        ReDim newArr(UBound(arr))
        Dim i As Integer
        For i = 0 To UBound(arr)
            newArr(i) = arr(i)
        Next
        tubesCopy.Add newArr
    Next
    ' 后续所有移动判断、修改操作都基于tubesCopy执行，完全不影响原tubes
    ' 剩下的逻辑不变，不需要再做撤销操作
End Property

2. 把tempx、tempy改为方法内部的局部变量，不要作为类的全局成员，避免不同调用逻辑互相覆盖值
3. 建议把生成合法移动的逻辑从属性Get中剥离，改为独立的GetValidMoves方法，逻辑上更清晰，也避免调试器隐式调用的问题

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