Board logo

標題: 幫忙Debug [打印本頁]
作者: JeNXiU    時間: 2014-4-7 23:32     標題: 幫忙Debug

本帖最後由 GBKEE 於 2014-4-8 09:28 編輯

如題，有高手可以幫忙嘛
作者: GBKEE    時間: 2014-4-8 08:47

本帖最後由 GBKEE 於 2014-4-9 05:56 編輯

回復 1# JeNXiU
  1. If Cells(K2, 26) - 1 = 0 Then
  2.         GoTo 1
  3.     Else
  4.         '建議-> 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))  '設定範圍(修改為你要的範圍)
  8.         MsgBox Rng.Address
  9.         'With Sheets("主頁").Cells(3 * K2 - 2 + K1, 3)
  10.         With Sheets("主頁").Cells(3 * (K2 - 1) - 2 + K1, 3)  '建議修改為你要的範圍
  11.             .Value = Application.WorksheetFunction.Average(Rng)
  12.             'Sheets("主頁").Cells(3 * K2 - 2 + K1, 4) = Application.WorksheetFunction.Max(Rng)
  13.             .Offset(, 4) = Application.Max(Rng)
  14.             
  15.             'Sheets("主頁").Cells(3 * K2 - 2 + K1, 5) = Application.WorksheetFunction.Min(Rng)
  16.             .Offset(, 5) = Application.Min(Rng)
  17.             
  18.             'Sheets("主頁").Cells(3 * K2 - 2 + K1, 6) = Application.WorksheetFunction.Percentile(Rng, 0)
  19.             .Offset(, 6) = Application.Percentile(Rng, 0)
  20.             
  21.             'Sheets("主頁").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("主頁").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("主頁").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("主頁").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
複製代碼
作者: JeNXiU    時間: 2014-4-8 21:50

回復 2# GBKEE


感謝G大指教 小弟先試試



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)