Сумма ячеек по цвету с условием (VBA) - Microsoft Office Excel

Katya007 · 09.03.2022, 15:45

Добрый день.

Подскажите, пожалуйста, как написать код (функцию) в VBA для суммирования ячеек по цвету с условием соответствия конкретной дате. Как в функции суммесли из диапазона дат выбирается критерий конкр дата + к этому сумма ячеек по цвету.
*Ячейки, которые необходимо просуммировать, указываются в диапазоне нескольких строк и столбцов.

Спасибо.

IgorGO · 11.03.2022, 17:11

Код:

Function SumRange#(Range2Sum As Range, Pattern As Range)
  Dim c As Range
  For Each c In Range2Sum
    If c.Interior.Color = Pattern.Cells(1).Interior.Color Then SumRange = SumRange + Val(c)
  Next
End Function

09.03.2022, 15:45	#1
Katya007 Новичок Джуниор Регистрация: 09.03.2022 Сообщений: 1	Сумма ячеек по цвету с условием (VBA) Добрый день. Подскажите, пожалуйста, как написать код (функцию) в VBA для суммирования ячеек по цвету с условием соответствия конкретной дате. Как в функции суммесли из диапазона дат выбирается критерий конкр дата + к этому сумма ячеек по цвету. *Ячейки, которые необходимо просуммировать, указываются в диапазоне нескольких строк и столбцов. Спасибо.

11.03.2022, 17:11	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `Function SumRange#(Range2Sum As Range, Pattern As Range) Dim c As Range For Each c In Range2Sum If c.Interior.Color = Pattern.Cells(1).Interior.Color Then SumRange = SumRange + Val(c) Next End Function` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сумма ячеек в столбе с условием	piton.ms	Microsoft Office Excel	8	02.09.2017 16:55
Выбор ячеек по цвету	riner19	Microsoft Office Excel	12	15.08.2017 20:39
Сумма по цвету на всех листах	s_bag	Microsoft Office Excel	2	21.05.2014 11:55
Сумма по цвету ячейки и месяцу	s_bag	Microsoft Office Excel	2	16.08.2013 17:03
VBA,сумма ячеек	Symple me	Microsoft Office Excel	4	31.01.2013 13:53