|
こんにちは
簡単に作ってみました。
条件がなかったのでif文で適当に動作制約付けてみました。
タンゴさんの必要な条件に直してください
Option Explicit
Private Sub SpinButtonB_SpinDown()
If Me.TextBox1.Value >= 10 Then
Me.TextBox1.Value = Me.TextBox1.Value - 10
End If
End Sub
Private Sub SpinButtonB_SpinUp()
If Me.TextBox1.Value <= 90 Then
Me.TextBox1.Value = Me.TextBox1.Value + 10
Else
Me.TextBox1.Value = Me.TextBox1.Value - 90
End If
End Sub
Private Sub SpinButtonA_SpinDown()
Me.TextBox1.Value = Me.TextBox1.Value - 1
End Sub
Private Sub SpinButtonA_SpinUp()
Me.TextBox1.Value = Me.TextBox1.Value + 1
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.Value = 1
End Sub
|
|