Excel单元格联动设置需求：调整休假人数时自动联动在岗人数

一、基础联动公式配置（核心逻辑） #

通过Excel公式实现休假人数变化时在岗人数同步反向调整，同时保证公司总人数恒定：

1. 项目在岗人数公式（以D列项目为例，其他列同理）
   在D15输入公式：

=D4-D10-D11-D13

E15、G15、H15对应公式：

=E4-E10-E11-E13
=G4-G10-G11-G13
=H4-H10-H11-H13

逻辑：项目总人数（如D4）固定，待分配、休假、合理缺勤人数之和增加时，在岗人数自动等额减少，匹配需求。

2. 总计单元格公式

• 待分配总计C10：

=SUM(D10,E10,G10,H10)

• 休假总计C11：

=SUM(D11,E11,G11,H11)

• 合理缺勤总计C13：

=SUM(D13,E13,G13,H13)

• 在岗总计C15：

=SUM(D15,E15,G15,H15)

• 公司总人数C4（保持不变）：

=C10+C11+C13+C15

逻辑：四类人员总计之和等于公司总人数，只要各项目人数逻辑正确，C4会自动维持恒定值。

二、同列反向联动（箭头/圆圈单元格互调） #

针对“箭头指向单元格数值减少时，圆圈内对应单元格数值等额增加”的需求，提供两种实现方式：

方式1：公式迭代（无需宏） #

1. 开启迭代计算：
   点击「文件」→「选项」→「公式」，勾选「启用迭代计算」，设置迭代次数为1（避免循环误差）。
2. 反向联动公式（以D列为例，假设箭头指向D10，圆圈对应D15）：
   修改D15公式为：

   =D4-D11-D13-(D10-(初始_D10-(初始_D15-D15)))
   

   其中初始_D10和初始_D15为该单元格的初始固定数值。修改D10时，D15会自动反向调整。

方式2：VBA宏（精准稳定） #

如果公式迭代存在误差，用工作表事件宏实现精准联动：

1. 按Alt+F11打开VBA编辑器，找到目标工作表，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim monitorRng As Range
    Set monitorRng = Union(Range("D10,E10,G10,H10"), Range("D11,E11,G11,H11"), Range("D13,E13,G13,H13"))
    
    If Not Intersect(Target, monitorRng) Is Nothing Then
        Application.EnableEvents = False
        Dim cell As Range
        For Each cell In Intersect(Target, monitorRng)
            Dim col As Integer: col = cell.Column
            Dim row As Integer: row = cell.Row
            Dim targetCell As Range
            
            ' 定位对应列的在岗单元格
            Set targetCell = Cells(15, col)
            
            ' 休假人数变化时，直接刷新在岗人数
            If row = 11 Then
                targetCell.Value = Cells(4, col) - Cells(10, col) - Cells(11, col) - Cells(13, col)
            End If
            
            ' 箭头单元格减少时，在岗单元格等额增加
            If row = 10 Or row = 13 Then
                Dim oldVal As Double
                ' 通过Undo获取修改前的值
                Application.Undo
                oldVal = cell.Value
                Application.Undo
                targetCell.Value = targetCell.Value + (oldVal - cell.Value)
            End If
        Next cell
        
        ' 刷新总计单元格
        Range("C10").Value = WorksheetFunction.Sum(Range("D10,E10,G10,H10"))
        Range("C11").Value = WorksheetFunction.Sum(Range("D11,E11,G11,H11"))
        Range("C13").Value = WorksheetFunction.Sum(Range("D13,E13,G13,H13"))
        Range("C15").Value = WorksheetFunction.Sum(Range("D15,E15,G15,H15"))
        
        Application.EnableEvents = True
    End If
End Sub

2. 保存文件为「.xlsm」格式（启用宏的工作簿），修改目标单元格时即可触发精准联动。

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