[Iska]

Ну, например:

Скрытый текст

Код:

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]

Спасибо!