返回列表 上一主題 發帖

幫忙Debug

JeNXiU

帖子
8 
主題
4 
精華
0 
積分
18 
點名
0  
作業系統
windows 
軟體版本
sp2 
閱讀權限
10 
性別
男 
註冊時間
2011-2-4 
最後登錄
2018-9-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-4-7 23:32 | 只看該作者

幫忙Debug

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

如題，有高手可以幫忙嘛

波長監控1.rar (496.06 KB)

收藏 分享
JeNXiU

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

JeNXiU

帖子
8 
主題
4 
精華
0 
積分
18 
點名
0  
作業系統
windows 
軟體版本
sp2 
閱讀權限
10 
性別
男 
註冊時間
2011-2-4 
最後登錄
2018-9-22 
3#
發表於 2014-4-8 21:50 | 只看該作者
回復 2# GBKEE


感謝G大指教 小弟先試試
JeNXiU

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題