доброго дня! задолбал чатжипити, но так и не получил нужную рабочую формулу. (Эксель русский, версия 2021) Необходимо вставить формулу в ячейку А2, А3 и т.д. для автоматического выбора значения из ячейки одноимённой строки, соответствующей месяцу текущей даты. Ну и бонусом - подсвечивать форматом ячейки или текста, полученное значение в ячейке А2, А3 и т.д. (в градации от максимума к минимуму в строке) Благодарю за помощь
доброго дня! задолбал чатжипити, но так и не получил нужную рабочую формулу. (Эксель русский, версия 2021) Необходимо вставить формулу в ячейку А2, А3 и т.д. для автоматического выбора значения из ячейки одноимённой строки, соответствующей месяцу текущей даты. Ну и бонусом - подсвечивать форматом ячейки или текста, полученное значение в ячейке А2, А3 и т.д. (в градации от максимума к минимуму в строке) Благодарю за помощь[ph]SeeDOY
а можно ли подсвечивать не диапазон из 12 ячеек, а именно ячейку А2, в зависимости от того, какое значение - максимум или минимум из диапазона?[ph]SeeDOY
Сообщение отредактировал [ph]SeeDOY - Суббота, 13.04.2024, 11:15
[ph]SeeDOY, не понял вопроса допустим A2 пятое по рейтингу из C2:N2 каким цветом его окрашивать?
апдэйт вдруг правильно в модуль листа, срабатывает при пересчете [vba]
Код
Private Sub Worksheet_Calculate() Application.ScreenUpdating = False 'месяц a = Month(Range("a1")) 'нижняя строка столбца A b = Cells(Rows.Count, "a").End(xlUp).Row 'цикл от 2й до нижней строки For c = 2 To b 'тупо записал макрорекордером условное форматирование 3х цветное Range("c" & c & ":n" & c).FormatConditions.AddColorScale ColorScaleType:=3 Range("c" & c & ":n" & c).FormatConditions(Range("c" & c & ":n" & c).FormatConditions.Count).SetFirstPriority Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(1).Type = _ xlConditionValueLowestValue With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(1).FormatColor .Color = 7039480 .TintAndShade = 0 End With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(2).Type = _ xlConditionValuePercentile Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(2).Value = 50 With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(2).FormatColor .Color = 8711167 .TintAndShade = 0 End With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(3).Type = _ xlConditionValueHighestValue With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(3).FormatColor .Color = 8109667 .TintAndShade = 0 End With 'красим ячейку согласно форматированию столбца согласно даты Range("a" & c).Interior.Color = Cells(c, a + 2).DisplayFormat.Interior.Color 'удаляем условное форматирование из строки Range("c" & c & ":n" & c).FormatConditions.Delete Next Application.ScreenUpdating = True End Sub
[/vba]
[ph]SeeDOY, не понял вопроса допустим A2 пятое по рейтингу из C2:N2 каким цветом его окрашивать?
апдэйт вдруг правильно в модуль листа, срабатывает при пересчете [vba]
Код
Private Sub Worksheet_Calculate() Application.ScreenUpdating = False 'месяц a = Month(Range("a1")) 'нижняя строка столбца A b = Cells(Rows.Count, "a").End(xlUp).Row 'цикл от 2й до нижней строки For c = 2 To b 'тупо записал макрорекордером условное форматирование 3х цветное Range("c" & c & ":n" & c).FormatConditions.AddColorScale ColorScaleType:=3 Range("c" & c & ":n" & c).FormatConditions(Range("c" & c & ":n" & c).FormatConditions.Count).SetFirstPriority Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(1).Type = _ xlConditionValueLowestValue With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(1).FormatColor .Color = 7039480 .TintAndShade = 0 End With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(2).Type = _ xlConditionValuePercentile Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(2).Value = 50 With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(2).FormatColor .Color = 8711167 .TintAndShade = 0 End With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(3).Type = _ xlConditionValueHighestValue With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(3).FormatColor .Color = 8109667 .TintAndShade = 0 End With 'красим ячейку согласно форматированию столбца согласно даты Range("a" & c).Interior.Color = Cells(c, a + 2).DisplayFormat.Interior.Color 'удаляем условное форматирование из строки Range("c" & c & ":n" & c).FormatConditions.Delete Next Application.ScreenUpdating = True End Sub