Перенос данных и подсчет из listbox в listbox - VBA

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, столкнулся задачей которую необходимо сделать в ексельке с VBA . Если таблица из 6 столбиков в которой указаны данные (на фото будет видно). У меня получилось сделать форму и запихнуть туда поисковую строку которая ищет по данные по одному из столбцов. Проблема состоит в том что я хочу путем выделения нужной строки, типа (заправка или восстановление) и количества, перенести данные из листбокса1 в листбокс2 и вывести результат суммы работы в лейбл. Как мне осуществить перенос данных? На данный момент поиск реализован вот так

Решение задачи: «Перенос данных и подсчет из listbox в listbox»

textual
Листинг программы
Private Sub CommandButton2_Click()
Dim lbr1 As Long, lbr2#
    lbr1 = ListBox1.ListIndex
    lbr2 = Val(ListBox2.ListCount / 4)
'проверяем OptionButton на заполнение
'If (OptionButton1.Value + OptionButton2.Value) = 0 Then MsgBox "Выберете Заправка или Восстановление": Exit Sub
 
For i = 1 To 4
   ListBox2.AddItem ""
   ListBox2.List(lbr2, i - 1) = ListBox1.List(lbr1, i)
Next
 
ListBox2.List(lbr2, 5) = IIf(OptionButton1.Value, OptionButton1.Caption, OptionButton2.Caption)
ListBox2.List(lbr2, 4) = ListBox1.List(lbr1, IIf(OptionButton1.Value, 5, 6))
Sum = Sum + ListBox2.List(lbr2, 4)
Me.Label9.Caption = Sum
 
End Sub

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы