ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

档案记录行移动宏修改

[复制链接]

TA的精华主题

TA的得分主题

发表于 2013-3-19 13:24 | 显示全部楼层 |阅读模式
各位好!
附件是一个员工档案的文件,前段时间在论坛请教别人学了一个档案记录行移动宏(执行按钮在“数据处理表",作用是执行时把对应工号的档案记录行从”在职员工“移动到”离职员工"表)。
我现在拿到宏后自己修改了一下,大致效果是执行时先把档案记录行移动,删除原记录,然后在"离职员工"表的A列把输入的离职日期复制过去。
宏测试了一下效果是符合预期的,但是运行速度很慢,而且保存时有"the picture is too large and will be truncated"提示,请问这是代码设计问题还是工作表本身数据格式或者是含有函数数组问题?
谢谢不吝赐教。

测试档案(修改2).rar

192.45 KB, 下载次数: 30

TA的精华主题

TA的得分主题

发表于 2013-3-19 15:29 | 显示全部楼层
这个稍微想想也知道是你表格的问题了,你自己打开看看,一个接近空的文件就3M 多。
就应该几K10几K 大小的东西居然大了几百倍,你表格里设置了什么?

关代码啥事?

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-3-19 19:46 | 显示全部楼层
hehex 发表于 2013-3-19 15:29
这个稍微想想也知道是你表格的问题了,你自己打开看看,一个接近空的文件就3M 多。
就应该几K10几K 大小的 ...

哦哦,谢谢提醒,也谢谢上次的帮忙。
但其实我就是用了一下表格格式,其他真没怎么插入过很多外部的东西,请问这个影响大吗?

TA的精华主题

TA的得分主题

发表于 2013-3-19 23:16 | 显示全部楼层
有见地产 发表于 2013-3-19 19:46
哦哦,谢谢提醒,也谢谢上次的帮忙。
但其实我就是用了一下表格格式,其他真没怎么插入过很多外部的东西 ...

你的表格里有未知对象,影响当然非常大,而且是未知的不可判断的。
原来代码的工作效率谈不上高,看你表格里有多少记录了,一般几千条也就应该不到一秒就能解决掉。
就没有专门为了提速再去使用一些数组啊等等去倒来倒去的。
要看是哪里的问题其实很简单,打开一个空表,把相应数据选择性粘贴按值复制出去。
相应代码也弄过去,首先观察文件体积是否在合理范围内,然后运行代码测试速度与运行结果。

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-3-20 00:08 | 显示全部楼层
hehex 发表于 2013-3-19 23:16
你的表格里有未知对象,影响当然非常大,而且是未知的不可判断的。
原来代码的工作效率谈不上高,看你表 ...

谢谢提点啊
那这个未知对象可以通过什么方法查出来么,我感觉影响确实是比较大

TA的精华主题

TA的得分主题

发表于 2013-3-20 09:48 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
有见地产 发表于 2013-3-20 00:08
谢谢提点啊
那这个未知对象可以通过什么方法查出来么,我感觉影响确实是比较大

你的表格中肯定不止是套用了格式那么简单。在相关工作表中,按F5 键定位,选择对象。
除了按钮之外的所有对象都是后来插进去或者什么未知原因进去的,该删除就删除。但是你的表不是那么简单,不知道你怎么搞的,建议你拿个空表重做。我那天试过删除一些未知对象之后存盘,文件的size 立刻缩小到1M 多,之前是3M 多。但是1M 多的大小仍然是不对的,最好重新写个表,把内容选择性粘贴按值复制过去。再把代码也复制过去,再看文件容量。

评分

1

查看全部评分

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

本版积分规则

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

GMT+8, 2024-11-23 09:44 , Processed in 0.038631 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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