サンプルマクロは、ユーザフォームのスピンボタン(SpinButton1)と
テキストボックス(TextBox1)をリンクさせ、スピンボタンの最大最小値でループを
引き起こします。
スピンボタンを押すたびにテキストボックスの値は10ずつ変化し、
0になったら100に、110になったら10に戻ります。
その結果テキストボックスに表示される値は10〜100の間の10毎の値となります。
フォームのコードウインドに記述してください。
Private Sub SpinButton1_Change()
With SpinButton1
If .Value = .Min Then .Value = .Max - 1
If .Value = .Max Then .Value = .Min + 1
TextBox1.Value = .Value * 10
End With
End Sub
Private Sub TextBox1_Exit _
(ByVal Cancel As MSForms.ReturnBoolean)
Dim myVal As Integer
myVal = Val(TextBox1.Value) / 10
With SpinButton1
Select Case myVal
Case .Min To .Max
.Value = myVal
Case Else
.Value = .Min + 1
End Select
TextBox1.Value = .Value * 10
End With
End Sub
Private Sub UserForm_Initialize()
With SpinButton1
.Max = 11
.Min = 0
.Value = .Min + 1
End With
End Sub
|