Всем привет! Раскрасил таблицу следующим образом: Диапазон начинается с ячейки В3 3-я строка содержит имена, 4-я содержит значения, 5-я имена, 6-я значения и т.д. Если под В3 значение больше 1, то В3 становится красная, и так для каждого имени
Если удалить значение под именем, имя перестаёт быть красным. подскажите кто знает, как сохранить формат ячейки, чтобы он не зависел от значения? Диапазон большой, так что вручную красить не вариант
Всем привет! Раскрасил таблицу следующим образом: Диапазон начинается с ячейки В3 3-я строка содержит имена, 4-я содержит значения, 5-я имена, 6-я значения и т.д. Если под В3 значение больше 1, то В3 становится красная, и так для каждого имени
Если удалить значение под именем, имя перестаёт быть красным. подскажите кто знает, как сохранить формат ячейки, чтобы он не зависел от значения? Диапазон большой, так что вручную красить не вариантKanivan51
В таблице в итоге должны остаться только те строки, которые содержат имена. Но при удалении строк со значениями пропадает и формат в строках с именами.
В таблице в итоге должны остаться только те строки, которые содержат имена. Но при удалении строк со значениями пропадает и формат в строках с именами.Kanivan51
К сожалению, не могу приложить файл, он на рабочем компе. А пишу с телефона. В общем, выглядит это так: Берём диапазон ячеек. Нечетные строки содержат имена. А могут и не содержать их, это не важно. Они будут принимать цвет в зависимости от значения в другой ячейке. Четные содержат значения от 0 до 5. Допустим, это диапазон А1:D8. Выделяем его, при этом стоим в ячейке А1. Условное форматирование > Управление правилами > Создать правило > Использовать формулу для определения форматируемых ячеек В строку формулы пишем =А2>1 Формат - красная заливка. Применяем. Если А2>1, то А1 будет красная. Если В2>1, то В3 будет красная, если А4>1, то А3 будет красная. Необходимо удалить четные строки, но при этом нечетные должны сохранить свои цвета. Проблема в том, что при удалении сбрасывается форматирование
К сожалению, не могу приложить файл, он на рабочем компе. А пишу с телефона. В общем, выглядит это так: Берём диапазон ячеек. Нечетные строки содержат имена. А могут и не содержать их, это не важно. Они будут принимать цвет в зависимости от значения в другой ячейке. Четные содержат значения от 0 до 5. Допустим, это диапазон А1:D8. Выделяем его, при этом стоим в ячейке А1. Условное форматирование > Управление правилами > Создать правило > Использовать формулу для определения форматируемых ячеек В строку формулы пишем =А2>1 Формат - красная заливка. Применяем. Если А2>1, то А1 будет красная. Если В2>1, то В3 будет красная, если А4>1, то А3 будет красная. Необходимо удалить четные строки, но при этом нечетные должны сохранить свои цвета. Проблема в том, что при удалении сбрасывается форматированиеKanivan51
Sub Color_01() Application.ScreenUpdating = 0 For Each c In Range("b3:b1200") If c.Offset(1, 0) > 1 And c = c.Text Then c.Interior.Color = 255 End If Next Application.ScreenUpdating = 1 End Sub
[/vba]вдруг правильно
[vba]
Код
Sub Color_01() Application.ScreenUpdating = 0 For Each c In Range("b3:b1200") If c.Offset(1, 0) > 1 And c = c.Text Then c.Interior.Color = 255 End If Next Application.ScreenUpdating = 1 End Sub
В Вашем случае только макросом. Николай выше уже выложил. Вот еще вариант [vba]
Код
Sub rrr() Application.ScreenUpdating = 0 r1_ = Range("A" & Rows.Count).End(3).Row r0_ = 2 c0_ = 1 c1_ = 4 For i = r0_ To r1_ Step 2 For j = c0_ To c1_ If Cells(i, j) > 0 Then Cells(i - 1, j).Interior.ColorIndex = 7 End If Next j Next i End Sub
[/vba]
В Вашем случае только макросом. Николай выше уже выложил. Вот еще вариант [vba]
Код
Sub rrr() Application.ScreenUpdating = 0 r1_ = Range("A" & Rows.Count).End(3).Row r0_ = 2 c0_ = 1 c1_ = 4 For i = r0_ To r1_ Step 2 For j = c0_ To c1_ If Cells(i, j) > 0 Then Cells(i - 1, j).Interior.ColorIndex = 7 End If Next j Next i End Sub