1234

ExcelHome技术论坛

用户名  找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

帖子
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 165|回复: 3

有时正常,有时转圈不动,求大佬指点

[复制链接]

TA的精华主题

TA的得分主题

发表于 2025-1-5 14:18 | 显示全部楼层 |阅读模式
本帖最后由 scnc001 于 2025-1-5 22:57 编辑

自己找到问题了,问题出在这里:
If Target.Column = 2 Then Target.Value = UCase$(Target.Value) '编号小写转大写
注释掉就正常了。这句不重要,也可以规避,完全可以在生成正式表时再转换,而不是输入时小写转大写。后期有空再看怎么调试能让输入时直接转成大写。

工作簿2.zip

295.22 KB, 下载次数: 5

TA的精华主题

TA的得分主题

发表于 2025-1-5 14:45 | 显示全部楼层
本帖最后由 z865593849 于 2025-1-5 14:47 编辑

image.png

不知道这一堆代码哪来的,找人重写吧,1 到65536行遍历单元格
还有那些vba填充的工作表函数,一堆录制的宏,一堆的遍历单元格

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-1-5 15:53 | 显示全部楼层
z865593849 发表于 2025-1-5 14:45
不知道这一堆代码哪来的,找人重写吧,1 到65536行遍历单元格
还有那些vba填充的工作表函数,一 ...

之所以要带公式,那是因为表格传出去不涉及条目的增减,但会有个别数量上的修改,所以把计算的代码注释掉了,专门带上公式的,并不是什么录制宏。运行vba的时候加一句手动计算就好了。我这个单个任务每次最多也就一两百条数据,一直都这么用的,问题不大。。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-1-5 22:53 | 显示全部楼层
z865593849 发表于 2025-1-5 14:45
不知道这一堆代码哪来的,找人重写吧,1 到65536行遍历单元格
还有那些vba填充的工作表函数,一 ...

经逐条测试,问题出在小写转大写这里了
If Target.Column = 2 Then Target.Value = UCase$(Target.Value) '定额编号小写转大写
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

1234

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

GMT+8, 2025-2-17 20:39 , Processed in 0.020986 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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