Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Если повторяется значение выделить всю строку, макрос
 
#1
20.01.2019 21:08:24
Добрый день подскажите как в коде макроса прописать поиск повторяющихся значений, если найдено повторение то всю строку выделить красным цветом. В файле примере как должно выглядеть, заранее спасибо )))
Изменено: Kentavrik7 - 18.03.2019 10:04:47
 
 
 
#2
20.01.2019 21:16:50
нужно так понимать, что файл-пример уже на подходе
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
20.01.2019 21:17:31
ну как как, перебрать значения, наполняя массив или коллекцию, и проверяя на наличие в них . Если имеется, значит дубликат, помечаем и строку с первым, и текущую.
По вопросам из тем форума, личку не читаю.
 
 
 
#4
20.01.2019 22:14:57
Ігор Гончаренко,сорри вроде добавил файл а он не залился

БМВ,Подскажите как кодом написать массив который бы с столбца b наполнялся?
 
 
 
#5
20.01.2019 22:47:20
Код
=СЧЁТЕСЛИ(R1C2:RC2;RC2)>1

перепутал. поправил

Изменено: Ігор Гончаренко - 21.01.2019 00:14:19
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
21.01.2019 00:00:27
Ігор Гончаренко,а что это за файл? Вы не перепутали? Там просто какая то информация которою я не давал )  
 
 
 
#7
21.01.2019 00:40:24
Возможно, Игорь и перепутал файлы. Но это и не мудрено: посмотрите, сколько у него уже файлов с таким названием. А всё потому, что тем, кто задаёт вопросы, лень придумать оригинальное название для своего файла. Вот и копятся у помогающих файлы с именами "Книга", "Лист"... Только индексы меняются.
 
 
 
#8
21.01.2019 08:55:49
Юрий М, да нет не лень  даже не подумал о том что это может вызвать трудности) в следующий раз назову оригинально

Ігор Гончаренко, спасибо, я понял это условное форматирование. А можно в код это записать?
 
 
 
#9
21.01.2019 09:19:14
Так нужно?
Скрытый текст
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#10
21.01.2019 09:33:52
Nordheim,Работает) Отлично спасибо) Только не понимаю как  это работает благодаря объекту "scripting.dictionary"

Еще один нюанс можно уточнить? можно чтобы он не выделял ячейки в которых пусто? в файле пример этого не происходит, а вот в рабочем он захватывает пустые
 
 
 
#11
21.01.2019 10:40:00
Привет!
Цитата
Kentavrik7 написал:
чтобы он не выделял ячейки в которых пусто
как вариант, заменить
Код
            txt = Cells(i, 2)
            If Not dic.exists(txt) Then dic.Item(txt) = txt Else Rows(i).Interior.Color = vbRed
на
Код
        If Cells(i, 2).Value <> vbNullString Then
            txt = Cells(i, 2)
            If Not dic.exists(txt) Then dic.Item(txt) = txt Else Rows(i).Interior.Color = vbRed
        End If
Или можно подсовывать диапазон без пустых значений ...
Сравнение прайсов, таблиц - без настроек
 
 
 
#12
21.01.2019 11:05:51
Inexsu,Спасибо большое)  
Данный макрос правда имеет еще один недостаток, если ячейки были форматированы в какой либо цвет он все заливки делает белыми, можно как то этого избежать? чтобы он работал как условное форматирование
 
 
 
#13
21.01.2019 11:11:24
Цитата
Kentavrik7 написал:
все заливки делает белыми
Закомментируйте строку
Код
Columns.Interior.Color = xlNone
Сравнение прайсов, таблиц - без настроек
 
 
 
#14
21.01.2019 11:30:04
Inexsu, Спасибо большое все работает как надо!
Всем спасибо)  
 
 
 
Страницы: 1
Наверх