运行P列图片下拉后BCDE列4级联动下拉不能运行

lidayu66

新人求教请多关照

roych

看了下，没法改。因为强耦合。P列下拉时，需要调用了有效性函数（youxiao），但没传回值，所以，结果就是直接清空了数据有效性。
如果非要改，个人建议放弃有效性这个函数。直接用辅助表，名称定义等方式处理。甚至可以考虑把BCD列保护起来。

lidayu66

roych 发表于 2021-1-14 21:32
看了下，没法改。因为强耦合。P列下拉时，需要调用了有效性函数（youxiao），但没传回值，所以，结果就是直 ...

roych你好，把这注释后已实现，
'    For Each shp In ActiveSheet.Shapes
'On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
'        ''''If Not Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), ActiveCell) Is Nothing Then shp.Delete
'On Error GoTo 0 '恢复正常的错误提示
'    Nex
其中的这句有错误：

If Not Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), ActiveCell) Is Nothing Then shp.Delete

请您帮看上句要怎么修改才不会出现错误，谢谢！

如不使用：On Error Resume Next就会出现"1004"错误代码

roych

没看到你说的问题。

lidayu66

roych 发表于 2021-1-16 15:52
没看到你说的问题。

你好，请看图片

wuwu200222

学习