问题描述
我试图找到随给定条件而变化的可变范围的百分位数。我正在使用以下代码,但在“百分位数”功能上使用蓝色突出显示时找不到错误方法或数据成员。我已经尽力了。
Sub ENTRY_L()
'TO CALculaTE VARIABLE STANDARD DEVIATION
Dim recentrange As Long
TOTAL_ROWS = Cells(Rows.COUNT,1).End(xlUp).Row
Sheet5.Range("Q110:Q" & TOTAL_ROWS).ClearContents
For i = 110 To TOTAL_ROWS
recentrange = Sheet5.Range("k" & i - 90 & ":" & "k" & i)
If Sheet5.Range("AJ" & i) >= 0 Then
do while Sheet5.Range("AJ" & i) >= 0
Sheet5.Range("Q" & i) = Sheet5.percentile(recentrange,0.83)
i = i + 1
Loop
ElseIf Sheet5.Range("AJ" & i) <= 0 Then
do while Sheet5.Range("AJ" & i) <= 0
Sheet5.Range("Q" & i) = Sheet5.percentile(recentrange,0.9)
i = i + 1
Loop
Else
End If
Next i
End Sub
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)