Excel VBA实现四单元格同步触发更新需求问询

根据你的需求，提供两种实现方案，任选其一即可：

方案1：全部通过按钮触发更新 #

1. 右键点击用于触发的形状按钮，选择「指定宏」，绑定下面的UpdateAllCells宏。
2. 将以下代码插入对应工作表模块：

Sub UpdateAllCells()
    ' 更新C13：按指定逻辑计算赋值
    Me.Range("C13").Value = Me.Range("C10").Value * 0.001 / 1.26
    
    ' 更新C17、C18：调用已有的ReadGraphData子过程
    ReadGraphData
    
    ' 更新C19：调用自定义函数GetRecentData
    Me.Range("C19").Value = GetRecentData()
End Sub

' 保留你原有的ReadGraphData子过程
Sub ReadGraphData()
    ' 此处为你原有的更新C17、C18的代码逻辑
    ' 示例：Me.Range("C17").Value = ...
    '       Me.Range("C18").Value = ...
End Sub

' 保留你原有的自定义函数GetRecentData
Function GetRecentData() As Variant
    ' 此处为你原有的获取数据的逻辑
    ' 示例：GetRecentData = 计算结果或数据源值
End Function

方案2：离开C10/C6时自动更新 #

利用Worksheet_Change事件，当用户修改C6（下拉列表）或C10（输入数值）并离开单元格时，自动更新四个目标单元格：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 判断是否修改了C6或C10单元格
    If Not Intersect(Target, Me.Range("C6,C10")) Is Nothing Then
        ' 关闭事件触发，避免循环更新
        Application.EnableEvents = False
        
        ' 更新C13（添加数值校验，避免非数值输入报错）
        If IsNumeric(Me.Range("C10").Value) Then
            Me.Range("C13").Value = Me.Range("C10").Value * 0.001 / 1.26
        Else
            Me.Range("C13").Value = "" ' 或设置为提示文本
        End If
        
        ' 更新C17、C18
        ReadGraphData
        
        ' 更新C19
        Me.Range("C19").Value = GetRecentData()
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

' 保留你原有的ReadGraphData子过程
Sub ReadGraphData()
    ' 你的原有更新C17、C18的代码
End Sub

' 保留你原有的自定义函数GetRecentData
Function GetRecentData() As Variant
    ' 你的原有获取数据的代码
End Function

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