问：如图1所示，数据有效性设置在小区C1，列表数据来自小区A1:A3。这里，小区区域A1:A3被命名为testData？

图1

但是，当我修改单元格区域A1:A3中的数据时，单元格C1中的数据不会被自动相应修改，如图2所示。

图2。

修改数据源中的数据后，如何自动修改数据有效性单元格中的数据？

答：下面是利用工作表的Change事件实现的，代码如下：

私有子工作表_更改(按值目标作为范围)

调光范围

调暗声音范围

当名为testData的区域数据发生变化时，

如果不相交(目标，我。范围(“测试数据”))不算什么

遍历工作表中的数据有效性单元格。

对于我的每一个朋友。单元格。特殊单元格(xlCellTypeAllValidation)。细胞

如果单元格中的数据有效性设置为区域测试数据。

如果rng。验证。公式1=“测试数据”然后

检查该单元格中的值是否在区域测试数据列表值中。

设置rngFound=Me。范围(“测试数据”)。Find(rng。Value，xlValues，XlLook)

如果该值不在列表中，则必须修改命名区域中的数据，因此应该相应地修改单元格值。

如果没有发现，那么

申请。启用事件=假

rng。值=目标。价值

申请。启用事件=真

如果…就会结束

如果…就会结束

下一个rng

如果…就会结束

末端接头

操作后的效果如下图3所示。

图3。