作者nazomegami (深呼吸~)
看板Office
標題[算表] vba迴圈問題
時間Sat Apr 23 08:57:12 2016
軟體:excel vba
版本:2010
各位版大好，以下有一vba程式，目的是要抓取3萬筆左右的交易價格進行統計分析(交易
價格可隨機設為1000~10000之間的值)。
我的問題是，程式中有一段 For zzz = 0.95 To 1 Step k_gap，如果我將0.95改為0.9，
則原本百分比介於0.95~1的資料就沒有跑出來，可是做迴圈時zzz卻會取到1，覺得很困惑
，系望各位大大解惑，謝謝。
Sub slope_analysis()
Dim k_gap, percentile_lbound_value, percentile_ubound_value
Dim ary0(33000), ary1(33000), ary2(33000), ary3(3500), ary4(3500), _
ary5(30), ary6(30), ary7(500, 3)
Dim i&, j&, k&, m&, n&, p&
'60=3個月；120=6個月；180=9個月；250=1年；500=2年；750=3年；1000=4年；_
1250=5年
'1500=6年；1750=7年；2000=8年；2250=9年；2500=10年
k_gap = 0.05
j = 1
For i = 1 To 33000
If Cells(6 + i, 5) <> "" Then
ary0(j) = Cells(6 + i, 5)
j = j + 1
End If
Next
'zzz=百分比上限;xxx=歷史天數;yyy=未來天數
For zzz = 0.95 To 1 Step k_gap
For xxx = 250 To 2500 Step 250
n = 0
Erase ary5, ary6
For yyy = 625 To 1250 Step 125
'若第i日前x天且後y天不超過資料範圍，則分別寫入第i日前x天與 _
後y天的報酬率
k = 0
m = 0
Erase ary1, ary2, ary3, ary4
For i = 1 To j - 1
If i - xxx > 0 And i + yyy <= j - 1 Then
ary1(i) = (ary0(i) - ary0(i - xxx)) / ary0(i - xxx)
ary2(i) = (ary0(i + yyy) - ary0(i)) / ary0(i)
k = k + 1
End If
Next
'求得歷史報酬率樣本中第i個百分比之下限值與第j個百分比之上限值
If zzz - k_gap = 0 Then
percentile_lbound_value = WorksheetFunction.Min(ary1)
Else
percentile_lbound_value = _
WorksheetFunction.Percentile(ary1, zzz - k_gap)
End If
If zzz = 1 Then
percentile_ubound_value = WorksheetFunction.Max(ary1)
Else
percentile_ubound_value = _
WorksheetFunction.Percentile(ary1, zzz)
End If
'將歷史報酬率在百分比上下限內之值寫入
For i = 1 + xxx To k + xxx
If ary1(i) > percentile_lbound_value And ary1(i) <= _
percentile_ubound_value Then
ary3(m) = ary1(i)
ary4(m) = ary2(i)
m = m + 1
End If
Next
ary5(n) = WorksheetFunction.Correl(ary3, ary4)
ary6(n) = n + 1
n = n + 1
Next yyy
ary7(p, 0) = zzz - k_gap
ary7(p, 1) = zzz
ary7(p, 2) = xxx
ary7(p, 3) = WorksheetFunction.Slope(ary5, ary6)
p = p + 1
Next xxx
Next zzz
For i = 0 To 500
Cells(6 + i, 9) = ary7(i, 0)
Cells(6 + i, 10) = ary7(i, 1)
Cells(6 + i, 11) = ary7(i, 2)
Cells(6 + i, 12) = ary7(i, 3)
Next
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.239.180.109
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1461373035.A.436.html
→ soyoso: 改為0.9，zzz的值依序為0.9、0.95、1 04/23 09:56
→ soyoso: 而0.95~1的資料沒有出來方面，這方面的判斷是寫於巨集內的 04/23 09:58
→ soyoso: 那個部分呢？ 04/23 09:59
→ nazomegami: 在for i=1 to 500 那一段 04/23 10:39
→ nazomegami: 我會將結果寫如cells中 04/23 10:40
→ soyoso: for i=1 to 500是指？只有看到for i=0 to 500 04/23 11:06
→ soyoso: 如是i=0 to 500這段的話，ary7內是否0.95~1的資料就無存在 04/23 11:07
→ soyoso: 無存在的話，往前看這方面的判斷是寫於巨集內的那個部分 04/23 11:09
→ nazomegami: 是for i=0 to 500沒錯 04/23 19:59
→ nazomegami: 問題出在zzz數到1之後卻沒有 04/23 20:00
→ nazomegami: 繼續往下做，所以才覺得很奇怪 04/23 20:00
→ soyoso: 那這方面還是提供檔案，應會比較清楚 04/23 20:02
→ nazomegami: 不好意思，我要如何寄檔案給你呢？ 謝謝! 04/24 09:36
→ soyoso: 可放置雲端空間，再貼連接 04/24 09:51
→ nazomegami: G5mbk8yQWs/view?usp=sharing 04/24 11:51
→ nazomegami: 連結如上，上下兩行都是，謝謝。 04/24 11:52
→ soyoso: 提供的檔案和原文不同所述不同，要以那個為主呢？ 04/24 12:33
→ soyoso: 檔案看到的為function 04/24 12:33
→ soyoso: 抱歉，有看到sub於sheet1內 04/24 12:46
→ soyoso: 將變數zzz宣告為single，測試有跑出0.95~1的值 04/24 13:15
→ nazomegami: 已測試成功，謝謝! 04/24 21:18
→ nazomegami: 但如果是 for zzz=0.05 to 1 step 0.05 04/24 21:26
→ nazomegami: 的話，zzz=1的情境又沒有結果跑出來 04/24 21:27
→ soyoso: 那改為整數for zzz=5 to 100 step 5，迴圈內有使用變數zzz 04/24 22:05
→ soyoso: 宣告上可調整為integer 04/24 22:08
→ nazomegami: 已排除問題，謝謝! 04/25 07:30