Найти в Дзене

📌 Как выделить повторяющиеся значения: пример решения

Оглавление

Всем привет! 👋

На одном из форумов была задача:

Нужно сделать так, чтобы при повторяющих значениях, Excel издавал звук из файла (пример в ячейке А1:А100 есть значения, когда в колонку В введены повторяющее, они выделяются в красный, и при этом чтоб был звук)

Представляем наше видение (решение) поставленной задачи.

Полезные макросы Excel. Готовые решения: Как выделить повторяющиеся значения
Полезные макросы Excel. Готовые решения: Как выделить повторяющиеся значения

📢 Вы можете загрузить файл с исходным кодом в конце данной статьи 🔽

-3

▶️ Вариант 1. Как выделять ячейки красным цветом и издавать звук из файла

Данный макрос вы можете использовать для того, чтобы при повторяющихся значениях в колонке B выделять ячейки красным цветом и издавать звук из файла:

Dim rng As Range 'Объявление переменной "rng" как диапазона ячеек     Dim cell As Range 'Объявление переменной "cell" как диапазона ячеек
Set rng = Range("B1:B100") 'Присваивание переменной "rng" диапазона ячеек от B1 до B100
For Each cell In rng 'Начало цикла для каждой ячейки в диапазоне "rng"
If WorksheetFunction.CountIf(rng, cell.Value) > 1 Then 'Если количество ячеек в диапазоне "rng" с таким же значением, как у текущей ячейки, больше 1
cell.Interior.ColorIndex = 3 'Изменение цвета заливки текущей ячейки на красный
Beep 'Издание звука системного динамика
End If 'Конец условия
Next cell 'Переход к следующей ячейке в диапазоне "rng"
Dim rng As Range 'Объявление переменной "rng" как диапазона ячеек Dim cell As Range 'Объявление переменной "cell" как диапазона ячеек Set rng = Range("B1:B100") 'Присваивание переменной "rng" диапазона ячеек от B1 до B100 For Each cell In rng 'Начало цикла для каждой ячейки в диапазоне "rng" If WorksheetFunction.CountIf(rng, cell.Value) > 1 Then 'Если количество ячеек в диапазоне "rng" с таким же значением, как у текущей ячейки, больше 1 cell.Interior.ColorIndex = 3 'Изменение цвета заливки текущей ячейки на красный Beep 'Издание звука системного динамика End If 'Конец условия Next cell 'Переход к следующей ячейке в диапазоне "rng"

🔔 Чтобы каждый раз, при изменении значения в колонке B, выполнялась проверка >>> является ли значение уникальным и, если это так, убирать заливку с ячейки. Несколько изменим код:

Здесь добавлено условие, которое будет проверять, является ли значение уникальным и, если это так, убирать заливку
Здесь добавлено условие, которое будет проверять, является ли значение уникальным и, если это так, убирать заливку

Также обращаем внимание! Макрос использует функцию Beep, которая издаёт звук системного динамика. Если вы хотите использовать звук из файла, вам нужно будет использовать другой метод для воспроизведения звука.

▶️ Вариант 2. Автоматическое срабатывание при вводе данных

Можно настроить макрос таким образом, чтобы он автоматически срабатывал при вводе данных в колонку B.

Для этого будем использовать событие Worksheet_Change и добавим следующий код в лист, на котором требуется отслеживать изменения:

-6

Теперь каждый раз, когда будут вводиться данные в колонку B в диапазоне B1:B100, макрос HighlightDuplicates1 автоматически запускается и выделяет повторяющиеся значения красным цветом.

🔷 Результат:

Как выделить повторяющиеся значения.mp4
-7

В заключение:

Пишите Ваши примеры задач в комментариях. И мы обязательно сделаем на них обзор с подробным разъяснением.

Наши рекомендации:

-8

➡️ СКАЧАТЬ ПРИМЕР ФАЙЛА

Наша команда очень заинтересована в создании качественного и полезного контента. Поэтому, если Вам понравился этот урок, не забудьте поблагодарить автора лайком 👍. Если у Вас есть вопросы или своё решение, не стесняйтесь оставить комментарий 💬. Нужно решение для другой проблемы? Пожалуйста, напишите свой вопрос в комментариях 💬, и мы обязательно рассмотрим его в ближайшей теме обзора. Мы ценим Вашу обратную связь 💝, так как это помогает нам оценить, насколько данный материал был полезен для Вас.
Наша команда очень заинтересована в создании качественного и полезного контента. Поэтому, если Вам понравился этот урок, не забудьте поблагодарить автора лайком 👍. Если у Вас есть вопросы или своё решение, не стесняйтесь оставить комментарий 💬. Нужно решение для другой проблемы? Пожалуйста, напишите свой вопрос в комментариях 💬, и мы обязательно рассмотрим его в ближайшей теме обзора. Мы ценим Вашу обратную связь 💝, так как это помогает нам оценить, насколько данный материал был полезен для Вас.