スピンボタンでのテキストボックスの値変更をループさせる
 サンプルマクロは、ユーザフォームのスピンボタン(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

Excel97/2000



戻る


Excel Word Access VBA! モーグ