Условное форматирование

[rawas]

как написать функцию

If результат условия УФ = True, then ....
проблема в том что все ячейки к которым применено УФ имеют одинаковый цвет вне зависимости от выполнения условия при проверке через
rng.FormatConditions.Interior.color Index
как определить цвета в зависимости от выполнения условия УФ?

[IgorGO]

как определить цвета в зависимости от выполнения условия УФ

определяйте не цвет ячейки, а проверяйте значение ячейки, по тем же правилам, по которым УФ решал в какой цвет ее окрасить.

[rawas]

Сообщение от IgorGO

определяйте не цвет ячейки, а проверяйте значение ячейки, по тем же правилам, по которым УФ решал в какой цвет ее окрасить.

А по каким правилам он это решает?

[IgorGO]

Вы же писали формулу для УФ (или может я), там написано, что проверить и как закрасить. откройте УФ и посмотрите формулу.

[rawas]

ну это не вариант у меня комп загнеться считать для каждой ячейки, ща буду пробовать формула то не маленькая а если еще переделать под ячейки то в два раза больше получиться

=AND(YEAR($E5)&IF(MONTH($E5)<10;"0"&MONTH($E5);MONTH($E5))<=YEAR(O$2)&IF(MONTH(O$2)<10;"0"&MONTH(O$2);MONTH(O$2));
YEAR(O$2)&IF(MONTH(O$2)<10;"0"&MONTH(O$2);MONTH(O$2))<=YEAR($CE5)&IF(MONTH($CE5)<10;"0"&MONTH($CE5);MONTH($CE5)))

[staniiislav]

Посмотрите вот фалик, может поможет в ваших задачах.
Я использовал один из этих кодов для суммирования по цвету ячеек, НО скорее всего данные коды не буду работать с условным форматированием!

[rawas]

Сообщение от staniiislav

Посмотрите вот фалик, может поможет в ваших задачах.
Я использовал один из этих кодов для суммирования по цвету ячеек, НО скорее всего данные коды не буду работать с условным форматированием!

Спасибо, но он не работает с УФ

[IgorGO]

понятно если записать для каждой ячейки, то загнется не компьютер, а Вы писать это.
а если в цикле прогнать, то ничего особого (да и запись короче гораздо):

for i = 5 to X
 if format(range("E" & i),"YYYYMM") < format([O2], "YYYYMM") and _
    format([O2], "YYYYMM") < format(range("CE" & i),"YYYYMM") then
    ' ...
  end if
next

Х - определите самостоятельно
данных не видно, писал с руки, здесь, поэтому возможны варианты...
рассматривайте это как направление для мыслей
дерзайте, успехов!

[rawas]

Сообщение от IgorGO

понятно если записать для каждой ячейки, то загнется не компьютер, а Вы писать это.
а если в цикле прогнать, то ничего особого (да и запись короче гораздо):

for i = 5 to X
 if format(range("E" & i),"YYYYMM") < format([O2], "YYYYMM") and _
    format([O2], "YYYYMM") < format(range("CE" & i),"YYYYMM") then
    ' ...
  end if
next

Х - определите самостоятельно
данных не видно, писал с руки, здесь, поэтому возможны варианты...
рассматривайте это как направление для мыслей
дерзайте, успехов!

Спасибо за содействие получилось как то так )))

Function countYellow(rng As Range)
Application.Volatile
x = rng.row
Y = rng.Column
FirstDate = Cells(x, 5)
MidDate = Cells(2, Y)
EndDate = Cells(x, 83)
FirstDateYear = Year(FirstDate)
MidDateYear = Year(MidDate)
EndDateYear = Year(EndDate)

If Month(FirstDate) < 10 Then firstDateMonth = "0" & Month(FirstDate) Else firstDateMonth = Month(FirstDate)
If Month(MidDate) < 10 Then MidDateMonth = "0" & Month(MidDate) Else MidDateMonth = Month(MidDate)
If Month(EndDate) < 10 Then EndDateMonth = "0" & Month(EndDate) Else EndDateMonth = Month(EndDate)

FirstConj = FirstDateYear & firstDateMonth
MidConj = MidDateYear & MidDateMonth
EndConj = EndDateYear & EndDateMonth

If FirstConj <= MidConj And MidConj <= EndConj Then countYellow = "True" Else countYellow = "False"


End Function