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

В этой статье говорится о выделении всех ячеек, на которые ссылается формула в 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

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

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

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)))

Совет

:

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

Формулы

в группе

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

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

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

.

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

Главная

, в группе

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

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

Формулы

.

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

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

необходимо:

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