Excel VBA：实现G1105单元格公式计算与手动输入共存

问题分析 #

你当前的代码存在两个核心问题：

• 无论修改的是哪个单元格，都会强制给G1105设置公式，导致无法手动输入内容
• If判断后没有分支逻辑，等于无效判断，所有Change事件都会执行公式赋值

需求回顾 #

• G1103、G1104作为用户手动输入单元格
• G1105默认通过公式计算结果：=IF(G1104="","",((G1104-G1103)/G1103)*100)
• 允许用户直接在G1105中输入数值
• 当G1103或G1104被修改时，G1105自动恢复公式计算
• 不能在Intersect(target, Range("G1103:G1104")) Is Nothing分支后执行Exit Sub，需保留事件中其他代码的执行

修正后的VBA代码 #

Private Sub Worksheet_Change(ByVal target As Range)
    Application.EnableEvents = False
    
    ' 仅当修改的是G1103或G1104时，重置G1105的公式
    If Not Intersect(target, Range("G1103:G1104")) Is Nothing Then
        ActiveSheet.Range("G1105").Formula = "=IF(G1104="""","""",(((G1104-G1103)/G1103)*100))"
    End If
    
    ' 这里保留你原来的其他代码
    ' ...
    
    Application.EnableEvents = True
End Sub

关键修改说明 #

1. 有效判断分支：用Not Intersect(...) Is Nothing精准触发公式重置逻辑，只有修改G1103/G1104时才会覆盖G1105的内容为公式
2. 保留手动输入权限：当用户修改G1105时，Intersect判断为Nothing，不会执行公式赋值，手动输入的内容得以保留
3. 事件开关正确控制：Application.EnableEvents的开关包裹整个逻辑，避免公式赋值触发新的Change事件导致循环

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