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

4

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

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

microsoft-excel microsoft-excel-2010 search

— 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
источник