Excel实现两百分比单元格自动互补求和至100%的VBA问题

需求：Excel中D7和G7两个单元格存储百分比数值，要求二者之和始终为100%，修改其中任意一个单元格时，另一个自动同步更新。

之前的尝试问题 #

• 第一段代码仅能实现从D7到G7的单向更新，修改G7时D7不会同步
• 第二段代码支持双向触发，但因事件循环导致输入的原始值丢失

尝试过的代码 #

第一段单向更新代码

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$7" Then
        Range("G7") = "1-D7"
    End If
End Sub

第二段双向但循环的代码

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case "$D$7":
            Range("G7") = "=1-D7"
        Case "$G$7":
            Range("D7") = "=1-G7"
    End Select
End Sub

可行解决方案 #

核心是修改另一个单元格时临时关闭事件触发，避免循环调用Worksheet_Change，同时直接赋值计算后的数值（而非公式），防止循环引用：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理D7或G7的修改
    If Target.Address <> "$D$7" And Target.Address <> "$G$7" Then Exit Sub
    
    ' 关闭事件触发，避免循环
    Application.EnableEvents = False
    
    On Error GoTo ResetEvents ' 确保出错时也能恢复事件
    
    If Target.Address = "$D$7" Then
        ' 计算G7的数值：100%减去D7的值
        Range("G7").Value = 1 - Target.Value
    ElseIf Target.Address = "$G$7" Then
        ' 计算D7的数值：100%减去G7的值
        Range("D7").Value = 1 - Target.Value
    End If
    
ResetEvents:
    ' 重新开启事件触发
    Application.EnableEvents = True
End Sub

代码说明 #

1. 事件过滤：先判断修改的单元格是否是目标单元格，非目标直接退出，避免无效执行
2. 关闭事件：Application.EnableEvents = False 防止修改另一个单元格时再次触发本事件，避免循环
3. 错误处理：On Error GoTo ResetEvents 确保即使代码出错，也能恢复事件触发，避免后续Excel事件失效
4. 数值赋值：直接用1 - Target.Value计算后赋值为数值，而非公式，避免循环引用和公式覆盖问题

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