InputBox：特定の範囲の値のみを許可する

Question

ユーザーが入力できる許容値の範囲を制限したい。

たとえば、私は0-100のみ許可したい、と彼らは100を介して入力した場合、その後、

1. 自動的に（例えば10など）のデフォルト値を入力し、
2. ポップアップメッセージを作成デフォルト値が適用されたことを示します。

は、ここで私がこれまで持っているものです。

Dim CO2PriceBox As Variant 
    CO2PriceBox = InputBox("Please Enter CO2 Allowance Price ($/ton)", "Enter CO2 Allowance Price", 0) 
    Range("C11").Value = CO2PriceBox 

Answer 1

私はこのようにそれを行うだろう：

Dim CO2PriceBox As Variant 

CO2PriceBox = InputBox("Please Enter CO2 Allowance Price ($/ton)", "Enter CO2 Allowance Price", 0) 

If Not IsNumeric(CO2PriceBox) Or CO2PriceBox < 0 Or 100 < CO2PriceBox Then 'If value out of specified range 

    CO2PriceBox = 10 'Default value 
    MsgBox "You Entered a wrong value, using default", vbOKOnly 
End If 

Answer 2

あなたは少し "ラッパー" 機能を構築するために、Excel InputBox()メソッドを使用することができます。

Option Explicit 

Sub main() 

    Range("C11").Value = GetValue("Please Enter CO2 Allowance Price ($/ton)", "Enter CO2 Allowance Price", 0, 100, 10) 

End Sub