Здравствуйте помогите написать макрос если возможно.
Мне постоянно приходится выгружать из программы файлы и сравнивать их на добавление новых подключений. Для наглядности я стал их перекрашивать. Как я делаю: В столбце E находится список типов сч-ков (есть множество типов сч-ков)(мне нужны только те которые начинаются на NP) 1)Забиваю в поиске NP он находит список выделяю его и перекрашиваю в зеленый цвет. 2)ставлю фильтр на ячейки (B2:E2). 3)В фильтре на столбце E ставлю все белые ячейки (И он выдает мне список всех типов сч-ков которые не начинаются на NP). 4)Выделяю все оставшиеся с ячейки B3:Е3 и до конца списка и перекрашиваю их в желтый. 4)отжимаю фильтр. И в итоги у меня получается список где все счетчики которые начинаются не на NP перекрашены в желты цвет.
файл:1111111 оригинал файл:2222222 что должно получится [moder]Переназовите тему согласно п. 2 Правил форума. Например, "Раскраска ячеек по условию". До этого все ответы буду скрывать.
Здравствуйте помогите написать макрос если возможно.
Мне постоянно приходится выгружать из программы файлы и сравнивать их на добавление новых подключений. Для наглядности я стал их перекрашивать. Как я делаю: В столбце E находится список типов сч-ков (есть множество типов сч-ков)(мне нужны только те которые начинаются на NP) 1)Забиваю в поиске NP он находит список выделяю его и перекрашиваю в зеленый цвет. 2)ставлю фильтр на ячейки (B2:E2). 3)В фильтре на столбце E ставлю все белые ячейки (И он выдает мне список всех типов сч-ков которые не начинаются на NP). 4)Выделяю все оставшиеся с ячейки B3:Е3 и до конца списка и перекрашиваю их в желтый. 4)отжимаю фильтр. И в итоги у меня получается список где все счетчики которые начинаются не на NP перекрашены в желты цвет.
файл:1111111 оригинал файл:2222222 что должно получится [moder]Переназовите тему согласно п. 2 Правил форума. Например, "Раскраска ячеек по условию". До этого все ответы буду скрывать.Hiryrg
Hiryrg, Добрый день! Если вы хотите именно закрашивать текст с содержанием "NP" то проще всего воспользоваться условным форматированием, по условию "если текст содержит "NP".
Hiryrg, Добрый день! Если вы хотите именно закрашивать текст с содержанием "NP" то проще всего воспользоваться условным форматированием, по условию "если текст содержит "NP".Roman777
Sub www() Dim lr& On Error Resume Next With Me lr = .Cells(.Rows.Count, 1).End(xlUp).Row .Range("$A$2:$F$" & lr).Interior.ColorIndex = xlNone .Range("$A$2:$F$" & lr).AutoFilter Field:=5, Criteria1:="=NP*" .Range("e3:F" & lr).SpecialCells(12).Interior.ColorIndex = 4 .Range("A2:F" & lr).AutoFilter Field:=5, Criteria1:="<>NP*" .Range("b3:F" & lr).SpecialCells(12).Interior.ColorIndex = 6 .AutoFilterMode = 0 End With End Sub
[/vba]
В модуль листа: [vba]
Код
Sub www() Dim lr& On Error Resume Next With Me lr = .Cells(.Rows.Count, 1).End(xlUp).Row .Range("$A$2:$F$" & lr).Interior.ColorIndex = xlNone .Range("$A$2:$F$" & lr).AutoFilter Field:=5, Criteria1:="=NP*" .Range("e3:F" & lr).SpecialCells(12).Interior.ColorIndex = 4 .Range("A2:F" & lr).AutoFilter Field:=5, Criteria1:="<>NP*" .Range("b3:F" & lr).SpecialCells(12).Interior.ColorIndex = 6 .AutoFilterMode = 0 End With End Sub