[已解决]数据量过大导致越界 高手帮我看看 谢谢！ 急

nanohappy

底纹着色 问题.zip (27.98 KB, 下载次数: 2)

2013-8-1 18:21 上传

点击文件名下载附件          能否帮我调试一下

最佳答案

月排行榜 / 总排行榜

sliang28

2013-8-1 19:05

你的程序第一个问题:字典赋值不正确,应该是重复时item+1
应该这样写:dic(arr(i, 1)) = dic(arr(i, 1)) + 1
第二个问题:数据装进字典后,应该是循环数组才对,你循环了d.count,这样显然就错了,如果有重复,d.count肯定小于当前的数据行。所以就不对。
第三个问题：Cells(a(j), 1).Interior.ColorIndex = i + 7  Interior.ColorIndex 一般是0~56吧，i+7 就会出错吧。这个涂色的范围我不是太清楚，我见过的颜色一般使用0~56。

跳转到最佳答案楼层

sliang28

看看是不是这个意思?

nanohappy

sliang28 发表于 2013-8-1 18:47
看看是不是这个意思?

就是这意思！！！！！！！
       问个问题，为什么我的程序去判断比他还大的数据时都没事，就唯独这个数据不行，是为什么？

sliang28

你的程序第一个问题:字典赋值不正确,应该是重复时item+1
应该这样写:dic(arr(i, 1)) = dic(arr(i, 1)) + 1
第二个问题:数据装进字典后,应该是循环数组才对,你循环了d.count,这样显然就错了,如果有重复,d.count肯定小于当前的数据行。所以就不对。
第三个问题：Cells(a(j), 1).Interior.ColorIndex = i + 7  Interior.ColorIndex 一般是0~56吧，i+7 就会出错吧。这个涂色的范围我不是太清楚，我见过的颜色一般使用0~56。