Как да маркирате всички клетки, посочени от формула в 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 за Excel в диалоговия прозорец, моля, изберете клетка с формула или няколко клетки с формула, въз основа на които трябва да маркирате посочените клетки, и след това щракнете върху OK бутон. Вижте екранна снимка:
Сега всички референтни клетки въз основа на избраната(ите) клетка(и) с формула се маркират веднага в червено, както е показано на екранната снимка по-долу.
Свързани статии:
- Как да поддържам препратката към клетка с формула постоянна в Excel?
- Как да препратка към име на раздел в клетка в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!