kimbal

¥u®t¤@ÂIÂI, ´N¬O¦b¨C­ÓRANGE «e¥[¤@ÂI, ¤£µMRANGE(XX)¬O·í«e­¶ªºRANGE, .RANGE ¬OWITH­¶¤UªºRANGE

1. Sub Worksheet_Activate()
   
2. Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, i
   
3. For i = 1 To 22
   
4. With Sheets("¯Z¯Å·F³¡")
   
5.     a1 = Application.SumIf(.Range("D2:D23"), i, .Range("C2:C23"))
   
6.     a2 = Application.SumIf(.Range("h2:h23"), i, .Range("g2:g23"))
   
7.     a3 = Application.SumIf(.Range("l2:l23"), i, .Range("k2:k23"))
   
8. End With
   
9. With Sheets("±½¦a¤u§@")
   
10.     a4 = Application.SumIf(.Range("D2:D23"), i, .Range("C2:C23"))
    
11.     a5 = Application.SumIf(.Range("h2:h23"), i, .Range("g2:g23"))
    
12.     a6 = Application.SumIf(.Range("l2:l23"), i, .Range("k2:k23"))
    
13. End With
    
14. With Sheets("¨C¶g¤u§@")
    
15.     a7 = Application.SumIf(.Range("D2:D23"), i, .Range("C2:C23"))
    
16.     a8 = Application.SumIf(.Range("h2:h23"), i, .Range("g2:g23"))
    
17.     a9 = Application.SumIf(.Range("l2:l23"), i, .Range("k2:k23"))
    
18. End With
    
19. With Sheets("­Ó¤Hªí²{")
    
20.     a10 = Application.SumIf(.Range("D2:D23"), i, .Range("C2:C23"))
    
21.     a11 = Application.SumIf(.Range("h2:h23"), i, .Range("g2:g23"))
    
22.     a12 = Application.SumIf(.Range("l2:l23"), i, .Range("k2:k23"))
    
23. End With
    
24. Sheets("²Î­pµ²ªG").Range("b" & i + 1).Value = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11 + a12
    
25. Next i
    
26. End Sub

½Æ»s¥N½X