Vba 如何在条件下使用SpinButton

我有一个旋转按钮和两个列表框。我已经设置了旋转按钮的最小值和最大值。我已经有一个按钮可以将数据从列表框1移动到列表框2。但是我想设置一个基于旋转按钮移动数据的限制。 例子： 若旋转按钮中的值为2，则只能向listbox2添加2项

---

注意：我已将“旋转”按钮链接到一个文本框

声明一个变量，然后每次移动项目时，将变量的值增加1。因此，下次单击按钮移动项目时，只需将变量的值与

SpinButton的值进行比较即可。例如（未经测试）

谢谢大家。。最后我得到了答案

Dim ct As Integer
Dim ictr As Long
Dim jctr As Integer
jctr = CInt(Me.TextBox1.Value)
If jctr = ListBox2.ListCount Then
   MsgBox "Maximum limit has been reached. You cannot add more players"
    Exit Sub
End If
  For ictr = jctr To 1 Step -1
    Me.ListBox2.AddItem Me.ListBox1.List(ictr)
Me.ListBox1.RemoveItem ictr
Next ictr

如何将数据从LB1移动到LB2？我选择每个项目，并使用for loopjctr=CInt（Me.TextBox1.Text）将其添加到listbox2。这将为我提供textbox中设置的值。如果要检查在listbox2>jctr错误消息中输入的数据是否存在条件，请检查下面的答案。谢谢，我使用Dim jctr作为整数jctr=CInt（Me.TextBox1.Value）得到了它。如果jctr=listbox2.ListCount，则MsgBox“超出团队限制”Else代码移动我还有一个问题。我已将自旋值设置为2。如果我想将所有数据从列表1移动到列表2。它应该只复制前2个，因为spinvalue=2我怎么能这样做？这将根据spin value中的输入选择项目数。但如果listbox2中已经存在项，则上面的代码会向其添加项。例如：如果旋转值为3，并且box2中已经有一个项目，则“全部添加”按钮将向box2添加3个项目。这是一个错误，因为框2中的项目总数应该是3，而不是4。我如何调试这个？？
For i = 0 To (ListBox1.ListCount - 1)
    If i = (Val(TextBox1.Text) - 1) Then Exit For
        '
        '~~> Code to move items from LB1 to LB2
        '
    End If
Next i

Dim ct As Integer
Dim ictr As Long
Dim jctr As Integer
jctr = CInt(Me.TextBox1.Value)
If jctr = ListBox2.ListCount Then
   MsgBox "Maximum limit has been reached. You cannot add more players"
    Exit Sub
End If
  For ictr = jctr To 1 Step -1
    Me.ListBox2.AddItem Me.ListBox1.List(ictr)
Me.ListBox1.RemoveItem ictr
Next ictr