сумма в столбце listview vba

[pooli]

на форме vba сделал listview
в столбцы заполняются значения
подскажите как подсчитать сумму значений в 10-том столбце listview !???

Private Sub ComboBox2_Change()

For i = 1 To 1000
Новый_расчет.ListView1.ListItems.Ad d , , ""

If Новый_расчет.ListView1.ListItems.It em(i) <> "" Then

Else

Новый_расчет.ListView1.ListItems.It em(i) = ComboBox1.Value
Новый_расчет.ListView1.ListItems.It em(i).SubItems(1) = ComboBox2.Value
Новый_расчет.ListView1.ListItems.It em(i).SubItems(2) = ListBox1.list(ListIndex, 3)
Новый_расчет.ListView1.ListItems.It em(i).SubItems(3) = ListBox1.list(ListIndex, 4)
Новый_расчет.ListView1.ListItems.It em(i).SubItems(4) = ListBox1.list(ListIndex, 5)
Новый_расчет.ListView1.ListItems.It em(i).SubItems(6) = ListBox1.list(ListIndex, 2)
Новый_расчет.ListView1.ListItems.It em(i).SubItems(7) = CDbl(ListBox1.list(ComboBox2.ListIn dex, 1))
Новый_расчет.ListView1.ListItems.It em(i).SubItems(9) = ListBox1.list(ListIndex, 6)

koli = InputBox("ВВЕДИТЕ КОЛИЧЕСТВО!", "НОВЫЙ РАСЧЕТ")
On Error Resume Next
Новый_расчет.ListView1.ListItems.It em(i).SubItems(5) = koli
Новый_расчет.ListView1.ListItems.It em(i).SubItems(8) = koli * Новый_расчет.ListView1.ListItems.It em(i).SubItems(7)


p = Новый_расчет.ListView1.ListItems.It em(i).SubItems(9) / 100 + 1
Новый_расчет.ListView1.ListItems.It em(i).SubItems(10) = p * Новый_расчет.ListView1.ListItems.It em(i).SubItems(8)
Новый_расчет.ListView1.ListItems.It em(i).SubItems(11) = Новый_расчет.ListView1.ListItems.It em(i).SubItems(10) - Новый_расчет.ListView1.ListItems.It em(i).SubItems(8)


Exit Sub
End If
Next i
End Sub

[VictorM]

на форме vba сделал listview

Приложите файлик, что-то нет никакого желания форму изобретать.

[pooli]

не подучиться, так как формирование в комбо значений идет по сети.

если ставлю перед exit sub

Dim s, a As Integer
a = Новый_расчет.ListView1.ListItems.It em(i - 1).SubItems(10)
s = Новый_расчет.ListView1.ListItems.It em(i).SubItems(10)
Новый_расчет.TextBox1.Value = s+a

то значение в строке считается с предыдущем.

а надо так:
в комбо выбрал значение
ввел кол-во
появилась строка со значениями(это все работает!)
в тексбокс вывелось значение 10 стлобца.
выбрал следующие значение из комбо-значение +к значению в текстбоксе
и тд.

[doober]

Поддерживаю VictorM на все 100

не подучиться, так как формирование в комбо значений идет по сети.

А что мешает создать табличку с данными ,кнопку на форму и имитировать поступление данных нажатием кнопки.

[pooli]

собственно вопрос решил.
в UserForm_Initialize добавил
TextBox1.Text = "0"

а в этой процедуре до exit sub

Dim a As Integer
a = Новый_расчет.ListView1.ListItems.It em(i).SubItems(10)
s = Новый_расчет.TextBox1.Value
s = s + a
Новый_расчет.TextBox1.Value = s

все считается!

[pooli]

по listview уж заодно
как подсветить выделенную(ту в которую мышкой кликнул) строку listview?