菜鸟谈VBA最最基础入门《原创》

痴行若梦

太精典了,谢谢各位热心人!

yll110

谢谢你,我学习了。

二尕子

学习了，谢谢。

fsezllq

这段代码还是看不懂！可否解释一下!谢谢了

ggsmart

原帖由 fsezllq 于 2009-11-16 09:40 发表
这段代码还是看不懂！可否解释一下!谢谢了

在解读代码的过程中，对于不明白的关键字，可以试着抹黑，按F1键，查看系统的帮助。实在有研究不出来的，可以贴出来大家一起交流。

zengqh1980

用了一个钟,宏搞清楚了,谢谢~

xubosu

学习了，非常不错，收藏！

ideal77

Sub datainput()
Dim a, i, j, k As Integer
Dim department()
Dim tarde()
Dim arr(1 To 37, 1 To 11)
department = Array("A1")
tarde = Sheet8.Range("B2:B38")
k = 1
a = Sheet7.[D65536].End(3).Row
For i = 0 To UBound(department)
    For j = 1 To UBound(tarde) -1                                               
        arr(k, 1) = Application.Evaluate("application.worksheetfunction.sumproduct((range(""D2:D28000"")=" & tarde(j,1) & ")*(range(""E2:E28000"")=" & department(i) & ")*(range(""F2:F28000"")))")
        'arr(k,2)=
        k = k + 1
    Next j
    Sheets(department(i)).Cells(a + 1, 4).Resize(37, 11) = arr
Next i
End Sub

经高人解答tarde = Sheet8.Range("B2:B38")将生成只有一列的二维数组。原问题搞定。
又出新问题了，计算的结果都是：#name！怎么回事啊？（D列和E列都是文本F列是数值）

[ 本帖最后由 ideal77 于 2009-11-17 15:11 编辑 ]

jtfwow

怎么没有离线版的呢？

cabellx

楼主就是俺的启蒙老是啊