Ванита спросила, есть ли способ выбрать ячейки, содержащие определенный цвет. Выполнить задачу легко, если вы используете Excel 2003. Просто выполните следующие действия:

  1. Нажмите Ctrl + F, чтобы открыть вкладку «Найти» диалогового окна «Найти и заменить». (См. Рис. 1.)

  2. Убедитесь, что в поле «Найти» ничего нет.

  3. Щелкните Форматировать. (Вам может потребоваться нажать «Параметры», чтобы увидеть кнопку «Формат».) Excel отображает диалоговое окно «Найти формат».

  4. Убедитесь, что отображается вкладка «Узоры». (См. Рис. 2.)

  5. Из доступных цветов выберите цвет, который хотите найти.

  6. Нажмите OK, чтобы закрыть диалоговое окно «Найти формат».

  7. Щелкните «Найти все». Диалоговое окно «Найти и заменить» развернется, чтобы отобразить адреса всех ячеек, отформатированных цветом, который вы указали на шаге 5. (см. Рисунок 3.)

  8. Щелкните один из адресов ячейки в нижней части диалогового окна. Excel выберет ячейку на самом листе.

  9. Нажмите Ctrl + A. Выбраны все адреса в диалоговом окне.

  10. Щелкните Close. Выбраны все ячейки нужного цвета.

Если вы используете Excel 97, Excel 2000 или Excel 2002, единственный способ выбрать ячейки определенного цвета — это использовать макрос. Рассмотрим макрос, показанный здесь:

Sub SelectColoredCells()

Dim rCell As Range     Dim lColor As Long     Dim rColored As Range

'Select the color by name (8 possible)

'vbBlack, vbBlue, vbGreen, vbCyan,     'vbRed, vbMagenta, vbYellow, vbWhite     lColor = vbBlue

'If you prefer, you can use the RGB function     'to specify a color     'lColor = RGB(0, 0, 255)



Set rColored = Nothing     For Each rCell In Selection         If rCell.Interior.Color = lColor Then             If rColored Is Nothing Then                 Set rColored = rCell             Else                 Set rColored = Union(rColored, rCell)

End If         End If     Next     If rColored Is Nothing Then         MsgBox "No cells match the color"

Else         rColored.Select         MsgBox "Selected cells match the color:" & _             vbCrLf & rColored.Address     End If     Set rCell = Nothing     Set rColored = Nothing End Sub

Чтобы использовать макрос, выберите диапазон ячеек перед его запуском. Затем макрос проходит через каждую выбранную ячейку и сравнивает ее цвет с любым цветом, который вы указали в lColor. Если совпадение найдено, ячейка добавляется в набор выбора. По завершении макрос выбирает только совпадающие ячейки, а затем завершает работу.

Если вы хотите узнать о других решениях на основе макросов, вы можете обратиться к следующей статье в базе знаний Microsoft:

http://support.microsoft.com/kb/142122

_Примечание: _

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

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2396) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

link: / excelribbon-Finding_Cells_Filled_with_a_Particular_Color [Поиск ячеек, заполненных определенным цветом].