Hoe markeer je alle cellen waarnaar wordt verwezen door een formule in Excel?
Dit artikel heeft het over het markeren van alle cellen waarnaar werd verwezen door een formule in Excel. Volg de onderstaande twee methoden om het voor elkaar te krijgen.
Markeer alle cellen waarnaar wordt verwezen door een formule met de sneltoets
Markeer alle cellen waarnaar wordt verwezen door een formule met VBA-code
Markeer alle cellen waarnaar wordt verwezen door een formule met de sneltoets
In dit gedeelte wordt u aangeraden de sneltoets te gebruiken om alle cellen te selecteren waarnaar door een formule wordt verwezen, en deze vervolgens handmatig met kleur in te vullen.
1. Stel dat E1 een formulecel is en dat u alle cellen moet markeren waarnaar wordt verwezen. Selecteer de formulecel E1 en druk op Ctrl + [ (de open vierkante haakjes) toetsen tegelijkertijd.
2. Nu cellen waarnaar wordt verwezen door deze formule zijn geselecteerd, specificeert u een vulkleur om ze te markeren. Zie screenshot:
Markeer alle cellen waarnaar wordt verwezen door een formule met VBA-code
U kunt ook VBA-code uitvoeren om alle cellen te markeren waarnaar wordt verwezen door een formule in Excel.
1. druk op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, klik dan Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.
VBA-code: markeer alle cellen waarnaar wordt verwezen door een formule in 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. druk de F5 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, selecteer een formulecel of meerdere formulecellen waarop u cellen waarnaar wordt verwezen wilt markeren op basis van, en klik vervolgens op de OK knop. Zie screenshot:
Nu worden alle cellen waarnaar wordt verwezen op basis van de geselecteerde formulecel (len) onmiddellijk rood gemarkeerd zoals onderstaand screenshot.
Gerelateerde artikelen:
- Hoe de formulecelverwijzing constant te houden in Excel?
- Hoe verwijs ik naar de naam van het tabblad in de cel in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!