Как выделить все ячейки в excel в формуле

Применим средства

EXCEL

для поиска и выделения ячеек, содержащих и НЕ содержащих формулы.

Представим, что в части ячеек листа имеются формулы, а в других – значения. Нужно определить, что в каких находится.

Выделить ячейки, которые содержат формулы можно воспользовавшись стандартным инструментом EXCEL

Выделение группы ячеек…

или через меню: на вкладке

Главная

в группе

Редактирование

щелкните стрелку рядом с командой

Найти и выделить

, а затем выберите в списке пункт

Формулы

.

Выделить ячейки, которые содержат НЕ формулы, т.е. содержат константы можно аналогичным образом, только вместо

Формулы

нужно выбрать

Константы

.

Если в ячейке введено

=11

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

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

Условное форматирование

так, чтобы после ввода формулы происходило автоматическое выделение, содержащей ее ячейки.

Допустим значения вводятся в диапазон

A1:A10

(см.

файл примера

)

.

Для настройки

Условного форматирования

для этого диапазона необходимо сначала создать

Именованную формулу

, для этого:

• выделите ячейку
  
  A
  
  1
  
  ;
• вызовите окно
  
  Создание имени
  
  из меню
  
  ;
  
• в поле
  
  Имя
  
  введите название формулы, например
  
  Формула_в_ячейке
  
  ;
• в поле
  
  Диапазон
  
  введите
  
  =ПОЛУЧИТЬ.ЯЧЕЙКУ(48;Лист1!A1)
  
• нажмите ОК.

Теперь настроим правило

Условного форматирования

, для этого:

• выделите диапазон
  
  A
  
  1:
  
  A
  
  10
  
  ;
• вызовите инструмент
  
  Условное форматирование
  
  (

  );

• выберите
  
  Использовать формулу для определения форматируемых ячеек;
  
• в поле «
  
  Форматировать значения, для которых следующая формула является истинной
  
  » введите
  
  =Формула_в_ячейке
  
  ;
• выберите требуемый формат, например, красный цвет фона;

• Нажмите ОК, затем еще раз ОК.

Теперь все ячейки из диапазона

A

1:

A

10

, содержащие формулы, выделены красным.

В этом примере мы использовали макрофункцию

ПОЛУЧИТЬ.ЯЧЕЙКУ()

. Это набор функций к EXCEL 4-й версии, которые нельзя напрямую использовать на листе EXCEL 2007, а можно использовать только в качестве

Именованной формулы

, что мы и сделали.

Чтобы, наоборот, выделить все непустые ячейки, содержащие константы (или НЕ содержащие формулы), нужно изменить формулу на

=И(НЕ(ПОЛУЧИТЬ.ЯЧЕЙКУ(48;Лист1!A1));НЕ(ЕПУСТО(Лист1!A1)))

Совет

:

Чтобы показать все формулы, которые имеются на листе нужно на вкладке

Формулы

в группе

Зависимости формул

щелкните кнопку

Показать формулы

.

Чтобы выделить все ячейки, содержащие формулы, нужно на вкладке

Главная

, в группе

Редактирование

выбрать команду

Формулы

.

Чтобы найти все ячейки на листе, имеющие

Условное форматирование

необходимо:

• на вкладке
  
  Главная
  
  в группе
  
  Редактирование
  
  щелкните стрелку рядом с командой
  
  Найти и выделить
  
  ;
• выберите в списке пункт
  
  Условное форматирование;
  
• будут выделены все ячейки, которым применено
  
  Условное форматирование
  
  .

Как выделить разом все ячейки с формулами?

Достаточно часто в таблицах бывает такая ошибка, когда формула случайно заменяется значением. Этот тип ошибок обычно трудно определяется, особенно если лист содержит большое количество формул. В этом приеме описывается два способа быстро идентифицировать формулы в листе, выделяя их. Затем при уменьшении масштаба вы могли бы определить пробелы в группах формул.

Использование окна Выделение группы ячеек

Этот метод выявления ячеек с формулами легкий, но не динамический. Другими словами, он хорош для единичной проверки.

1. Выберите одну ячейку в листе.
2. Выберите Главная ► Редактирование ► Найти и выделить ► Выделение группы ячеек для открытия диалогового окна Выделение группы ячеек.
3. В окне Выделение группы ячеек установите переключатель в положение формулы и убедитесь, что все флажки ниже установлены.
4. Нажмите кнопку ОК. Excel выберет все ячейки с формулами.
5. Нажмите кнопку Цвет заливки в группе Шрифт вкладки Главная. Выберите любой цвет, который еще не используется.
6. Используйте элемент управления Масштаб и задайте для своего листа небольшой масштаб (например, 25%).
7. Внимательно проверьте лист и посмотрите, какие ячейки остались невыделенными. Возможно, это формула, которая была перезаписана значением.

Если вы не делали никаких изменений, то можете нажать кнопку Отменить (или нажать Ctrl+Z) для отмены цветовой заливки, которую применили в шаге 6.

Использование условного форматирования

Этот метод определения ячеек с формулами потребует небольшой настройки, но он имеет явное преимущество по сравнению с предыдущим, так как является динамическим. Ячейки с формулами определяются сразу, как только заполняются.

Чтобы настроить условное форматирование, выполните следующие действия.

1. Выберите Формулы ► Определенные имена ► Присвоить имя для открытия диалогового окна Создание имени.
2. В окне Создание имени введите следующую строку в поле Имя: CellHasFormula.
3. Введите такую формулу в поле Диапазон: =ПОЛУЧИТЬ.ЯЧЕЙКУ(48;ДВССЫЛ("rc";ЛОЖЬ)).
4. Нажмите кнопку ОК, чтобы закрыть диалоговое окно Создание имени.
5. Выделите все ячейки, к которым хотите применить условное форматирование. Как правило, они составляют диапазон от А1 до правого нижнего угла используемой области листа.
6. Выберите Главная ► Стили ► Условное форматирование ► Создать правило для открытия диалогового окна Создание правила форматирования.
7. В верхней части окна выберите пункт Использовать формулу для определения форматируемых ячеек.
8. Введите следующую формулу в поле диалогового окна (рис. 196.1): =CellHasFormula.
9. Нажмите кнопку Формат для открытия диалогового окна Формат ячеек и выберите тип форматирования для ячеек, содержащих формулу.
10. Нажмите кнопку OК, чтобы закрыть окно Формат ячеек, и снова нажмите OК, чтобы закрыть окно Создание правила форматирования.

После выполнения этих шагов каждая ячейка, которая содержит формулу и находится в пределах выбранного в шаге 5 диапазона, будет отформатирована по вашему выбору. Кроме того, при вводе формулы в диапазон, для которого задано условное форматирование, ячейка немедленно поменяет вид. Это форматирование позволяет вам легко определить ячейку, которая должна содержать формулу, но не содержит.

Формула, которую вы вводили в шаге 3, — макрос XLM. Следовательно, вам необходимо сохранить книгу с расширением с поддержкой макросов (используя расширение XLSM). Если вы сохраните книгу в виде XLSX-файла, Excel удалит имя CellHasFormula.

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

Выделите все ячейки, на которые ссылается формула, с помощью сочетания клавиш
Выделите все ячейки, на которые ссылается формула, с кодом VBA

Выделите все ячейки, на которые ссылается формула, с помощью сочетания клавиш

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

1. Предположим, что E1 — это ячейка формулы, и вам нужно выделить все ячейки, на которые она ссылается. Выберите ячейку формулы E1, затем нажмите Ctrl + [ (открытая квадратная скобка) одновременно.

2. Теперь выделены ячейки, на которые ссылается эта формула. Укажите цвет заливки, чтобы выделить их. Смотрите скриншот:

Выделите все ячейки, на которые ссылается формула, с кодом VBA

Вы также можете запустить код VBA, чтобы выделить все ячейки, на которые ссылалась формула в Excel.

1. Нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в окно модуля.

Код VBA: выделите все ячейки, на которые ссылается формула в Excel

Sub HighlightCellsReferenced()
    Dim rowCnt As Integer
    Dim i As Integer, j As Integer, strleng As Integer
    Dim strTxt As String, strFml As String
    Dim columnStr, cellsAddress As String
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
    Title:="Kutools For Excel", Type:=8)
    
    strTxt = ""
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If yRg.Value <> "" Then
            strFml = yRg.Formula + " "
            strFml = Replace(strFml, "(", " ")
            strFml = Replace(strFml, ")", " ")
            strFml = Replace(strFml, "-", " ")
            strFml = Replace(strFml, "+", " ")
            strFml = Replace(strFml, "*", " ")
            strFml = Replace(strFml, "/", " ")
            strFml = Replace(strFml, "=", " ")
            strFml = Replace(strFml, ",", " ")
            strFml = Replace(strFml, ":", " ")
              
            For j = 1 To Len(strFml)
                If Mid(strFml, j, 1) <> " " Then
                    cellsAddress = cellsAddress + Mid(strFml, j, 1)
                Else
                    On Error Resume Next
                    Range(cellsAddress).Interior.ColorIndex = 3
                    cellsAddress = ""
                End If
            Next
        End If
    Next yRg
    Application.ScreenUpdating = True
End Sub

3. нажмите F5 ключ для запуска кода. В всплывающем Kutools for Excel В диалоговом окне выберите ячейку формулы или несколько ячеек формулы, на основе которых необходимо выделить ячейки, на которые ссылаются, а затем щелкните значок OK кнопка. Смотрите скриншот:

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

Статьи по теме:

• Как сохранить постоянную ссылку на ячейку формулы в Excel?
• Как указать имя вкладки в ячейке в Excel?

Babilich, в модуль листа (правый клик по ярлычку листа — Исходный текст)

Dim prCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not prCell Is Nothing Then
    prCell.Interior.ColorIndex = xlColorIndexNone
    Set prCell = Nothing
  End If
  If ActiveCell.HasFormula Then
    Application.EnableEvents = False
    Set prCell = ActiveCell
    On Error Resume Next
    Set prCell = Union(ActiveCell, ActiveCell.DirectPrecedents)
    prCell.Interior.Color = vbYellow
    Application.EnableEvents = True
  End If
End Sub

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