diabo

¦^´_ 7# a8602soul

1. Private Sub CommandButton1_Click()
   
2. 
   
3.    '²M°£«e¦¸­pºâµ²ªG
   
4.     Range("A2:H" & Rows.Count).Cells.Clear
   
5.    
   
6.    '¨Ì§Ç¦CÁ|©Ò¦³¥i¯àªº¼Æ­È
   
7.     r = 2
   
8.     For i = 2 To Range("L" & Rows.Count).End(xlUp).Row
   
9.         ÅܼÆA = Cells(i, "L").Value
   
10.         For j = 2 To Range("M" & Rows.Count).End(xlUp).Row
    
11.             ÅܼÆB = Cells(j, "M").Value
    
12.             For k = 2 To Range("N" & Rows.Count).End(xlUp).Row
    
13.                 ÅܼÆC = Cells(k, "N").Value
    
14.                 For m = 2 To Range("O" & Rows.Count).End(xlUp).Row
    
15.                      ÅܼÆD = Cells(m, "O").Value
    
16.                      
    
17.                     '¶ñ¤JÅܼÆA-D
    
18.                      Cells(r, "A").Value = ÅܼÆA
    
19.                      Cells(r, "B").Value = ÅܼÆB
    
20.                      Cells(r, "C").Value = ÅܼÆC
    
21.                      Cells(r, "D").Value = ÅܼÆD
    
22.                                           
    
23.                     '­pºâA
    
24.                      Cells(r, "E") = (2 + 2 + ÅܼÆA + ÅܼÆB) / (1 + ÅܼÆA)
    
25.                     '­pºâB
    
26.                      Cells(r, "F") = (ÅܼÆB + ÅܼÆC) / (5 + ÅܼÆB + ÅܼÆC + ÅܼÆD)
    
27.                     '­pºâC
    
28.                      Cells(r, "G") = (2 + 3 + ÅܼÆC + ÅܼÆD) / (1 + ÅܼÆC) + ÅܼÆD
    
29.                     '­pºâD
    
30.                      Cells(r, "H") = (ÅܼÆA + ÅܼÆD) / (ÅܼÆC + 1)
    
31.                      r = r + 1
    
32.                 Next m
    
33.             Next k
    
34.         Next j
    
35.     Next i
    
36. End Sub

½Æ»s¥N½X

°ÝÃD.zip (17.3 KB)

¤U¸ü¦¸¼Æ: 3

2012-10-2 22:02