返回列表 上一主題 發帖

[發問] 自定函數-選擇權權利金報價單問題

frantz

帖子
15 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
win7 
軟體版本
vba 
閱讀權限
10 
註冊時間
2015-3-8 
最後登錄
2025-2-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-4-4 01:36 | 顯示全部帖子

[發問] 自定函數-選擇權權利金報價單問題

權利金報價單位       
報價未滿10點：0.1點(5元)
報價10點以上，未滿50點：0.5點(25元)
報價50點以上，未滿500點：1點(50元)
報價500點以上，未滿1,000點：5點(250元)
報價1,000點以上：10點(500元)

小弟參考以上規則自己嘗試利用自定函數方式編寫出以下的寫法
不知道這樣子寫需不需要在修正呢 。
能否請前輩指點一下。
謝謝。
  1. Function MyOP(V As String, V1 As Double)
  2.   
  3.    If V <= 10 Then
  4.     MyOP = Round(V1, 1)
  5.     End If
  6.    
  7.     If (Len(V) = 2 Or Len(V) >= 4) Then
  8.     If V > 10 And V < 50 And Mid(V, 1, 4) >= 0 And Mid(V, 1, 4) <= 4 Then
  9.     MyOP = Round(V1, 0)
  10.     ElseIf V > 10 And V < 50 And Mid(V, Len(V), Len(V)) = 5 Then
  11.     MyOP = Mid(Int(V1), 1, 2) + 0.5
  12.     ElseIf V > 10 And V < 50 And Mid(V, Len(V), Len(V)) > 5 Then
  13.     MyOP = Round(V1, 0)
  14.     End If
  15.     End If
  16.    
  17.    
  18.    
  19.    
  20.     If V <= 100 And V1 >= 50 Then
  21.     MyOP = Mid(Int(V1), 1, 2) + 1
  22.    
  23.     ElseIf V < 500 And V1 > 100 Then
  24.     MyOP = Mid(Int(V1), 1, 3) + 1
  25.    
  26.     ElseIf V <= 1000 And V >= 500 Then
  27.     MyOP = (Mid(Round(V1, 0), 1, 2) * 10) + 5
  28.    
  29.     ElseIf V <= 10000 And V > 1000 Then
  30.     MyOP = (Mid(Round(V1, 0), 1, 3) * 10) + 10
  31.     ElseIf V > 10000 Then
  32.     MyOP = (Mid(Round(V1, 0), 1, 4) * 10) + 10
  33.    
  34.     End If
  35. End Function
複製代碼
收藏 分享

frantz

帖子
15 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
win7 
軟體版本
vba 
閱讀權限
10 
註冊時間
2015-3-8 
最後登錄
2025-2-18 
2#
發表於 2016-4-4 16:58 | 顯示全部帖子
回復 2# GBKEE


    謝謝超版
待會我回去TRY
瞭解當中的不同處

TOP

frantz

帖子
15 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
win7 
軟體版本
vba 
閱讀權限
10 
註冊時間
2015-3-8 
最後登錄
2025-2-18 
3#
發表於 2016-4-4 17:03 | 顯示全部帖子
回復 3# 准提部林


    謝謝前輩
當初會寫這個是因為有用一般公式計算選擇權的撐壓價。
會有在價格大於五十元之後，仍有小數位的問題。
因此想把這些大於五十元之上的數字可以四捨五入進位。
用進位方式去呈現符合規則的數字。
待會回去我一個個TRY看看不同處。

TOP

frantz

帖子
15 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
win7 
軟體版本
vba 
閱讀權限
10 
註冊時間
2015-3-8 
最後登錄
2025-2-18 
4#
發表於 2016-4-4 19:46 | 顯示全部帖子
回復 2# GBKEE
回復 3# 准提部林

謝謝兩位前輩提供的寫法
剛剛測試後，發現寫法呈現出來效果都是一樣。
如我按48.1 或者48.5、48.6等情形時，
出來都是0.5
但如果要四捨五入進位判斷的話。
能不能寫成如下呢?
  1. Function MyOP(V)
  2. MyOP = Switch(V >= 1000, 10, V >= 500, 5, V >= 50, 1, V >= 10, 0.5, V > 0, 0.1)

  4. If (V > 0 And V <= 10) Then
  5.   MyOP = V
  6. End If
  7.   
  8. If V > 10 Then
  9.     If Round(V, 2) - Int(V) = 0 Then
  10.     MyOP = Int(V)
  11.     ElseIf (Round(V, 4) - Int(V) >= 0.001 And Round(V, 4) - Int(V) <= 0.5) Then
  12.     MyOP = Int(V) + MyOP
  13.     Else
  14.     MyOP = Round(V, 0)
  15.     End If


  18. End If
  19. End Function
複製代碼

TOP

frantz

帖子
15 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
win7 
軟體版本
vba 
閱讀權限
10 
註冊時間
2015-3-8 
最後登錄
2025-2-18 
5#
發表於 2016-4-4 21:15 | 顯示全部帖子
剛剛小弟自己在重新思考寫法如下
配合規則進行點數計算時，能更貼進規則。
10點以下跳數時，『每跳動』是0.1點計算(計算出來應該是9.5、9.6、9.7)
10點以上未滿50點，『每跳動』是0.5點計算(計算出來應該是10、10.5、11)
50點以上未滿500點，『每跳動』是1點計算(計算出來應該是51、52、53)
500點以上未滿1000點，『每跳動』是5點計算(計算出來應該是500、505、510)
1000點以上時，『每跳動』是10點計算(計算出來應該是1000、1020、1030)
  1. Function MyOP(V As Double) As Double
  2. Dim t, a
  3. t = Round(V, 4) - Int(V)
  4.     Select Case V
  5.         Case Is <= 0
  6.             a = 0
  7.         Case Is < 10            '報價未滿10點：0.1點(5元)
  8.             a = 0.1
  9.         Case 10 To 49        '報價10點以上，未滿50點：0.5點(25元)
  10.             a = 0.5
  11.         Case 50 To 499      '報價50點以上，未滿500點：1點(50元)
  12.             a = 1
  13.         Case 500 To 999     '報價500點以上，未滿1,000點：5點(250元)
  14.             a = 5
  15.         Case Is > 999    '報價1,000點以上：10點(500元)
  16.             a = 10
  17.     End Select


  20. If (V >= 0 And V < 10) Then
  21.     Select Case t
  22.     Case Is <= 0
  23.         MyOP = 0.1
  24.     Case Is < 10
  25.         MyOP = V
  26.     End Select
  27. ElseIf (V >= 10 And V < 50) Then
  28.     Select Case t
  29.     Case Is <= 0
  30.         MyOP = Int(V)
  31.     Case 0.0001 To 0.5
  32.         MyOP = Int(V) + a
  33.     Case Is > 0.5
  34.        MyOP = Round(V, 0)
  35.     End Select
  36. ElseIf (V >= 50 And V < 500) Then
  37.     Select Case t
  38.     Case Is <= 0
  39.         MyOP = Int(V)
  40.     Case 0.0001 To 0.4999
  41.         MyOP = Int(V)
  42.     Case Is = 0.5
  43.        MyOP = Round(V, 0) + a
  44.     Case Is > 0.5
  45.        MyOP = Round(V, 0)
  46.     End Select
  47. ElseIf (V >= 500 And V < 1000) Then
  48.     Select Case t
  49.     Case Is <= 0
  50.         MyOP = WorksheetFunction.RoundDown(V, -1)
  51.     Case 0.0001 To 0.4999
  52.         MyOP = WorksheetFunction.RoundDown(V, -1) + a
  53.     Case Is = 0.5
  54.        MyOP = WorksheetFunction.RoundDown(V, -1) + a
  55.     Case Is > 0.5
  56.        MyOP = WorksheetFunction.RoundDown(V, -1) + a
  57.     End Select
  58. ElseIf V >= 1000 Then
  59.     Select Case t
  60.     Case Is <= 0
  61.         MyOP = WorksheetFunction.RoundDown(V, -1)
  62.     Case 0.0001 To 0.4999
  63.         MyOP = WorksheetFunction.RoundDown(V, -1)
  64.     Case Is = 0.5
  65.        MyOP = WorksheetFunction.RoundDown(V, -1) + a
  66.     Case Is > 0.5
  67.        MyOP = WorksheetFunction.RoundDown(V, -1) + a
  68.    
  69.     End Select
  70. End If


  73. End Function
複製代碼

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題