返回列表 上一主題 發帖

[已解決]方程式求解

jiuhtsair

帖子
86 
主題
30 
精華
0 
積分
140 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2020-8-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-16 19:26 | 只看該作者

[已解決]方程式求解

本帖最後由 jiuhtsair 於 2011-10-19 20:37 編輯

各位大大好： 方程式求解.zip (3.26 KB)
         小弟想利用窮舉法來求解3日平均線在何時可以穿破21日平均線。
        今日收盤價為7358，明日的3ma=sum(B6:B71)/3，明日21ma=sum(B51:B71)/21。
       其中，B71為明日收盤價。
       想利用EXCEL VBA計算明日收盤下跌多少時，3ma的值會小於或等於21ma?
    感謝！
。
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

diabo

帖子
79 
主題
2 
精華
0 
積分
193 
點名
0  
作業系統
Winwos 7 64 bits 
軟體版本
Excel 2003/2007 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-8-25 
最後登錄
2019-9-20 
2#
發表於 2011-10-16 20:10 | 只看該作者
本帖最後由 diabo 於 2011-10-16 20:12 編輯

回復 1# jiuhtsair

一般均線上升或下跌是採用扣抵觀念推估，你的需求用【目標搜尋】就可以解決...B71 的初始值7000是隨便給的....

    方程式求解.gif
diabo

TOP

jiuhtsair

帖子
86 
主題
30 
精華
0 
積分
140 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2020-8-26 
3#
發表於 2011-10-16 23:23 | 只看該作者
本帖最後由 jiuhtsair 於 2011-10-16 23:26 編輯

感謝diabo大大！不知道可否利用VBA程式的方式，這樣可以節省許多記憶體空間...因為..這是小弟想建構的部份程式！再次感謝！
50 字節以內
不支持自定義 Discuz! 代碼

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
4#
發表於 2011-10-19 15:30 | 只看該作者
本帖最後由 hugh0620 於 2011-10-19 15:52 編輯

回復 3# jiuhtsair


        樓主~ 你的舉例有些問題
        小弟想利用窮舉法來求解3日平均線在何時可以穿破21日平均線。
        今日收盤價為7358，明日的3ma=sum(B6:B71)/3，明日21ma=sum(B51:B71)/21。
        3日均線的算法有問題,應該是3ma=sum(B69:B71)/3        
        其中，B71為明日收盤價。
        想利用EXCEL VBA計算明日收盤下跌多少時，3ma的值會小於或等於21ma?

       僅對於下跌多少的方式來撰寫~ 希望對你有幫助
  1. Sub 股價推估()
  2. A = Sheet1.Range("B65536").End(xlUp).Row '先取得最後一筆的列數，往回推

  4. B1 = Application.Sum(Sheet1.Range(Cells(A + 1, 2), Cells(A - 19, 2))) '計算21天總股價
  5. B2 = Application.Sum(Sheet1.Range(Cells(A + 1, 2), Cells(A - 1, 2)))  '計算3天總股價

  7. A1 = B1 / 21  ''A1=21天均線
  8. Sheet1.Range("D65536").End(xlUp).Offset(1, 0) = A1

  10. A2 = B2 / 3   ''A2=3天均線
  11. Sheet1.Range("C65536").End(xlUp).Offset(1, 0) = A2

  13. I = Int(B2 / 2)  '採用前面兩日的平均價為基準，推測下跌多少會貫穿21日均線

  15. Do
  16.     A1 = (B1 + I) / 21
  17.     A2 = (B2 + I) / 3
  18.        Sheet1.Cells(A + 1, 2) = I
  19.     Sheet1.Range("D65536").End(xlUp).Offset = A1
  20.     Sheet1.Range("C65536").End(xlUp).Offset = A2
  21.     I = I - 0.1                    ' <---修正股價的精準度

  23. Loop Until A1 > A2        'A2(3天均線)小於A1(21天均線)就停止


  26. End Sub
複製代碼
學習才能提升自己

TOP

jiuhtsair

帖子
86 
主題
30 
精華
0 
積分
140 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2020-8-26 
5#
發表於 2011-10-19 20:17 | 只看該作者
回復 4# hugh0620

感謝大大的教導！也向大大說抱歉，自己在KEY資料時打錯了，細心的大大看了出來！

感謝再感謝！
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題