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

xiaochuchu · 发表于 2009-11-15 14:09

感谢版主的无私，学习中学习中。

痴行若梦 · 发表于 2009-11-15 17:15

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

yll110 · 发表于 2009-11-15 18:56

谢谢你,我学习了。

二尕子 · 发表于 2009-11-15 20:05

学习了，谢谢。

fsezllq · 发表于 2009-11-16 09:40

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

ggsmart · 发表于 2009-11-16 12:15

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

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

zengqh1980 · 发表于 2009-11-16 13:20

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

xubosu · 发表于 2009-11-17 08:33

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

ideal77 · 发表于 2009-11-17 09:47

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 · 发表于 2009-11-17 10:38

怎么没有离线版的呢？

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

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

回复 874楼 cjainwei 的帖子