Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 6167|回复: 35

[已解决]代码运行后取数出错

[复制链接]
发表于 2012-9-3 09:06 | 显示全部楼层 |阅读模式
本帖最后由 爱疯 于 2013-4-21 11:58 编辑

代码运行后取数出错,请老师们帮忙指正一下,谢谢!
详见附件。




最佳答案
2012-9-3 10:28
20120902.rar (54.68 KB, 下载次数: 32)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-9-3 09:29 | 显示全部楼层
字典用法。

对了,凭证编号是怎么来的?
回复

使用道具 举报

发表于 2012-9-3 09:33 | 显示全部楼层
回复

使用道具 举报

发表于 2012-9-3 09:35 | 显示全部楼层
应该是D2的统计方法了。
C7开始的数据只是取了D2的ITEMS。
回复

使用道具 举报

 楼主| 发表于 2012-9-3 09:36 | 显示全部楼层
hwc2ycy 发表于 2012-9-3 09:29
字典用法。

对了,凭证编号是怎么来的?

在“凭证记录”表中的第四列,取每月的最大编号,问题应该是出在这段代码上,看了很久,不知道如何去改:


      y = Format(sArr(r, 6), "yyyy-mm-dd")
        d2(y) = Application.Max(sArr(r, 4), d2(y))

回复

使用道具 举报

发表于 2012-9-3 09:38 | 显示全部楼层
caishensi 发表于 2012-9-3 09:36
在“凭证记录”表中的第四列,取每月的最大编号,问题应该是出在这段代码上,看了很久,不知道如何去改: ...

直接在参数里只用m试试。
回复

使用道具 举报

 楼主| 发表于 2012-9-3 09:48 | 显示全部楼层
hwc2ycy 发表于 2012-9-3 09:38
直接在参数里只用m试试。

如果当月的各凭证日期不是同一天的话就会出错,代码应该怎么写,请帮忙写一下,谢谢!
回复

使用道具 举报

发表于 2012-9-3 09:53 | 显示全部楼层
本帖最后由 hwc2ycy 于 2012-9-3 09:54 编辑
caishensi 发表于 2012-9-3 09:48
如果当月的各凭证日期不是同一天的话就会出错,代码应该怎么写,请帮忙写一下,谢谢!


奇怪,总是1月份的不对,我还没有把你的代码啃过了,字典我不会,只能慢慢排错。
回复

使用道具 举报

发表于 2012-9-3 10:15 | 显示全部楼层
caishensi 发表于 2012-9-3 09:48
如果当月的各凭证日期不是同一天的话就会出错,代码应该怎么写,请帮忙写一下,谢谢!

改成这样后,y = Format(sArr(r, 6), "yyyy-m")
我用debug.print输出结果是对的,可后面赋值确有问题。
QQ截图20120903101418.jpg

你看看这句有什么问题不,[c7].Resize(d.Count, 1) = Application.Transpose(d2.items)
回复

使用道具 举报

发表于 2012-9-3 10:28 | 显示全部楼层    本楼为最佳答案   
20120902.rar (54.68 KB, 下载次数: 32)
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 17:37 , Processed in 0.624777 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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