Суммирование ячеек по цвету с критерием

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

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

Суммирование ячеек по цвету с критерием (Макросы/Sub)

AL19958

Дата: Четверг, 29.06.2023, 16:39 | Сообщение № 1

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

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

Сообщений: 1

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

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

Всем доброго время суток!

Прошу помочь с возникшей потребностью, нужно получить сумму согласно данным условиям:

(A1:A10 (диапазон для критерия С1); C1(Критерий С1 к примеру в ячейке будет написано "Согласно"); B1:B10 (диапазон цветных ячеек с цифрами); C2(цвет ячейки))

Пробовал уже и через chatGPT, но без толку((

[vba]

Код

Function SumByCriteriaAndColor(criteriaRange As Range, criteriaValue As Variant, colorRange As Range, colorCell As Range) As Double
Dim cell As Range
Dim sumValue As Double

' Проверка для каждой ячейки в диапазоне критериев
For Each cell In criteriaRange
' Проверяем критерий значения
If cell.Value = criteriaValue Then
' Проверяем цвет ячейки в диапазоне цветов
If cell.Interior.Color = colorCell.Interior.Color Then
' Добавляем значение ячейки в сумму
sumValue = sumValue + colorRange.Cells(cell.Row - criteriaRange.Row + 1).Value
End If
End If
Next cell

SumByCriteriaAndColor = sumValue ' Возвращаем сумму
End Function

[/vba]

Сообщение отредактировал Serge_007 - Четверг, 29.06.2023, 16:50

Ответить

Nic70y

Дата: Четверг, 29.06.2023, 17:08 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8984

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

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

Excel 2010

[vba]

Код

Function SumByCriteriaAndColor(criteriaRange As Range, criteriaValue As Variant, colorRange As Range, colorCell As Range) As Double
'Dim cell As Range
'Dim sumValue As Double

' Проверка для каждой ячейки в диапазоне критериев
x = 1
For Each cell In criteriaRange
' Проверяем критерий значения
If cell.Value = criteriaValue Then
' Проверяем цвет ячейки в диапазоне цветов
If colorRange(x).Interior.Color = colorCell.Interior.Color Then
' Добавляем значение ячейки в сумму
sumValue = sumValue + colorRange(x)
End If
End If
x = x + 1
Next cell

SumByCriteriaAndColor = sumValue ' Возвращаем сумму
End Function

[/vba]

ЮMoney 41001841029809

Ответить

Суммирование ячеек по цвету с критерием (Макросы/Sub)

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