Класс! огромное Вам спасибо!
"Если" по нескольким условиям, Выведение значений, если соблюдено то или иное условие
"Если" по нескольким условиям, Выведение значений, если соблюдено то или иное условие
Суммирование городов по повторяющиемся позициям
Помощь в сводной таблице, Сводная таблица, количество уникальных значений
Подсчёт случаев и суммирование значений, Заказы и минуса
Подсчёт случаев и суммирование значений, Заказы и минуса
Подсчёт случаев и суммирование значений, Заказы и минуса
25.07.2023 09:41:56
Sanja, выдаёт ошибку:
Sub PinkCells() Dim iWb As Workbook Dim iSh As Worksheet Dim iCell As Range Dim iItog As Range Dim iCount&, iSum& For Each iWb In Workbooks For Each iSh In iWb.Worksheets For Each iCell In iSh.UsedRange.Cells With iCell If .Value < 0 Then iCount = iCount + 1 iSum = iSum + Abs(.Value) End If End With Next Set iItog = iSh.UsedRange.Find("ИТОГО") If Not iItog Is Nothing Then iItog.Offset(2, 2) = iCount: iCount = 0 iItog.Offset(2, 3) = iSum: iSum = 0 End If Next Next End Sub
Изменено: |
|
|
Подсчёт случаев и суммирование значений, Заказы и минуса
Подсчёт случаев и суммирование значений, Заказы и минуса
Подсчёт случаев и суммирование значений, Заказы и минуса
Подсчёт значений удовлетворяющих условиям величины, Значения из массива по категориям
Подсчёт значений удовлетворяющих условиям величины, Значения из массива по категориям