[решено] ListView1 программно посчитать сумму значение

[Дмитрий.Дунаев@vk]

Ребята подскажите как в ListView1 программно посчитать сумму значение в определенной колонке

[Iska]

Ну, например:
https://i.imgur.com/rmOqYZb.png
Option Explicit

Private Sub CommandButton1_Click()
Dim objListItem As ListItem
Dim lngSumm As Long


lngSumm = 0

For Each objListItem In Me.ListView1.ListItems
lngSumm = lngSumm + objListItem.ListSubItems.Item(4)
Next objListItem

MsgBox "Сумма = " & CStr(lngSumm)
End Sub

Private Sub UserForm_Initialize()
With ListView1
.CheckBoxes = True
.FullRowSelect = True
.Gridlines = True
.View = lvwReport
.AllowColumnReorder = True

With .ColumnHeaders
.Clear
.Add , , "Должность", 120
.Add , , "Фамилия", 70
.Add , , "Имя", 50
.Add , , "Отчество", 70
.Add , , "Сумма", 50
End With

With .ListItems.Add()
.Text = "Директор"

With .ListSubItems
.Add , , "Иванов"
.Add , , "Иван"
.Add , , "Иванович"
.Add , , 500
End With
End With

With .ListItems.Add()
.Text = "Первый заместитель"

With .ListSubItems
.Add , , "Петров"
.Add , , "Пётр"
.Add , , "Петрович"
.Add , , 600
End With
End With

With .ListItems.Add()
.Text = "Второй заместитель"

With .ListSubItems
.Add , , "Сидоров"
.Add , , "Сидор"
.Add , , "Сидорович"
.Add , , 750
End With
End With

.ColumnHeaders(1).Position = 1
End With
End Sub

[Дмитрий.Дунаев@vk]

Спасибо!