ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

想把竖排打卡数据处理成横排,求助各位大神,非常感谢

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-11-13 14:09 | 显示全部楼层
小园. 发表于 2020-11-13 12:01
可以告诉我使用方法及该注意的地方吗?非常感谢!!!

使用方法与透视表差不多,即源数据异动后,需手动点数据刷新!

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-11-13 14:11 | 显示全部楼层
3190496160 发表于 2020-11-12 18:43
Sub 考勤整理()
Dim d As Object
Set d = CreateObject("scripting.dictionary")

还有一种状况,提示运行时错误,内存益出,这个能处理的数据有没有上限,我的数据源才有6千多条记录,正常一个月有几万条

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-11-13 14:42 | 显示全部楼层
tony@cq 发表于 2020-11-13 14:09
使用方法与透视表差不多,即源数据异动后,需手动点数据刷新!

需要怎么操作?

TA的精华主题

TA的得分主题

发表于 2020-11-13 14:57 | 显示全部楼层

你试点改动一两处源数据后,点菜单点栏的数据选项下面的全部刷新,看看结果是否相应变化?

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-11-13 15:03 | 显示全部楼层
tony@cq 发表于 2020-11-13 14:57
你试点改动一两处源数据后,点菜单点栏的数据选项下面的全部刷新,看看结果是否相应变化?

点刷新时提示“初始化数据源失败,请检查数据为服务器或联系您的数据为管理员。确认外面 数据库有效,然后重试该操作。如果仍然出现该信息,请创建新的数据源连接数据为”
我想知道是怎么做出来的,下次处理其它数据时,或者增加更多日期的数据时也能做出来,感谢!

TA的精华主题

TA的得分主题

发表于 2020-11-13 15:40 | 显示全部楼层
小园. 发表于 2020-11-13 14:11
还有一种状况,提示运行时错误,内存益出,这个能处理的数据有没有上限,我的数据源才有6千多条记录,正 ...

六千多条数据目前的代码绝对不至于溢出的,是否单元格中有错误值符号???具体情况见不到文件不得而知

TA的精华主题

TA的得分主题

发表于 2020-11-13 16:05 | 显示全部楼层
小园. 发表于 2020-11-13 15:03
点刷新时提示“初始化数据源失败,请检查数据为服务器或联系您的数据为管理员。确认外面 数据库有效,然 ...

可能版本过低原因吧?

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-11-13 16:32 | 显示全部楼层
3190496160 发表于 2020-11-13 15:40
六千多条数据目前的代码绝对不至于溢出的,是否单元格中有错误值符号???具体情况见不到文件不得而知

没有其它设置,我新下载的原始源,及新建的“想要得出的结果”的工作表,提示益出,我用你发回的表格,把结果清掉点运行,提示找不到工程或库

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-11-17 17:26 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
3190496160 发表于 2020-11-12 18:43
Sub 考勤整理()
Dim d As Object
Set d = CreateObject("scripting.dictionary")

您好,我换了工作表的名称,代码里的工作表名称也跟着换过来了,但会出错,还需要更换哪些内容吗?我不想要“原始源”和“想要得出的结果”这两个名称,可以帮我改成“原始数据”和“整理汇总”吗?或者您告诉我要改动哪些?非常感谢!!!

TA的精华主题

TA的得分主题

发表于 2020-11-17 17:48 来自手机 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-29 22:15 , Processed in 0.047842 second(s), 7 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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