- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2014-4-8 08:47
| 只看該作者
本帖最後由 GBKEE 於 2014-4-9 05:56 編輯
回復 1# JeNXiU - If Cells(K2, 26) - 1 = 0 Then
- GoTo 1
- Else
- '建議-> For K2 = 1+1 To 11 + 1
- If K2 = 1 Then MsgBox Cells(K2 - 1, 26).Address '當 K2 = 1 -> K2 - 1 = 0
- Dim Rng As Range
- Set Rng = Range(Cells(Cells(K2 - 1, 26) + 1, 10), Cells(Cells(K2, 26), 10)) '設定範圍(修改為你要的範圍)
- MsgBox Rng.Address
- 'With Sheets("主頁").Cells(3 * K2 - 2 + K1, 3)
- With Sheets("主頁").Cells(3 * (K2 - 1) - 2 + K1, 3) '建議修改為你要的範圍
- .Value = Application.WorksheetFunction.Average(Rng)
- 'Sheets("主頁").Cells(3 * K2 - 2 + K1, 4) = Application.WorksheetFunction.Max(Rng)
- .Offset(, 4) = Application.Max(Rng)
-
- 'Sheets("主頁").Cells(3 * K2 - 2 + K1, 5) = Application.WorksheetFunction.Min(Rng)
- .Offset(, 5) = Application.Min(Rng)
-
- 'Sheets("主頁").Cells(3 * K2 - 2 + K1, 6) = Application.WorksheetFunction.Percentile(Rng, 0)
- .Offset(, 6) = Application.Percentile(Rng, 0)
-
- 'Sheets("主頁").Cells(3 * K2 - 2 + K1, 7) = Application.WorksheetFunction.Percentile(Rng, 0.25) - Application.WorksheetFunction.Percentile(Rng, 0.1)
- .Offset(, 7) = Application.Percentile(Rng, 0.25) - Application.Percentile(Rng, 0.1)
-
- 'Sheets("主頁").Cells(3 * K2 - 2 + K1, 8) = Application.WorksheetFunction.Percentile(Rng, 0.5) - Application.WorksheetFunction.Percentile(Rng, 0.25)
- .Offset(, 8) = Application.Percentile(Rng, 0.5) - Application.Percentile(Rng, 0.25)
-
- 'Sheets("主頁").Cells(3 * K2 - 2 + K1, 9) = Application.WorksheetFunction.Percentile(Rng, 0.75) - Application.WorksheetFunction.Percentile(Rng, 0.5)
- .Offset(, 9) = Application.Percentile(Rng, 0.75) - Application.Percentile(Rng, 0.5)
-
- 'Sheets("主頁").Cells(3 * K2 - 2 + K1, 10) = Application.WorksheetFunction.Percentile(Rng, 0.9) - Application.WorksheetFunction.Percentile(Rng, 0.75)
- .Offset(, 10) = Application.Percentile(Rng, 0.9) - Application.Percentile(Rng, 0.75)
- End With
- End If
|
|
發表於 2014-4-7 23:32
| 
