À°¦£Debug

JeNXiU

¦pÃD¡A¦³°ª¤â¥i¥HÀ°¦£¹À

GBKEE

¦^´_ 1# JeNXiU

1. If Cells(K2, 26) - 1 = 0 Then
   
2.         GoTo 1
   
3.     Else
   
4.         '«Øij-> For K2 = 1+1 To 11 + 1
   
5.         If K2 = 1 Then MsgBox Cells(K2 - 1, 26).Address '·í K2 = 1 -> K2 - 1 = 0
   
6.         Dim Rng As Range
   
7.         Set Rng = Range(Cells(Cells(K2 - 1, 26) + 1, 10), Cells(Cells(K2, 26), 10))  '³]©w½d³ò(­×§ï¬°§A­nªº½d³ò)
   
8.         MsgBox Rng.Address
   
9.         'With Sheets("¥D­¶").Cells(3 * K2 - 2 + K1, 3)
   
10.         With Sheets("¥D­¶").Cells(3 * (K2 - 1) - 2 + K1, 3)  '«Øij­×§ï¬°§A­nªº½d³ò
    
11.             .Value = Application.WorksheetFunction.Average(Rng)
    
12.             'Sheets("¥D­¶").Cells(3 * K2 - 2 + K1, 4) = Application.WorksheetFunction.Max(Rng)
    
13.             .Offset(, 4) = Application.Max(Rng)
    
14.             
    
15.             'Sheets("¥D­¶").Cells(3 * K2 - 2 + K1, 5) = Application.WorksheetFunction.Min(Rng)
    
16.             .Offset(, 5) = Application.Min(Rng)
    
17.             
    
18.             'Sheets("¥D­¶").Cells(3 * K2 - 2 + K1, 6) = Application.WorksheetFunction.Percentile(Rng, 0)
    
19.             .Offset(, 6) = Application.Percentile(Rng, 0)
    
20.             
    
21.             'Sheets("¥D­¶").Cells(3 * K2 - 2 + K1, 7) = Application.WorksheetFunction.Percentile(Rng, 0.25) - Application.WorksheetFunction.Percentile(Rng, 0.1)
    
22.             .Offset(, 7) = Application.Percentile(Rng, 0.25) - Application.Percentile(Rng, 0.1)
    
23.             
    
24.             'Sheets("¥D­¶").Cells(3 * K2 - 2 + K1, 8) = Application.WorksheetFunction.Percentile(Rng, 0.5) - Application.WorksheetFunction.Percentile(Rng, 0.25)
    
25.             .Offset(, 8) = Application.Percentile(Rng, 0.5) - Application.Percentile(Rng, 0.25)
    
26.             
    
27.             'Sheets("¥D­¶").Cells(3 * K2 - 2 + K1, 9) = Application.WorksheetFunction.Percentile(Rng, 0.75) - Application.WorksheetFunction.Percentile(Rng, 0.5)
    
28.             .Offset(, 9) = Application.Percentile(Rng, 0.75) - Application.Percentile(Rng, 0.5)
    
29.             
    
30.             'Sheets("¥D­¶").Cells(3 * K2 - 2 + K1, 10) = Application.WorksheetFunction.Percentile(Rng, 0.9) - Application.WorksheetFunction.Percentile(Rng, 0.75)
    
31.             .Offset(, 10) = Application.Percentile(Rng, 0.9) - Application.Percentile(Rng, 0.75)
    
32.         End With
    
33.     End If

½Æ»s¥N½X

JeNXiU

¦^´_ 2# GBKEE


·PÁÂG¤j«ü±Ð ¤p§Ì¥ý¸Õ¸Õ