Xに終値を入力すると、翌日のストップ値を取得する関数。
ただし、連続ストップ値での制限拡大には対応していません。

Function ストップ高値(x)
If x < 100 Then ストップ高値 = x + 30: Exit Function
If x < 200 Then ストップ高値 = x + 50: Exit Function
If x < 500 Then ストップ高値 = x + 80: Exit Function
If x < 700 Then ストップ高値 = x + 100: Exit Function

If x < 1000 Then ストップ高値 = x + 150: Exit Function
If x < 1500 Then ストップ高値 = x + 300: Exit Function
If x < 2000 Then ストップ高値 = x + 400: Exit Function
If x < 3000 Then ストップ高値 = x + 500: Exit Function
If x < 5000 Then ストップ高値 = x + 700: Exit Function
If x < 7000 Then ストップ高値 = x + 1000: Exit Function

If x < 10000 Then ストップ高値 = x + 1500: Exit Function
If x < 15000 Then ストップ高値 = x + 3000: Exit Function
If x < 20000 Then ストップ高値 = x + 4000: Exit Function
If x < 30000 Then ストップ高値 = x + 5000: Exit Function
If x < 50000 Then ストップ高値 = x + 7000: Exit Function
If x < 70000 Then ストップ高値 = x + 10000: Exit Function

If x < 100000 Then ストップ高値 = x + 15000: Exit Function
If x < 150000 Then ストップ高値 = x + 30000: Exit Function
If x < 200000 Then ストップ高値 = x + 40000: Exit Function
If x < 300000 Then ストップ高値 = x + 50000: Exit Function
If x < 500000 Then ストップ高値 = x + 70000: Exit Function
If x < 700000 Then ストップ高値 = x + 100000: Exit Function

If x < 1000000 Then ストップ高値 = x + 150000: Exit Function
If x < 1500000 Then ストップ高値 = x + 300000: Exit Function
If x < 2000000 Then ストップ高値 = x + 400000: Exit Function
If x < 3000000 Then ストップ高値 = x + 500000: Exit Function
If x < 5000000 Then ストップ高値 = x + 700000: Exit Function
If x < 7000000 Then ストップ高値 = x + 1000000: Exit Function

ストップ高値 = x + 10000000
End Function

Function ストップ安値(x)
If x < 31 Then ストップ安値 = 1: Exit Function
If x < 100 Then ストップ安値 = x - 30: Exit Function
If x < 200 Then ストップ安値 = x - 50: Exit Function
If x < 500 Then ストップ安値 = x - 80: Exit Function
If x < 700 Then ストップ安値 = x - 100: Exit Function

If x < 1000 Then ストップ安値 = x - 150: Exit Function
If x < 1500 Then ストップ安値 = x - 300: Exit Function
If x < 2000 Then ストップ安値 = x - 400: Exit Function
If x < 3000 Then ストップ安値 = x - 500: Exit Function
If x < 5000 Then ストップ安値 = x - 700: Exit Function
If x < 7000 Then ストップ安値 = x - 1000: Exit Function

If x < 10000 Then ストップ安値 = x - 1500: Exit Function
If x < 15000 Then ストップ安値 = x - 3000: Exit Function
If x < 20000 Then ストップ安値 = x - 4000: Exit Function
If x < 30000 Then ストップ安値 = x - 5000: Exit Function
If x < 50000 Then ストップ安値 = x - 7000: Exit Function
If x < 70000 Then ストップ安値 = x - 10000: Exit Function

If x < 100000 Then ストップ安値 = x - 15000: Exit Function
If x < 150000 Then ストップ安値 = x - 30000: Exit Function
If x < 200000 Then ストップ安値 = x - 40000: Exit Function
If x < 300000 Then ストップ安値 = x - 50000: Exit Function
If x < 500000 Then ストップ安値 = x - 70000: Exit Function
If x < 700000 Then ストップ安値 = x - 100000: Exit Function

If x < 1000000 Then ストップ安値 = x - 150000: Exit Function
If x < 1500000 Then ストップ安値 = x - 300000: Exit Function
If x < 2000000 Then ストップ安値 = x - 400000: Exit Function
If x < 3000000 Then ストップ安値 = x - 500000: Exit Function
If x < 5000000 Then ストップ安値 = x - 700000: Exit Function
If x < 7000000 Then ストップ安値 = x - 1000000: Exit Function

ストップ安値 = x - 10000000
End Function