|
Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] ListView1 программно посчитать сумму значение |
|
2010 - [решено] ListView1 программно посчитать сумму значение
|
Новый участник Сообщения: 2 |
Профиль | Сайт | Отправить PM | Цитировать Ребята подскажите как в ListView1 программно посчитать сумму значение в определенной колонке
|
|
Отправлено: 14:30, 03-02-2020 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Ну, например:
Скрытый текст
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
|
Отправлено: 21:27, 03-02-2020 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 2
|
Профиль | Сайт | Отправить PM | Цитировать Спасибо!
|
Отправлено: 09:37, 04-02-2020 | #3 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - [решено] Как получить значение параметра из реестра, добавить значение в текстовый файл etc.? | Dark Ange1 | Скриптовые языки администрирования Windows | 28 | 22-06-2022 14:37 | |
Разное - [решено] Посчитать сумму | VanUliK | Microsoft Office (Word, Excel, Outlook и т.д.) | 15 | 12-11-2015 21:14 | |
Delphi - Как программно изменить значение текущего поля записи TTable? | diakin | Программирование и базы данных | 1 | 09-11-2014 21:09 | |
php как посчитать сумму времени? | poisonkit | Вебмастеру | 0 | 30-07-2013 11:27 | |
Загрузка - XP SP3. Значение «громкость» сбрасывается в среднее значение при перезагрузке. | mitkadritka | Microsoft Windows 2000/XP | 9 | 24-02-2012 20:37 |
|