Здравствуйте!
Подскажите пожалуйста, что не так в коде. Строки в листбоксы добавляются в зависимости от значения в комбобоксе. Но переместить строки из листбокса 1 во 2 не получается.
Очень буду признательна!
Подскажите пожалуйста, что не так в коде. Строки в листбоксы добавляются в зависимости от значения в комбобоксе. Но переместить строки из листбокса 1 во 2 не получается.
Очень буду признательна!
Код |
---|
Private Sub ComboBox1_Change() Select Case ComboBox1.Value Case "MOL2" UserForm2.ListBox1.RowSource = "_MOL2" Case "MOL1" UserForm2.ListBox1.RowSource = "_MOL1" End Select End Sub Private Sub ComboBox2_Change() Select Case ComboBox2.Value Case "MOL2" UserForm2.ListBox2.RowSource = "_MOL2" Case "MOL1" UserForm2.ListBox2.RowSource = "_MOL1" End Select End Sub Private Sub UserForm_Initialize() ComboBox1.List = Array("MOL2", "MOL1") ComboBox2.List = Array("MOL2", "MOL1") End Sub Private Sub ToLeftButton_Click() With ListBox2 Dim itemIndex As Integer For itemIndex = .ListCount - 1 To 0 Step -1 If .Selected(itemIndex) Then ListBox1.AddItem .List(itemIndex) .RemoveItem itemIndex .MultiSelect = fmMultiSelectExtended End If Next itemIndex End With End Sub Private Sub ToRightButton_Click() With ListBox1 Dim itemIndex As Integer For itemIndex = .ListCount - 1 To 0 Step -1 If .Selected(itemIndex) Then ListBox2.AddItem .List(itemIndex) .RemoveItem itemIndex .MultiSelect = fmMultiSelectExtended End If Next itemIndex End With End Sub |