【Excel】单元格如何实现联动（同步更新）

您所在的位置：网站首页 › Excelvba窗口提示当前文件名 › 【Excel】单元格如何实现联动（同步更新）

【Excel】单元格如何实现联动（同步更新）

2024-07-16 16:25:57| 来源: 网络整理| 查看: 265

Excel中单元格如何联动（同步更新）-VBA宏方法一、功能说明二、功能展示三、设置步骤四、异常处理1.Excel没有宏功能（个人版WPS一般没有宏功能）2.宏未启用 / 被禁止3.Excel程序崩溃

一、功能说明

通过将本文档中代码复制进Excel文件，可实现2至3个单元格的数值实时同步更新，即1个数值改变后，其余1至2个单元格同时变化。更多单元格联动也可参考本文方法。

二、功能展示

改变一个单元格数值，其他的单元格自动变化同步

2个单元格联动在这里插入图片描述

3个单元格联动在这里插入图片描述

2个不同表中单元格联动在这里插入图片描述 3个不同表中单元格联动

三、设置步骤新建Excel文件将文件保存为“.xlsm”格式（启用宏的工作簿）将需要同步的单元格名称自定义修改为“AAAA”、“BBBB”、“CCCC”（若仅同步2个单元格，无需定义“CCCC”）（1）打开名称管理器在这里插入图片描述

（2）指定单元格位置，并新建单元格名称在这里插入图片描述

当前Excel文档中自定义名称的单元格列表如下，其中数值列为对应单元格的当前值在这里插入图片描述

对于本文档使用的方法（Excel 单元格联动），可以指定不同同工作表中的的单元格，如下所示：在这里插入图片描述

Office的名称管理器操作类似在这里插入图片描述

打开VBA宏编程界面（1）Excel 表格sheet右键选择“查看代码” 在这里插入图片描述

（2）WPS 点击：工具 → 开发工具 → VB编辑器 / 查看代码在这里插入图片描述

复制代码进入VBA代码框

（1）代码输入方式在这里插入图片描述

（2） 2个单元格联动-VBA代码

'初始化并指定单元格的值 '本示例中需要单元格命名为“AAAA”、“BBBB” Dim av As String '存储单元格AAAA的值 Dim bv As String '存储单元格BBBB的值 '以下代码为判断指定的两个单元格的值是否改变 '若有一个单元格的值发生变化，则另一个也比同步变化 '并保存更改后的数值 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Range("AAAA").Value av Then 'AAAA的值发生改变 Range("BBBB").Value = Range("AAAA").Value Else 'BBBB的值发生改变 Range("AAAA").Value = Range("BBBB").Value End If av = Range("AAAA").Value bv = Range("BBBB").Value End Sub

（3） 3个单元格联动-VBA代码

'初始化并指定单元格的值 '本示例中需要单元格命名为“AAAA”、“BBBB”、“CCCC” Dim av As String '存储单元格AAAA的值 Dim bv As String '存储单元格BBBB的值 Dim cv As String '存储单元格CCCC的值 '以下代码为判断指定的两个单元格的值是否改变 '若有一个单元格的值发生变化，则另一个也比同步变化 '并保存更改后的数值 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Range("AAAA").Value av Then 'AAAA的值发生改变 Range("BBBB").Value = Range("AAAA").Value Range("CCCC").Value = Range("AAAA").Value ElseIf Range("BBBB").Value bv Then 'BBBB的值发生改变 Range("AAAA").Value = Range("BBBB").Value Range("CCCC").Value = Range("BBBB").Value Else 'CCCC的值发生改变 Range("AAAA").Value = Range("CCCC").Value Range("BBBB").Value = Range("CCCC").Value End If av = Range("AAAA").Value bv = Range("BBBB").Value cv = Range("CCCC").Value End Sub

（4）更多数量单元格联动可参考以上代码进行调整

四、异常处理 1.Excel没有宏功能（个人版WPS一般没有宏功能）

（1）参考网址 WPS如何启用宏功能？WPS运行VBA代码

（2）安装步骤 ①关闭WPS程序 ②运行安装包 ③安装完成 ④打开WPS表格 ⑤菜单栏 → 工具 → 开发工具 → 使用宏功能在这里插入图片描述