如何使用巨集自動計算股價漲跌停價? - Excel程式區

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

1^# 跳轉到 »

發表於 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)

2^#

發表於 2016-4-25 08:26 | 顯示全部帖子

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

複製代碼

3^#

發表於 2016-4-25 11:46 | 顯示全部帖子

回復 3# shuasa
沒留意到 Ceiling 的公式：
修正如下

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)
If UpDn Then
UpDown = Application.WorksheetFunction.Floor(ud.Value * 1.1, interval)
Else
UpDown = Application.WorksheetFunction.Ceiling(ud.Value * 0.9, interval)
End If
End Function

複製代碼

靜思自在 : 要批評別人時，先想想自己是否完美無缺。