ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1188|回复: 6

[讨论] 用树型菜单选择科目,代码不能自动运行!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-2-25 17:49 | 显示全部楼层 |阅读模式
在H2单元格用树型菜单(右键)选择科目,不能自动运行代码。 总分类账.rar (39.01 KB, 下载次数: 10) 6e92c76076b0dbc5588afd888d3a50a.jpg

TA的精华主题

TA的得分主题

发表于 2020-2-25 19:52 | 显示全部楼层
1、如果可以看到下面的提示,点击“调试”。
image.png
高亮显示的是错误行:

image.png


这一句,应该改为:
Data = Sheet3.Range(Sheet3.Cells(m, 1), Sheet3.Cells(y, 5))

2、如果右键菜单选择后无反应,打开VBE窗口,按Ctrl+G打开立即窗口,输入:
Application.EnableEvents=True

并回车。

程序中看到有其它问题,但对你的业务不熟悉,不知如何改。以上意见供参考。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-2-25 19:53 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
经测试可以正常运行。

TA的精华主题

TA的得分主题

发表于 2020-2-25 22:44 | 显示全部楼层
本帖最后由 YZC51 于 2020-2-27 08:19 编辑

请参考
总分类账-树形菜单-.rar (47.86 KB, 下载次数: 21)

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-26 22:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 meng196391 于 2020-2-26 22:53 编辑

在使用中发现了点问题,在H2选择科目若干次后能正常运行,一旦出现选择完科目后代码不运行,无反应,就没法运行了。试着加入Application.EnableEvents=True 这句代码就可以了。 f9bcaef8ad977ae28da7ae664f5249b.png

TA的精华主题

TA的得分主题

发表于 2020-2-27 08:20 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
4楼附件已经更新!

TA的精华主题

TA的得分主题

发表于 2020-2-27 08:24 | 显示全部楼层
meng196391 发表于 2020-2-26 22:49
在使用中发现了点问题,在H2选择科目若干次后能正常运行,一旦出现选择完科目后代码不运行,无反应,就没法 ...

这是权宜之计,找到问题症结才是关键。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 04:06 , Processed in 0.047200 second(s), 13 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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