12
返回列表 上一主題 發帖

[發問] 如何使用巨集自動計算股價漲跌停價?

shuasa

帖子
25 
主題
8 
精華
0 
積分
70 
點名
155  
作業系統
winxp 
軟體版本
sp3 
閱讀權限
20 
註冊時間
2010-5-6 
最後登錄
2024-11-14 

2016猴年全勤獎章2015羊年全勤獎章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-4-24 20:34 | 只看該作者

[發問] 如何使用巨集自動計算股價漲跌停價?

本帖最後由 shuasa 於 2016-4-24 20:39 編輯

請問要如何用使巨集自動計算股價票漲跌停價?

1.jpg (144.74 KB)

1.jpg

股票資料.rar (19.11 KB)

收藏 分享
shuasa

shuasa

帖子
25 
主題
8 
精華
0 
積分
70 
點名
155  
作業系統
winxp 
軟體版本
sp3 
閱讀權限
20 
註冊時間
2010-5-6 
最後登錄
2024-11-14 

2016猴年全勤獎章2015羊年全勤獎章
12#
發表於 2016-4-25 18:34 | 只看該作者
回復 7# c_c_lai


     感謝 c_c_lai大大指教,感謝您們指點迷津
shuasa

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
11#
發表於 2016-4-25 11:46 | 只看該作者
回復 3# shuasa
沒留意到 Ceiling 的公式：
修正如下
  1. Public Function UpDown(ud As Range, Optional UpDn As Boolean = True)
  2.     If ud.Value = 0 Then UpDown = 0: Exit Function
  3.       
  4.     Price_Sample = Array(0, 10, 50, 100, 500, 1000)
  5.     interval_Sample = Array(0.01, 0.05, 0.1, 0.5, 1, 5)
  6.          
  7.     interval = Application.WorksheetFunction.Lookup(ud.Value * IIf(UpDn, 1.1, 0.9), Price_Sample, interval_Sample)
  8.    
  9.     If UpDn Then
  10.         UpDown = Application.WorksheetFunction.Floor(ud.Value * 1.1, interval)
  11.     Else
  12.         UpDown = Application.WorksheetFunction.Ceiling(ud.Value * 0.9, interval)
  13.     End If
  14. End Function
複製代碼

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
10#
發表於 2016-4-25 09:43 | 只看該作者
回復 8# jackyq

挖哩勒 !!!!  0.1 放錯位置

再更正一次

Public Function 漲跌停價(昨收,  漲or跌 As Long)

漲跌停價 = ""
If 昨收 = "" Then Exit Function
if 漲or跌 = 0 Then Exit Function

   Price_Sample = Array(0, 10, 50, 100, 500, 1000)
interval_Sample = Array(0.01, 0.05, 0.1, 0.5, 1, 5)

漲跌停價 = 昨收 * ( 1 + sgn( 漲or跌 )  * 0.1  )  
interval = Application.WorksheetFunction.Lookup(漲跌停價, Price_Sample, interval_Sample)

If 漲or跌 > 0 Then 漲跌停價 = Application.WorksheetFunction.Floor(漲跌停價 , interval)
If 漲or跌 < 0 Then 漲跌停價 = Application.WorksheetFunction.Ceiling(漲跌停價 , interval)

End Function

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
9#
發表於 2016-4-25 09:09 | 只看該作者
跌停一定要用 Ceiling 不能用 floor

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
8#
發表於 2016-4-25 09:07 | 只看該作者
本帖最後由 jackyq 於 2016-4-25 09:15 編輯

回復 5# shuasa

我有理解錯歐     

應該這樣才對

Public Function 漲跌停價(昨收,  漲or跌 As Long)

漲跌停價 = ""
If 昨收 = "" Then Exit Function
if 漲or跌 = 0 Then Exit Function

   Price_Sample = Array(0, 10, 50, 100, 500, 1000)
interval_Sample = Array(0.01, 0.05, 0.1, 0.5, 1, 5)

漲跌停價 = 昨收 * ( 1 + sgn( 漲or跌 )   )  * 0.1
interval = Application.WorksheetFunction.Lookup(漲跌停價, Price_Sample, interval_Sample)

If 漲or跌 > 0 Then 漲跌停價 = Application.WorksheetFunction.Floor(漲跌停價 , interval)
If 漲or跌 < 0 Then 漲跌停價 = Application.WorksheetFunction.Ceiling(漲跌停價 , interval)

End Function

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
7#
發表於 2016-4-25 08:26 | 只看該作者
回復 3# shuasa
亦可直接以 VBA 程式段來處理：
  1. Sub Ex()
  2.     Dim xVal As Double
  3.    
  4.     xVal = UpDown([F8])
  5.     MsgBox "UpDown([F8]) (漲停價) = " & xVal
  6.     xVal = UpDown([F8], 1)
  7.     MsgBox "UpDown([F8], 1) (漲停價) = " & xVal
  8.     xVal = UpDown([F8], True)
  9.     MsgBox "UpDown([F8], True) (漲停價) = " & xVal
  10.    
  11.     xVal = UpDown([F8], 0)
  12.     MsgBox "UpDown([F8], 0) (跌停價) = " & xVal
  13.     xVal = UpDown([F8], False)
  14.     MsgBox "UpDown([F8], False) (跌停價) = " & xVal
  15. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
6#
發表於 2016-4-25 08:24 | 只看該作者
回復 3# shuasa
應用 jackyq  大大的函式稍加修改如下，
參考一下：
  1. Public Function UpDown(ud As Range, Optional UpDn As Boolean = True)
  2.     If ud.Value = 0 Then UpDown = 0: Exit Function
  3.       
  4.     Price_Sample = Array(0, 10, 50, 100, 500, 1000)
  5.     interval_Sample = Array(0.01, 0.05, 0.1, 0.5, 1, 5)
  6.          
  7.     interval = Application.WorksheetFunction.Lookup(ud.Value * IIf(UpDn, 1.1, 0.9), Price_Sample, interval_Sample)
  8.     UpDown = Application.WorksheetFunction.Floor(ud.Value * IIf(UpDn, 1.1, 0.9), interval)
  9. End Function
複製代碼
漲停價函式
=UpDown(F8)
等於
=UpDown(F8,1)
等於
=UpDown(F8,True)

跌停價函式
=UpDown(F8,0)
等於
=UpDown(F8,False)

TOP

shuasa

帖子
25 
主題
8 
精華
0 
積分
70 
點名
155  
作業系統
winxp 
軟體版本
sp3 
閱讀權限
20 
註冊時間
2010-5-6 
最後登錄
2024-11-14 

2016猴年全勤獎章2015羊年全勤獎章
5#
發表於 2016-4-25 01:40 | 只看該作者
回復 4# jackyq


    感謝jackyq大大指教,讓我又多學到知識:)
shuasa

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
4#
發表於 2016-4-24 22:38 | 只看該作者
大大我照你公式翻譯而已

Public Function 漲跌停價(昨收,  漲or跌 As Long)

漲跌停價 = ""
If 昨收 = "" Then Exit Function

   Price_Sample = Array(0, 10, 50, 100, 500, 1000)
interval_Sample = Array(0.01, 0.05, 0.1, 0.5, 1, 5)

interval = Application.WorksheetFunction.Lookup(昨收, Price_Sample, interval_Sample)

If 漲or跌 > 0 Then 漲跌停價 = Application.WorksheetFunction.Floor(昨收 * 1.1, interval)
If 漲or跌 < 0 Then 漲跌停價 = Application.WorksheetFunction.Ceiling(昨收 * 0.9, interval)

End Function

TOP

        靜思自在 : 自己害自己，莫過於亂發脾氣。
12
返回列表 上一主題