ExcelVBA スピンボタンの値について

質問

参考書を片手に勉強中のエクセルVBA初心者です。
ぜひアドバイスをお願いします…！

Excel2000でユーザーフォームを作成し、スピンボタンを使用して数値を指定できるよう、以下のソースを記述しました。
-----------------------------------------
Private Sub UserForm_Initialize()
With SpinButton1
.Min = 20
.Max = 150
.Value = 150
.SmallChange = 5
End With
End Sub
-----------------------------------------
Private Sub SpinButton1_Change()
　　TextBox1.Value = SpinButton1.Value / 10
End Sub
-----------------------------------------
Private Sub TextBox1_Change()
　　TextBox1.Text = Format(TextBox1.Text, "0.0")
End Sub
-----------------------------------------
これを、スピンボタンも使用でき、かつ手入力にも対応するように動作させたいと考えています。
具体的にはテキストボックスに6（ランダムな値）と手入力後、
スピンボタンを使用してで6.0の値から増減させたいのですが、
そのようなことは可能でしょうか？
可能であれば、どのようにすればよいのでしょうか？
（テキストボックス内の値は、小数点第1位まで表示させ、2.0～15.0の値しか表示できないようにしたいです）

どうかご回答よろしくお願いいたします。

回答No.1

AB-tetsuya · ベストアンサー

3番目のコードに1行追加したらいかがでしょうか

Private Sub TextBox1_Change()
__TextBox1.Text = Format(TextBox1.Text, "0.0")
__SpinButton1.Value = TextBox1.Text * 10
End Sub

お礼

ををを！
tesuyaさんのおかげで、願っていたことができました！
ご回答ありがとうございます！

ペコペコ “(:D)┐