如何将下拉列表关联的账面余额自动同步至另一工作表的账户余额

• 分类账（带账户名称下拉列表）：
• 账户余额汇总表：

你之前直接关联单元格会导致数值跟随下拉选项变动，是因为普通引用会实时读取目标单元格的当前值，要实现不同账户余额独立更新，可以用以下两种方法：

方案1：公式实现（无需启用宏） #

操作步骤如下：

1. 开启迭代计算：依次点击「文件」→「选项」→「公式」，勾选「启用迭代计算」，将最多迭代次数设置为1
2. 在汇总表对应账户的余额单元格输入公式，假设：
   • 分类账工作表名称为分类账，下拉选择账户的单元格为A1，显示running balance的单元格为B1
   • 汇总表A列为所有账户名称，B列为对应余额，当前编辑的是A2账户对应的B2单元格
     输入公式：=IF(A2=分类账!$A$1,分类账!$B$1,B2)
3. 将公式向下填充到所有账户对应的余额单元格即可
   效果：只有当下拉选中的账户和当前行账户名称一致时，才会更新对应余额，其余时间会保留已有数值不会被覆盖。

方案2：VBA实现（更稳定，无循环计算风险） #

不想开启迭代计算的话可以用事件触发的VBA脚本实现自动同步：

1. 右键点击分类账工作表的标签，选择「查看代码」
2. 在弹出的VBA编辑窗口粘贴以下代码（注意替换代码内的工作表名称、单元格引用为你实际文件的对应内容）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 监测下拉单元格和running balance单元格的变动
    If Target.Address = "$A$1" Or Target.Address = "$B$1" Then
        Dim curAcc As String, curBalance As Double
        curAcc = Me.Range("A1").Value
        curBalance = Me.Range("B1").Value
        ' 替换为你的汇总表实际名称
        Dim sumSheet As Worksheet
        Set sumSheet = ThisWorkbook.Worksheets("账户余额汇总")
        ' 匹配对应账户行
        Dim targetRow As Range
        Set targetRow = sumSheet.Range("A:A").Find(What:=curAcc, LookAt:=xlWhole)
        If Not targetRow Is Nothing Then
            sumSheet.Range("B" & targetRow.Row) = curBalance
        End If
    End If
End Sub

3. 关闭VBA编辑窗口，将文件保存为.xlsm（启用宏的工作簿）格式即可
   后续只要分类账的下拉选项切换、或者running balance数值变动，都会自动同步到汇总表对应账户的余额列，不会影响其他账户的已存数值。

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