スピンボタンで小数点

ユーザフォームのテキストボックス1の小数点の値を最高0.49 最低0.20としスピンボタン1で加減0.01としたいのですが可能でしょうか？

No.2 ベストアンサー 回答者： ggrksdqn 回答日時： 2020/11/30 10:03

SpinButton1_SpinUp()　のイベントプロシージャーで

テキストボックス1の.Valueから値を取り出して、それに0.01を足したものが0.49を超えていなければ、その値をテキストボックス1の.Valueに入れる。
SpinButton1_SpinDown() のイベントプロシージャーには、 0.01を引き算した値が0.20を下回っていないかどうかを検査してテキストボックスの.Valueに入れる。

この回答へのお礼

ありがとうございます。
Private Sub SpinButton１_SpinUp()
On Error Resume Next
UserForm1.TextBox1.Value = UserForm1.TextBox1.Value + 0.01
If UserForm1.TextBox1.Value >= 0.49 Then
UserForm1.TextBox1.Value = 0.49

End If
End Sub
Private Sub SpinButton１_Spindown()
On Error Resume Next
UserForm1.TextBox1.Value = UserForm1.TextBox1.Value - 0.01
If UserForm1.TextBox1.Value <= 0.2 Then

UserForm1.TextBox1.Value = 0.2
End If

End Sub
で、できました。

お礼日時：2020/11/30 12:14

No.1 回答者： ggrksdqn 回答日時： 2020/11/30 00:43

可能です。

この回答へのお礼

どうやるか教えていただけませんでしょうか？

お礼日時：2020/11/30 06:02