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

hwc2ycy · 发表于 2012-9-3 10:29

我测试过了，当时输入后我没有看D2的KEYS。
现在终于知道了。
看来有机会得学学字典啊。

caishensi · 发表于 2012-9-3 10:32

hwc2ycy 发表于 2012-9-3 10:29
我测试过了，当时输入后我没有看D2的KEYS。
现在终于知道了。
看来有机会得学学字典啊。

看了好久也没看出来那里错了，郁闷ing

hwc2ycy · 发表于 2012-9-3 10:34

caishensi 发表于 2012-9-3 10:32
看了好久也没看出来那里错了，郁闷ing

我帮你加了个条件判断，如果小于SD的就不会写入D2了。

caishensi · 发表于 2012-9-3 10:45

hwc2ycy 发表于 2012-9-3 10:34
我帮你加了个条件判断，如果小于SD的就不会写入D2了。

谢谢你提醒了一下，加个条件就好了，问题解决了，原来是出在KEYS这里了

5isoft · 发表于 2012-9-3 10:56

本帖最后由 5isoft 于 2012-9-3 11:02 编辑

你的科目代码始终是1001啊，而你认为正确地数据1-33处，它的科目代码为6801。你取科目代码的语句是：科目代码 = Range("c2")，始终是1001，而1001的最大值确实是1嘛。我是这样理解的，不知道是不是这样的。If sArr(R, 34) = 科目代码 And sArr(R, 6) >= SD Then
         d(y) = d(y) + sArr(R, 19)
         d1(y) = d1(y) + sArr(R, 20)
      End If
我怀疑我领会错楼主意思

caishensi · 发表于 2012-9-3 10:58

hwc2ycy 发表于 2012-9-3 10:28
终于好，原来那个2011年没过滤。

可是日期那两列出错了

5isoft · 发表于 2012-9-3 11:03

hwc2ycy 发表于 2012-9-3 10:28
终于好，原来那个2011年没过滤。

看来是我领会错了，学习

hwc2ycy · 发表于 2012-9-3 11:05

本帖最后由 hwc2ycy 于 2012-9-3 11:06 编辑

caishensi 发表于 2012-9-3 10:58
可是日期那两列出错了

把那两列的格式改下就成了。中间的数据是对的不？借方和贷方的。

其实第2列日没有必要，因为你统计的是合并1个月的数据，我刚开始，卡一会，怎么也看不明白这个日月列是什么来头。

hwc2ycy · 发表于 2012-9-3 11:08

本帖最后由 hwc2ycy 于 2012-9-3 11:11 编辑

[a7].Resize(d.Count, 1) = Application.Transpose(d.keys)
[b7].Resize(d.Count, 1) = Application.Transpose(d.keys)

你原来的表格里，A,B列既然用的都是D.KEYS，何以内容会不同了？

明白了，又是格式所致。

caishensi · 发表于 2012-9-3 11:17

hwc2ycy 发表于 2012-9-3 11:08
[a7].Resize(d.Count, 1) = Application.Transpose(d.keys)
.Resize(d.Count, 1) = Application.T ...

发生额没错，日、月两列取数出错，比如输入“1801”，发生额应该是7月份的

		自动登录	找回密码
密码			注册