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

帖子: 320
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-12-21

2^#

發表於 2016-4-24 21:43 | 只看該作者

大大應該先舉例說一下
哪一日的值計算有錯誤
而正確的值應該又是多少

shuasa

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

2016猴年全勤獎章 2015羊年全勤獎章

3^#

發表於 2016-4-24 22:09 | 只看該作者

回復 2# jackyq

我原本是用儲存格用函數公式套用,如4/6日的漲停價是4/1日的收盤價套上公式
M14儲存格的公式是 =IF(F15="","",FLOOR(F15*1.1,LOOKUP(F15*1.1,{0,10,50,100,500,1000},{0.01,0.05,0.1,0.5,1,5})))

漲停價公式
=FLOOR(A1*1.1,LOOKUP(A1*1.1,{0,10,50,100,500,1000},{0.01,0.05,0.1,0.5,1,5}))
跌停價公式
=CEILING(A1*0.9,LOOKUP(A1*0.9,{0,10,50,100,500,1000},{0.01,0.05,0.1,0.5,1,5}))

但是如何用巨集的方式呈現?

2.jpg (73.31 KB)

shuasa

帖子: 320
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-12-21

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

shuasa

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

2016猴年全勤獎章 2015羊年全勤獎章

5^#

發表於 2016-4-25 01:40 | 只看該作者

回復 4# jackyq

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

shuasa

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2016-4-25 08:24 | 只看該作者

回復 3# shuasa
應用 jackyq 大大的函式稍加修改如下，
參考一下：

Public Function UpDown(ud As Range, Optional UpDn As Boolean = True)
If ud.Value = 0 Then UpDown = 0: 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(ud.Value * IIf(UpDn, 1.1, 0.9), Price_Sample, interval_Sample)
UpDown = Application.WorksheetFunction.Floor(ud.Value * IIf(UpDn, 1.1, 0.9), interval)
End Function

複製代碼

漲停價函式
=UpDown(F8)
等於
=UpDown(F8,1)
等於
=UpDown(F8,True)

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

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2016-4-25 08:26 | 只看該作者

回復 3# shuasa
亦可直接以 VBA 程式段來處理：

Sub Ex()
Dim xVal As Double
xVal = UpDown([F8])
MsgBox "UpDown([F8]) (漲停價) = " & xVal
xVal = UpDown([F8], 1)
MsgBox "UpDown([F8], 1) (漲停價) = " & xVal
xVal = UpDown([F8], True)
MsgBox "UpDown([F8], True) (漲停價) = " & xVal
xVal = UpDown([F8], 0)
MsgBox "UpDown([F8], 0) (跌停價) = " & xVal
xVal = UpDown([F8], False)
MsgBox "UpDown([F8], False) (跌停價) = " & xVal
End Sub

複製代碼

帖子: 320
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-12-21

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

帖子: 320
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-12-21

9^#

發表於 2016-4-25 09:09 | 只看該作者

跌停一定要用 Ceiling 不能用 floor

帖子: 320
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-12-21

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