[[20200316095554]]　『テキストボックスの数値リセットについて』（DN）　ページの最後に飛ぶ

『テキストボックスの数値リセットについて』（DN）

最近VBAの勉強を始めたばかりの初心者です。
質問させて下さい。

テキストボックス1内にスピンボタン1で数値を増減させることが
出来るコードを以下の様に書いてみました。

Private Sub SpinButton1_Change()

TextBox1.Value = SpinButton1.Value

End Sub

Private Sub TextBox1_Change()

End Sub

それに加えて、増減させた数値をコマンドボタン1で
セル(A1)に転記させ、テキストボックス1の数値をリセット
するコードを以下の様に書いてみました。

Private Sub CommandButton1_Click()

Range("=A1").Value = TextBox1.Value
TextBox1.Value = ""

End Sub

上記の様なコードでは、リセットされた状態で再びスピンボックスを
増減させると、リセット前の数値をテキストボックスが記憶しているみたいで
数値ゼロからのスタートになりません。リセット時にまたゼロから数値の
カウントをスタート出来るような上手い方法はないでしょうか？

ご回答いただければ幸いです。よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

TextBox1を初期化しても、スピンボタンを触れば値は上書きされるので、無意味でしょう？
SpinButton1.Value をゼロにしましょう。
（???） 2020/03/16(月) 10:21

返信ありがとうございます。

コマンドボタン1を押したときの条件コードに
SpinButton1.Value = 0を入力してみましたが
エラーが帰ってきてしまうのでSpinButton1.Value = 1
と入力してみました。
ボタンリセット時にスピンボタンがリセットされて1が
表示されるようになりました。

根本的なところが間違っているのでしょうか。
自分でも調べてみます。。。
（DN） 2020/03/16(月) 11:17

SpinButton1のMinプロパティが幾つになっているか確認してください。
デフォルトは0ですが、0代入でエラーになるという事は、最小値1に変更していませんか？
（???） 2020/03/16(月) 13:05

最小値はデフォルトの0設定のままでしたが、再度設定し直してみたらうまく動作しました。
ありがとうございました！
（DN） 2020/03/16(月) 13:22

コメント返信：