標題: 請問將SUMPRODUCT功能轉換成vba的問題 [打印本頁]

---

作者: tonycho33    時間: 2012-4-20 14:27     標題: 請問將SUMPRODUCT功能轉換成vba的問題

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

---

作者: register313    時間: 2012-4-20 14:38

回復 1# tonycho33

樞紐分析表,參考用
[attach]10534[/attach]
[attach]10535[/attach]

---

作者: tonycho33    時間: 2012-4-20 15:04

感謝提醒
方便多了
謝謝

---

作者: GBKEE    時間: 2012-4-20 15:48

回復 1# tonycho33

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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)