Як виділити всі клітинки, на які посилається формула в Excel?
У цій статті йдеться про виділення всіх комірок, на які посилалася формула в Excel. Будь ласка, дотримуйтесь наведених нижче двох методів, щоб це зробити.
Виділіть усі комірки, на які посилається формула, за допомогою клавіші швидкого доступу
Виділіть усі комірки, на які посилається формула з кодом VBA
Виділіть усі комірки, на які посилається формула, за допомогою клавіші швидкого доступу
У цьому розділі буде рекомендовано скористатися комбінацією клавіш для вибору всіх комірок, на які посилається формула, а потім вручну залити до них колір.
1. Припустимо, що E1 - це комірка формули, і вам потрібно виділити всі комірки, на які вона посилалася. Виберіть клітинку формули E1, а потім натисніть Ctrl + [ (відкрита квадратна дужка) одночасно.
2. Тепер вибрані клітинки, на які посилається ця формула, вкажіть колір заливки, щоб виділити їх. Дивіться знімок екрана:
Виділіть усі комірки, на які посилається формула з кодом VBA
Ви також можете запустити код VBA, щоб виділити всі комірки, на які посилалася формула в Excel.
1. прес інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікно, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код 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 для Excel виберіть діалогове вікно, будь-ласка, виберіть комірку формули або декілька комірок формули, на яких вам потрібно виділити клітинки, на які посилаються, а потім клацніть на OK кнопку. Дивіться знімок екрана:
Тепер усі комірки, на які посилаються, на основі вибраних клітинок формули, відразу виділяються червоним, як показано на знімку екрана.
Статті по темі:
- Як зберегти в Excel константу посилання на клітинку формули?
- Як вказати назву вкладки в комірці в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!