Сломал голову, вроде простая задача. Нужно для наглядности заполнить колонку "С" (сколько деталей получили) гистограммой. В колонке "В" напротив каждой детали постоянная величина, условно 100% (сколько деталей должно быть) . И не большое условие. если чекбокс "Убрать" стоит, то гистограммы не показываются. Правила для Деталь 1 и 2 в условное форматирование записал, работает как нужно. Но проблема в том что этих деталей под тысячу будет, вручную правила условного форматирования муторно делать. А обычным способом протянув колонку не работает, как и относительные ссылки, выходит сообщение что правила запрещают, должны быть только через $. В примере понятней.
Сломал голову, вроде простая задача. Нужно для наглядности заполнить колонку "С" (сколько деталей получили) гистограммой. В колонке "В" напротив каждой детали постоянная величина, условно 100% (сколько деталей должно быть) . И не большое условие. если чекбокс "Убрать" стоит, то гистограммы не показываются. Правила для Деталь 1 и 2 в условное форматирование записал, работает как нужно. Но проблема в том что этих деталей под тысячу будет, вручную правила условного форматирования муторно делать. А обычным способом протянув колонку не работает, как и относительные ссылки, выходит сообщение что правила запрещают, должны быть только через $. В примере понятней.Александр7034
Да в примере работает, а как это правило протянуть на 1000 строк? Классическим способом потянув за край столбца условия в новых ячейках остаются как в изначальной ячейке. Вы же не вручную с 4 по 15 строку вписали, как раз от этого и хотел уйти.
Да в примере работает, а как это правило протянуть на 1000 строк? Классическим способом потянув за край столбца условия в новых ячейках остаются как в изначальной ячейке. Вы же не вручную с 4 по 15 строку вписали, как раз от этого и хотел уйти.Александр7034
Sub u_615() Application.ScreenUpdating = False u = Cells(Rows.Count, "a").End(xlUp).Row Range("c2").Copy For a = 2 To u Range("c" & a).PasteSpecial Paste:=xlPasteFormats Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub
Sub u_615() Application.ScreenUpdating = False u = Cells(Rows.Count, "a").End(xlUp).Row Range("c2").Copy For a = 2 To u Range("c" & a).PasteSpecial Paste:=xlPasteFormats Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub