勾选框控制单元格清零与恢复：Collection存储数据失效求助

问题根源 #

原代码的核心缺陷是过程级变量的生命周期限制：

• originalDataCollection是在点击事件内部声明的，每次触发复选框点击都会重新创建空集合，导致取消勾选时集合中无任何存储的数据，自然无法恢复原值。
• 仅存储单元格值但未关联对应单元格的位置，即使集合有数据，恢复时也无法保证值对应到正确的单元格。

解决方案 #

使用模块级字典对象（Dictionary）存储数据，字典以单元格地址为键、原数据为值，确保两次复选框操作之间数据不会丢失，且能精准匹配到目标单元格。同时按要求忽略颜色设置，简化代码逻辑。

修改后的代码 #

首先在模块的最顶部（所有过程之外）声明模块级字典：

Dim originalDataDict As Object ' 模块级字典，跨过程留存单元格地址与原数据

然后修改复选框点击事件代码：

Private Sub CheckBox1_Click()
    Dim ws As Worksheet
    Dim cell As Range
    Dim targetValue As String
    Dim targetCell As Range
    
    targetValue = "СОК"
    Set ws = ThisWorkbook.Sheets("Лист1")
    
    ' 初始化字典（仅首次使用时执行）
    If originalDataDict Is Nothing Then
        Set originalDataDict = CreateObject("Scripting.Dictionary")
    End If
    
    If CheckBox1.Value = True Then
        ' 勾选状态：清零目标单元格并存储原数据
        originalDataDict.RemoveAll ' 清空旧数据，避免重复存储
        For Each cell In ws.Range("A1:AE61")
            If cell.Value = targetValue Then
                Set targetCell = cell.Offset(0, -2)
                ' 以单元格地址为键，存储对应原数据
                originalDataDict(targetCell.Address) = targetCell.Value
                ' 清零目标单元格
                targetCell.Value = 0
            End If
        Next cell
    Else
        ' 取消勾选状态：恢复原数据
        For Each cell In ws.Range("A1:AE61")
            If cell.Value = targetValue Then
                Set targetCell = cell.Offset(0, -2)
                ' 若字典中存在该单元格的存储数据，则恢复
                If originalDataDict.Exists(targetCell.Address) Then
                    targetCell.Value = originalDataDict(targetCell.Address)
                End If
            End If
        Next cell
        ' 恢复完成后清空字典，节省内存
        originalDataDict.RemoveAll
    End If
End Sub

代码说明 #

1. 模块级字典：在整个模块生命周期内存在，避免每次点击事件触发时重置数据。
2. 单元格地址作为键：确保每个单元格的原数据能精准对应，恢复时不会出现值错位的情况。
3. 勾选时清空字典：防止重复存储同一单元格的数据，避免冗余。
4. 恢复后清空字典：若不需要长期留存数据，可释放内存资源。

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