Multiple List Box Selections 列表框多选设置

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
  With ListBox1
    .AddItem "Sales"
    .AddItem "Production"
    .AddItem "Logistics"
    .AddItem "Human Resources"
  End With
  OptionButton3.Value = True
End Sub

Dim i As Integer

Private Sub CommandButton1_Click()
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)
  Next i
End Sub

Private Sub CommandButton2_Click()
  Dim counter As Integer
  counter = 0
  For i = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(i - counter) Then
      ListBox2.RemoveItem (i - counter)
      counter = counter + 1
    End If
  Next i
  CheckBox2.Value = False
End Sub

Private Sub OptionButton1_Click()
  ListBox1.MultiSelect = 0
  ListBox2.MultiSelect = 0
End Sub

Private Sub OptionButton2_Click()
  ListBox1.MultiSelect = 1
  ListBox2.MultiSelect = 1
End Sub

Private Sub OptionButton3_Click()
  ListBox1.MultiSelect = 2
  ListBox2.MultiSelect = 2
End Sub

Private Sub CheckBox1_Click()
  If CheckBox1.Value = True Then
    For i = 0 To ListBox1.ListCount - 1
      ListBox1.Selected(i) = True
    Next i
  End If
  If CheckBox1.Value = False Then
    For i = 0 To ListBox1.ListCount - 1
      ListBox1.Selected(i) = False
    Next i
  End If
End Sub