|
夜分に失礼いたします。現在エクセルVBAで作成中のものです。
エクセルVBAのユーザーフォーム上にテキストボックスとスピンボタンを設置し、値のループをさせるべく奮闘しているのですが上手くいきません。
どなたか教えてくださいませm(__)m
最小値:1
最大値:3000
これを、スピンボタンを押すたびに
1→2→(中略)→2999→3000→1→2・・・
となるようにしたいのです。
以下、コードです。
Private Sub SpinButton1_Change()
With SpinButton1
TextBox1.Value = SpinButton1.Value
SpinButton1.Max = 1
SpinButton1.Min = 3000
If .Min >= .Max Then
.Value = .Max
ElseIf .Max <= .Min Then
.Value = .Min
TextBox1.Value = .Value * 1
Exit Sub
End If
End With
End Sub
何とかここまで出来ましたが、ループのところが分からず苦戦しています。
どなたか教えてくださいm(__)mお願いします
|
|