| Вопрос: Сумма чисел в выделенных ячейках. | Добавлено: 01.03.04 11:08 |
Автор вопроса:  Nicola
|
| Есть ряд данных, некоторые ячейки выделены цветом -нужно определить сумму числел в выделенных ячейках. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  bird ICQ: 40490794 Вопросов: 0 Ответов: 11 |
Профиль | | #1 | Добавлено: 03.03.04 14:26 |
|
ну вот накидал на скору руку Выделяем диапозон, получаем результат Sub test() ss = 0 For Each tmpCell In Range(ActiveWindow.RangeSelection.Address) x = tmpCell.Row y = tmpCell.Column If Cells(x, y).Interior.ColorIndex = 3 Then ss = ss + Cells(x, y) End If Next a = MsgBox("Сумма красных ячеек =" & ss, vbDefaultButton1, "Требуемая сумма") End Sub |
||
Страница: 1 |