Ну, например:
Скрытый текст
Код:
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
|
