Office中国论坛/Access中国论坛

标题: 运行P列图片下拉后BCDE列4级联动下拉不能运行 [打印本页]

作者: lidayu66 时间: 2021-1-10 11:25
标题: 运行P列图片下拉后BCDE列4级联动下拉不能运行
本帖最后由 lidayu66 于 2021-1-12 18:35 编辑

新人求教请多关照

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

作者: lidayu66 时间: 2021-1-15 08:42
本帖最后由 lidayu66 于 2021-1-15 08:48 编辑

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 时间: 2021-1-16 15:52
没看到你说的问题。

作者: lidayu66 时间: 2021-1-16 16:38

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

你好，请看图片
[attach]63952[/attach]

作者: wuwu200222 时间: 2021-2-4 09:53
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)