Как отфильтровать ячейки по цвету шрифта?

4

Кто-то прислал мне электронную таблицу Excel 2010 с более чем 50 000 записей с просьбой просмотреть записи, выделенные красным цветом. Мой текущий метод прокрутки с предположением, что у меня острый глаз, не работает должным образом.

Есть ли способ отфильтровать или найти ячейки по цвету шрифта?

zundarz
источник
1
Вы хотите фильтровать или искать? Вы можете отфильтровать по цвету (просто добавьте кнопки фильтра) и выполнить поиск по цвету шрифта (нажмите «Параметры >>» в диалоговом окне поиска и установите необходимое форматирование).
Джерри
@ Джерри, текст выделен.
zundarz
@ Джерри, я бы предпочел отфильтровать. Моя цель - найти клетки. Я открыт для метода.
zundarz

Ответы:

6

Функция фильтрации по цвету (шрифт или фон) уже реализована с Excel 2007.

введите описание изображения здесь

Узнайте больше об этом на: http://msdn.microsoft.com/en-us/library/cc952296.aspx .
Вот видео на Youtube для случая, когда вы пропустили опцию фильтра.

Вы пометили свой вопрос в Excel 2010, поэтому я предполагаю, что у вас установлен 2010. Только 2003 не будет иметь эту опцию

nixda
источник
nxida: в Excel 2010 мой параметр фильтра выглядит следующим образом: i.imgur.com/b1vctRx.png . Как мне получить параметр фильтра, который вы показали?
zundarz
Опция фильтра в Excel 2010 находится здесь: imgur.com/cBR1hGs .
zundarz
@zundarz Посмотрите видео: youtube.com/watch?v=_IgPAHe0mN8#t=167
nixda
0

Это использует VBa.

Добавьте панель инструментов разработчика на ленту . На панели «Управление» нажмите «Вставить» и нажмите кнопку

Нарисуйте кнопку на рабочем листе Excel. Нажмите ОК.

В новом окне введите следующее, чтобы на странице был только этот код (больше ничего)

Sub Button1_Click()

Dim i As Integer
i = 1
For Each c In range("A1:A10") 'UPDATE THIS FOR THE CORRECT RANGE
    If c.Font.ColorIndex = 3 Then
        Range("M" & i).Formula = "=HYPERLINK(" & c.Address & ", " & c.Address & ")"  'CHOSE EMPTY COLUMN
        i = i + 1
    End If
Next

End Sub

В этом примере я выбрал свободный столбец (M) в этом случае. Если M не свободен, тогда измените M на столбец, который свободен. Вам также необходимо указать правильный диапазон индекса.

Таким образом, каждый раз, когда он находит ячейку с красным шрифтом ( с индексом 3 ), он записывает значение в столбец М. Таким образом, благодаря новому списку вы можете легко перейти к соответствующей ячейке.

Большое спасибо @mehow, который предложил сделать результаты кликабельными.

Дейв
источник
заменить range("M" + CStr(i)).Value = c.Address 'CHOSE EMPTY COLUMNна Range("M" & i).Formula = "=HYPERLINK(" & c.Address & ", " & c.Address & ")"это вставит гиперссылки, так что вы можете нажать на любую из гиперссылок для автоматической отправки в ячейку. Я думаю, что это будет быстрее, чем ручная прокрутка 50000 записей, например, найти: F1502.
0

При этом используется цветовая стратегия сортировки по ячейкам. Учтите, что цвет шрифта = цвет ячейки в расширенной функции сортировки в Excel 2016 и, возможно, Excel 2013.

У меня похожая ситуация. Я вставил свои данные в Excel, а затем отсортировал по цвету ячейки, который также эквивалентен цвету шрифта. Моя таблица включала пять столбцов информации с первым столбцом в качестве списка имен. Столбцы со второго по пятый состояли из содержания. Внутри этих ячеек случайные ячейки состояли из текста разных цветов, но цвета текста имеют большое значение. Мой запрос состоял в том, чтобы извлечь те записи, которые включали цветной текст.

Поэтому моя стратегия сортировки началась с первого уровня, отсортированного по столбцу 2, например, с цветом ячейки «черный». Это отсортировало таблицу по первому столбцу и каждой записи с ячейкой, состоящей из черного текста. Второй уровень был отсортирован по столбцу 3 с первичной сортировкой по черному цвету. Я продолжил уровни, сортируя только те столбцы с цветными черными ячейками / текстом. Конечным результатом была таблица информации со всеми записями, отсортированными по цвету шрифта, и строками без цвета в нижней части таблицы.

Оттуда я извлек клетки только с черным текстом. Это не автоматический, но упрощенный подход здравого смысла.

WassupNetwork
источник