设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1925|回复: 5

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

[复制链接]

点击这里给我发消息

发表于 2021-1-10 11:25:27 | 显示全部楼层 |阅读模式
本帖最后由 lidayu66 于 2021-1-12 18:35 编辑

新人求教请多关照

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2021-1-14 21:32:28 | 显示全部楼层
看了下,没法改。因为强耦合。P列下拉时,需要调用了有效性函数(youxiao),但没传回值,所以,结果就是直接清空了数据有效性。
如果非要改,个人建议放弃有效性这个函数。直接用辅助表,名称定义等方式处理。甚至可以考虑把BCD列保护起来。

点击这里给我发消息

 楼主| 发表于 2021-1-15 08:42:09 | 显示全部楼层
本帖最后由 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"错误代码
发表于 2021-1-16 15:52:07 | 显示全部楼层
没看到你说的问题。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

点击这里给我发消息

 楼主| 发表于 2021-1-16 16:38:24 | 显示全部楼层
roych 发表于 2021-1-16 15:52
没看到你说的问题。

你好,请看图片


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

点击这里给我发消息

发表于 2021-2-4 09:53:09 | 显示全部楼层
学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 08:20 , Processed in 0.084044 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表