Вычислить сумму в ListBox

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вычислить сумму в ListBox (Макросы/Sub)

Lena103

Дата: Пятница, 23.05.2014, 19:15 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте!
Я создала форму с OptionButton, которые при нажатии отображают отфильтрованные записи из исходной таблицы в ListBox. Теперь мне нужно найти сумму столбца "кол-во человек" из ListBox, которая должна показываться в TextBox этой же формы (кол-во человек будет постоянно меняться, т.к. записи в исходной таблице будут пополняться). Подскажите пожалуйста как это можно сделать, может код какой-нибудь

К сообщению приложен файл: 5732722.xlsm (33.2 Kb)

Сообщение отредактировал Lena103 - Пятница, 23.05.2014, 20:03

Ответить

_Boroda_

Дата: Пятница, 23.05.2014, 20:55 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Добавьте в каждый фильтр перед End Sub
[vba]

Код

TextBox1.Value = kol(finalRow)

[/vba]
и отдельно код функции
[vba]

Код

Function kol(finalRow)
kol = WorksheetFunction.Sum(Range("I" & finalRow + 3).Resize(Cells(Rows.Count, 1).End(xlUp).Row - finalRow - 2))
End Function

[/vba]

К сообщению приложен файл: 5732722_1.xlsm (33.6 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Lena103

Дата: Суббота, 24.05.2014, 06:36 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Спасибо большое!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вычислить сумму в ListBox (Макросы/Sub)

Страница 1 из 1
1