如何实现数据有效性列表项同步更新？
发布时间：2022-10-12 07:12:32
Q：如图1所示，在单元格C1中设置了数据有效性，列表数据来源于单元格区域A1:A3。这里，将单元格区域A1:A3命名为testData？
图1
然而，当我修改了单元格区域A1:A3中的数据后，单元格C1中的数据不会自动相应修改，如图2所示。
图2
如何实现数据源中的数据修改后，设置了数据有效性的单元格中的数据相应地自动修改？
A：下面使用工作表的Change事件来实现，代码如下：
Private SubWorksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim rngFound As Range
‘当名称为testData的区域数据改变时
If Not Intersect(Target,Me.Range(“testData”)) Is Nothing Then
‘遍历工作表中的数据有效性单元格
For Each rng InMe.Cells.SpecialCells(xlCellTypeAllValidation).Cells
‘如果单元格中的数据有效性设置为区域testData
If rng.Validation.Formula1 =”=testData” Then
‘检查该单元格中的值是否在区域testData列表值中
Set rngFound =Me.Range(“testData”).Find(rng.Value, , xlValues, xlWhole)
‘如果值不在列表中,命名区域中的数据一定被修改了,因此单元格值进行相应的修改
If rngFound Is Nothing Then
Application.EnableEvents =False
rng.Value = Target.Value
Application.EnableEvents =True
End If
End If
Next rng
End If
End Sub
运行后的效果如下图3所示。
图3
0
投稿猜你喜欢
- 在excel表格中，一些为填写的空白单元格，有时会比较妨碍我们的数据统计，应该怎么删除掉呢?不懂的朋友，下面就跟小编一起来看看吧，欢迎大家来
相信很多小伙伴为了方便都会选择笔记本电脑来进行使用，华为的笔记本算是其中比较好的一款，不过有不少小伙伴在使用一段时间之后会想重装系统使电脑更- 如何还原Win7开机动画？有用户修改了电脑系统开机动画之后，想复原却不知道该如何操作，下面就给大家分享具体方法。操作方法：1、在“开始-》所
- 你是否想让excel区域只能看不能修改呢，接下来将为你介绍个好的方法，感兴趣的你可不要错过了哈，希望可以帮助到你你是否想让同一个Excel电
- 日常办公时，我们经常通过插入Word批注的方法做记号，今天小编就给大家一一说说Word2013中新建、答复、隐藏/显示和删除批注的方法步骤，
- WPS+云办公 次要 效劳于企业用户， 那末有企业员工（企业成员） 离任或换 部分 当前，想删除 大概禁用该员工账号 需求 怎样 操纵呢？点
- 搜狗输入法是一款绝对优秀的高智能输入法，各种设置都可以让用户们体验到最好的使用体验，今天小编为大家带来的就是搜狗输入法拼音错乱的解决办法！一
- 将电脑中的word文件传入iPad中可以用第三方工具来帮忙。如pp助手、itools等等。具体方法如下：在电脑上下载安装pp助手以及iTun
- 1.首先，咱们需要准备一个U盘启动盘，或者是一个光盘启动，如果大家没有的话，可以根据咱们网站中的教程来制作一个U盘启动盘，十分的方便。不但如
- 很多人为了让电脑更加有个性，都会给自己的电脑安装喜欢的主题，然而有用户发现给Win7系统安装新主题后跟下载提示的界面不一样，观察了一下之后发
- Win7配置更新100不动了怎么办？虽然微软已经停止了对win7系统的更新，但是还有的用户可以进行更新配置，那配置更新卡在100不动要怎么解
- 许多用户在使用电脑的时候经常会需要建立多个桌面来使用，这样方便用户在摸鱼或者做其他事情的时候快速的切换，而在最新推出的Windows11系统
- PPT怎么使用iSlide插件制作创意素材？PPT中想要制作一个创意的图形作为素材，该怎么制作呢？下面我们就来看看详细的教程，需要的朋友可以
- 对于刚更新Win11系统的用户，有些不知道Win11怎么修改桌面分辨率。图标、对话窗口的大小比例都是由桌面分辨率决定的。这里就给大家带来Wi
- 和此前推出的多个版本一样，迅雷X也支持计划任务。当然，由于迅雷X使用Electron软件框架重写了主界面，因此计划任务的设置方法也发生了一些
- 微软在美国周末时间向Win10正式版10240推送另外的小更新，更新补丁为KB3074678，近期微软总共推送了4枚Win10安全和修复性补
- Win10比Win7来说功能更加的完善，有很多用户升级Win10系统后总弹出自动更新的提示，如果不更新就一直弹出也不是办法，面对这个问题，小
- 众所周知，苹果与10月份发布了新款 MacBook Pro（14英寸和16英寸）。最新的笔记本电脑 MacBook Pro 不负众望，搭载了
- 在WORD中设置标题，但在新文档中仅显示两级标题，如何才能把自动隐藏的标题显示出来呢?1、在新建空白文档中，点选窗口上方位置的“开始”功能区
- Win10删除PIN码开机还提示需要输入PIN码怎么办？最近使用win10系统的用户反应win10系统中自己删除了pin码登录后每次开机都提
