帖子: 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

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 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: 3 Rank: 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?

   僅對於下跌多少的方式來撰寫~ 希望對你有幫助

Sub 股價推估()
A = Sheet1.Range("B65536").End(xlUp).Row '先取得最後一筆的列數，往回推
B1 = Application.Sum(Sheet1.Range(Cells(A + 1, 2), Cells(A - 19, 2))) '計算21天總股價
B2 = Application.Sum(Sheet1.Range(Cells(A + 1, 2), Cells(A - 1, 2))) '計算3天總股價
A1 = B1 / 21 ''A1=21天均線
Sheet1.Range("D65536").End(xlUp).Offset(1, 0) = A1
A2 = B2 / 3 ''A2=3天均線
Sheet1.Range("C65536").End(xlUp).Offset(1, 0) = A2
I = Int(B2 / 2) '採用前面兩日的平均價為基準，推測下跌多少會貫穿21日均線
Do
A1 = (B1 + I) / 21
A2 = (B2 + I) / 3
Sheet1.Cells(A + 1, 2) = I
Sheet1.Range("D65536").End(xlUp).Offset = A1
Sheet1.Range("C65536").End(xlUp).Offset = A2
I = I - 0.1 ' <---修正股價的精準度
Loop Until A1 > A2 'A2(3天均線)小於A1(21天均線)就停止
End Sub

複製代碼

學習才能提升自己

TOP

jiuhtsair

中學生 Rank: 2

帖子: 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