![保持 Excel 单元格总数恒定](https://linux22.com/image/1457892/%E4%BF%9D%E6%8C%81%20Excel%20%E5%8D%95%E5%85%83%E6%A0%BC%E6%80%BB%E6%95%B0%E6%81%92%E5%AE%9A.png)
我有一列包含 3 个单元格:A1、A2 和 A3。我希望在增加或减少 3 个单元格中的任何一个时,3 个单元格的数值总和保持不变。也就是说,我需要任何单元格的增加或减少均匀分布在其他 2 个单元格之间。例如,我从 3 + 5 + 2 = 10 开始。我将 5 改为 6,这样我就会得到 2.5 + 6 + 1.5 = 10。请记住,实际上我将有大约 20 个单元格,我希望它们等于常数 100。非常感谢。
答案1
充满A1通过A20其价值加起来为100:
然后放置以下内容事件宏在工作表代码区域:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, Delta As Double
Set rng = Range("A1:A20")
If Intersect(Target, rng) Is Nothing Then Exit Sub
Delta = (100 - Range("A21").Value) / 19
Application.EnableEvents = False
For Each r In rng
If r.Address <> Target.Address Then
r.Value = r.Value + Delta
End If
Next r
Application.EnableEvents = True
End Sub
一旦安装并激活宏,它将检测到A1通过A20并调整其他值以保留 100。每次只更改一个单元格。
因为它是工作表代码,所以非常容易安装和自动使用:
- 右键单击 Excel 窗口底部附近的选项卡名称
- 选择查看代码-这将打开一个 VBE 窗口
- 粘贴内容并关闭 VBE 窗口
如果您有任何疑虑,请首先在试用工作表上尝试一下。
如果您保存工作簿,宏将随之保存。如果您使用的是 2003 以后的 Excel 版本,则必须将文件保存为 .xlsm 而不是 .xlsx
要删除宏:
- 调出如上所示的 VBE 窗口
- 清除代码
- 关闭 VBE 窗口
要了解有关宏的更多信息,请参阅:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
和
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
要了解有关事件宏(工作表代码)的更多信息,请参阅:
http://www.mvps.org/dmcritchie/excel/event.htm
必须启用宏才能使其工作!