字典中 变量数组 提示类型不匹配 为什么？

VBA成长中

zhaogang1960 发表于 2012-9-29 16:57
一个单元格不能作为数组使用，把第一行表头也放进去，从第二行开始：

版主真细心啊，不仅把错误更正过来了，而且还把其他地方进行了改进、、、、
{:soso_e179:}{:soso_e183:} 以后要多多向版主看齐啦、、、

VBA成长中

zhaogang1960 发表于 2012-9-29 16:37
经测试，代码基本没有问题，请上传附件分析一下：

zhao版主，请教啊，上次你帮我调整的代码，后来我又做了稍微的调整，但运行速度很慢， 望版主优化，谢谢{:soso_e183:}

zhaogang1960

VBA成长中 发表于 2012-10-11 17:05
zhao版主，请教啊，上次你帮我调整的代码，后来我又做了稍微的调整，但运行速度很慢， 望版主优化，谢谢{ ...

我看不懂你的原代码，请告诉我你要达到的要求，我来重写

还有数据多一些，就一行数据看不出来名堂

陈国华

VBA成长中 发表于 2012-10-11 17:05
zhao版主，请教啊，上次你帮我调整的代码，后来我又做了稍微的调整，但运行速度很慢， 望版主优化，谢谢{ ...

附件就给了一行数据，叫别人怎么调试呢？怎么说给个也要给个几十行吧

VBA成长中

zhaogang1960 发表于 2012-10-11 17:15
我看不懂你的原代码，请告诉我你要达到的要求，我来重写

还有数据多一些，就一行数据看不出来名堂

根据收款单中的客户，下单日期，金总额，   在统计报表中点 销售统计 就自动显示客户和每月的金总额。

VBA成长中

VBA成长中 发表于 2012-10-11 17:20
根据收款单中的客户，下单日期，金总额，   在统计报表中点 销售统计 就自动显示客户和每月的金总额。

加了几行，可以自己加入行， 谢谢

陈国华

代码帮你缩短了不少，速度不知道怎么样，测试吧！

1. Private Sub CommandButton1_Click()
   
2. Dim d As Object, Arr, brr(), i&, n&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Arr = Sheet4.Range("a1").CurrentRegion
   
5. For i = 2 To UBound(Arr)
   
6.    If Not d.exists(Arr(i, 2)) Then
   
7.       n = n + 1
   
8.       d(Arr(i, 2)) = n
   
9.       ReDim Preserve brr(1 To 13, 1 To n)
   
10.       brr(1, n) = Arr(i, 2)
    
11.       brr(Month(Arr(i, 3)) + 1, n) = Arr(i, 10)
    
12.    Else
    
13.       brr(Month(Arr(i, 3)) + 1, d(Arr(i, 2))) = brr(Month(Arr(i, 3)) + 1, d(Arr(i, 2))) + Arr(i, 10)
    
14.    End If
    
15. Next
    
16. Sheet9.Range("a2").Resize(n, 13) = Application.Transpose(brr)
    
17. End Sub

复制代码

赵莲

斑竹真好~学习

VBA成长中

陈国华 发表于 2012-10-11 20:05
代码帮你缩短了不少，速度不知道怎么样，测试吧！

谢陈斑竹啦，速度达到了我的预期要求、、、{:soso_e183:}以后还要继续好好研究字典，向大家学习{:soso_e181:}、、、、

qiexy

学习啦，字典的字和项+数组真是变幻莫测