請問將SUMPRODUCT功能轉換成vba的問題

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-4-20 14:27 | 只看該作者

請問一下用SUMPRODUCT函數如何轉換成VBA，如範例
因為當B欄有好幾千筆時，速度會變很慢
謝謝

Tony

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-4-20 14:38 | 只看該作者

回復 1# tonycho33

樞紐分析表,參考用

fndvfile111.rar (9.32 KB)

3^#

發表於 2012-4-20 15:04 | 只看該作者

感謝提醒
方便多了
謝謝

Tony

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-4-20 15:48 | 只看該作者

回復 1# tonycho33

Option Explicit
Sub Ex()
Dim E, Rng As Range, 料號 As String, 數量 As String, 日期 As String
With Sheets("fndvfile")
料號 = .Range(.[A2], .[A2].End(xlDown)).Address(1, 1, , 1)
數量 = .Range(.[D2], .[D2].End(xlDown)).Address(1, 1, , 1)
日期 = .Range(.[E2], .[E2].End(xlDown)).Address(1, 1, , 1)
End With
With Sheet1
.[c2:n6] = ""
For Each E In .[c2:n6]
E.Value = Application.Evaluate("=SUMPRODUCT((" & 料號 & "=" & .Cells(E.Row, 2).Address & ")*(" & 日期 & "=" & .Cells(1, E.Column).Address & ")*(" & 數量 & "))")
Next
End With
End Sub

複製代碼

靜思自在 : 口說好話、心想好意、身行好事。