½Ð°Ý±NSUMPRODUCT¥\¯àÂà´«¦¨vbaªº°ÝÃD

tonycho33

½Ð°Ý¤@¤U¥ÎSUMPRODUCT¨ç¼Æ¦p¦óÂà´«¦¨VBA¡A¦p½d¨Ò
¦]¬°·íBÄ榳¦n´X¤dµ§®É¡A³t«×·|ÅܫܺC
ÁÂÁÂ

GBKEE

¦^´_ 1# tonycho33

1. Option Explicit
   
2. Sub Ex()
   
3.      Dim E, Rng As Range, ®Æ¸¹ As String, ¼Æ¶q As String, ¤é´Á As String
   
4.      With Sheets("fndvfile")
   
5.         ®Æ¸¹ = .Range(.[A2], .[A2].End(xlDown)).Address(1, 1, , 1)
   
6.         ¼Æ¶q = .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 & ")*(" & ¼Æ¶q & "))")
    
13.         Next
    
14.     End With
    
15. End Sub

½Æ»s¥N½X

tonycho33

·PÁ´£¿ô
¤è«K¦h¤F
ÁÂÁÂ

register313

¦^´_ 1# tonycho33

¼Ï¯Ã¤ÀªRªí,°Ñ¦Ò¥Î

¤U¸ü (161.83 KB)

2012-4-20 14:37

fndvfile111.rar (9.32 KB)

¤U¸ü¦¸¼Æ: 16

2012-4-20 14:37