Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выделить цветом повторяющиеся значения - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделить цветом повторяющиеся значения (Макросы/Sub)
Выделить цветом повторяющиеся значения
ant6729 Дата: Четверг, 05.10.2017, 19:20 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 358
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
Добрый вечер!

Если есть повторения отдельного значения ( в данном случае 34), чтобы ячейки, где 34 закрашивалась.

В ячейке А1 34 (закрашивалась)
В ячейке А2 67 (не закрашивалась)
В ячейке А5 34. 35, 36 (закрашивалась)

Подскажите, пожалуйста, как это сделать. Не могу дойти. Решал когда-то с Target и потом с методом Find. Но здесь не могу понять, как "давать целеуказание" на каждую i в столбце A.
 
Ответить
СообщениеДобрый вечер!

Если есть повторения отдельного значения ( в данном случае 34), чтобы ячейки, где 34 закрашивалась.

В ячейке А1 34 (закрашивалась)
В ячейке А2 67 (не закрашивалась)
В ячейке А5 34. 35, 36 (закрашивалась)

Подскажите, пожалуйста, как это сделать. Не могу дойти. Решал когда-то с Target и потом с методом Find. Но здесь не могу понять, как "давать целеуказание" на каждую i в столбце A.

Автор - ant6729
Дата добавления - 05.10.2017 в 19:20
InExSu Дата: Четверг, 05.10.2017, 21:58 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 260
Репутация: 29 ±
Замечаний: 80% ±

Excel 2010
Добрый вечер!
План макроса есть, жду файл ....
 
Ответить
СообщениеДобрый вечер!
План макроса есть, жду файл ....

Автор - InExSu
Дата добавления - 05.10.2017 в 21:58
RAN Дата: Четверг, 05.10.2017, 23:03 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4622
Репутация: 937 ±
Замечаний: 0% ±

2010
жду файл

В сказки верите? :)
ant6729, выдает файл только в ОЧЕНЬ исключительных случаях.
Поэтому я, и не только, его сообщения очень часто игнорирую. :D


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
жду файл

В сказки верите? :)
ant6729, выдает файл только в ОЧЕНЬ исключительных случаях.
Поэтому я, и не только, его сообщения очень часто игнорирую. :D

Автор - RAN
Дата добавления - 05.10.2017 в 23:03
ant6729 Дата: Четверг, 05.10.2017, 23:09 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 358
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
...)Ок, файл
К сообщению приложен файл: tut.xlsx(8Kb)
 
Ответить
Сообщение...)Ок, файл

Автор - ant6729
Дата добавления - 05.10.2017 в 23:09
buchlotnik Дата: Четверг, 05.10.2017, 23:25 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3437
Репутация: 922 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
типа того [vba]
Код
Sub yell()
    For i = 1 To [a1000000].End(xlUp).Row
        If Cells(i, 1) Like "*34*" Then Cells(i, 1).Interior.Color = 65535
    Next i
End Sub
[/vba]


"заступлюсь за Юрия" - публичный плевок в душу!
 
Ответить
Сообщениетипа того [vba]
Код
Sub yell()
    For i = 1 To [a1000000].End(xlUp).Row
        If Cells(i, 1) Like "*34*" Then Cells(i, 1).Interior.Color = 65535
    Next i
End Sub
[/vba]

Автор - buchlotnik
Дата добавления - 05.10.2017 в 23:25
ant6729 Дата: Четверг, 05.10.2017, 23:31 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 358
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
...)Ок, файл
К сообщению приложен файл: 2950704.xlsx(8Kb)
 
Ответить
Сообщение...)Ок, файл

Автор - ant6729
Дата добавления - 05.10.2017 в 23:31
ant6729 Дата: Четверг, 05.10.2017, 23:37 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 358
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
Допроясню тогда

Вместо 34 может быть другое значение, любое.

Я тоже пробовал через Ваш вариант, чтобы подобраться к решению. Но не догнал, как передать вместо 34 любое другое значение
Нужно, чтобы вместо 34 передавалось каждое значение из диапазона. И сравнивалось с каждым. Наверное, так....И если оно равно другому в ячейке, в том числе и указанному через запятую, то и эта ячейка и та, закрашивались.
 
Ответить
СообщениеДопроясню тогда

Вместо 34 может быть другое значение, любое.

Я тоже пробовал через Ваш вариант, чтобы подобраться к решению. Но не догнал, как передать вместо 34 любое другое значение
Нужно, чтобы вместо 34 передавалось каждое значение из диапазона. И сравнивалось с каждым. Наверное, так....И если оно равно другому в ячейке, в том числе и указанному через запятую, то и эта ячейка и та, закрашивались.

Автор - ant6729
Дата добавления - 05.10.2017 в 23:37
buchlotnik Дата: Пятница, 06.10.2017, 00:17 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3437
Репутация: 922 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
Цитата
Допроясню тогда
не-а, сначала прочитайте Правила форума
Цитата
Я тоже пробовал через Ваш вариант
даа?! и где же ваши попытки в файле?


"заступлюсь за Юрия" - публичный плевок в душу!
 
Ответить
Сообщение
Цитата
Допроясню тогда
не-а, сначала прочитайте Правила форума
Цитата
Я тоже пробовал через Ваш вариант
даа?! и где же ваши попытки в файле?

Автор - buchlotnik
Дата добавления - 06.10.2017 в 00:17
InExSu Дата: Пятница, 06.10.2017, 08:49 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 260
Репутация: 29 ±
Замечаний: 80% ±

Excel 2010
любое другое значение

Привет!
[vba]
Код
Sub yell()
  ActiveSheet.UsedRange.Interior.Pattern = xlNone
  ЛюбоеЗначение = "34"
  For i = 1 To [a1000000].End(xlUp).Row
    If Cells(i, 1) Like "*" & ЛюбоеЗначение & "*" Then Cells(i, 1).Interior.Color = 65535
  Next i
End Sub
[/vba]
 
Ответить
Сообщение
любое другое значение

Привет!
[vba]
Код
Sub yell()
  ActiveSheet.UsedRange.Interior.Pattern = xlNone
  ЛюбоеЗначение = "34"
  For i = 1 To [a1000000].End(xlUp).Row
    If Cells(i, 1) Like "*" & ЛюбоеЗначение & "*" Then Cells(i, 1).Interior.Color = 65535
  Next i
End Sub
[/vba]

Автор - InExSu
Дата добавления - 06.10.2017 в 08:49
iMrTidy Дата: Пятница, 06.10.2017, 11:49 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 11 ±
Замечаний: 0% ±

Excel 2010
ant6729, иногда впечатление, что это не Вам нужно, а нам. Почему нельзя доступным языком описать, то что нужно, и приложить пример, с тем что есть, и с тем как хотелось бы?

Я правильно понимаю, что
1. Исходные данные: столбец со значениями, где в ячейке могут быть несколько значений, разделенных запятой?
2. В результате должны подствечиваться ячейки, где в данных есть повтор (1 или больше раз)?
3. Повторяющиеся значения внутри ячейки не учитываются?

Если мое предположение верно, то вот пример.
К сообщению приложен файл: tut.xlsm(16Kb)
 
Ответить
Сообщениеant6729, иногда впечатление, что это не Вам нужно, а нам. Почему нельзя доступным языком описать, то что нужно, и приложить пример, с тем что есть, и с тем как хотелось бы?

Я правильно понимаю, что
1. Исходные данные: столбец со значениями, где в ячейке могут быть несколько значений, разделенных запятой?
2. В результате должны подствечиваться ячейки, где в данных есть повтор (1 или больше раз)?
3. Повторяющиеся значения внутри ячейки не учитываются?

Если мое предположение верно, то вот пример.

Автор - iMrTidy
Дата добавления - 06.10.2017 в 11:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделить цветом повторяющиеся значения (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!