Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako poudariti vse celice, na katere se sklicuje formula v Excelu?

Ta članek govori o poudarjanju vseh celic, na katere se sklicuje formula v Excelu. Prosimo, upoštevajte spodnja dva načina, da to storite.

Označite vse celice, na katere se sklicuje formula s tipko za bližnjico

Označite vse celice, na katere se sklicuje formula s kodo VBA


puščica modra desno mehurčekOznačite vse celice, na katere se sklicuje formula s tipko za bližnjico


Ta razdelek vam priporoča, da uporabite Bližnjično tipko, da izberete vse celice, na katere je bila sklicana formula, in jih ročno izpolnite z barvo.

1. Če mislite, da je E1 formula celica, morate poudariti vse celice, na katere se je sklicevalo. Prosimo, izberite celoto formule E1, nato pritisnite Ctrl + [ (odprtokodni nosilec) istočasno.

2. Zdaj so izbrane celice, na katere se sklicuje ta formula, prosimo, podajte barvo polnila, da jih označite. Prikaz slike:


puščica modra desno mehurčekOznačite vse celice, na katere se sklicuje formula s kodo VBA

Prav tako lahko zaženete kodo VBA, da označite vse celice, na katere se sklicuje formula v Excelu.

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo VBA v okno Modul.

VBA koda: Označite vse celice, na katere se sklicuje formula v Excelu

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. Pritisnite F5 ključ za zagon kode. Pri pojavu Kutools za Excel pogovorno okno, izberite celico s formulo ali več celic, ki jih morate označiti na podlagi referenčnih celic in nato kliknite OK gumb. Prikaz slike:

Zdaj so vse referenčne celice, ki temeljijo na izbrani celici, označene z rdečo takoj, kot je prikazano spodaj.


puščica modra desno mehurčekSorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Thomas · 1 years ago
    That was really helpful. One additional question. Could someone tell me how to adjust the code, such that ONLY the blank referenced cells are highlighted and not all of them?
  • To post as a guest, your comment is unpublished.
    Bullz · 1 years ago
    That was really helpful. One additional question. Could someone tell me how to adjust the code, such that ONLY the blank referenced cells are highlighted and not all of them?
  • To post as a guest, your comment is unpublished.
    Donald · 1 years ago
    Really liked it! But just one thing -- colon should be taken care of separately since it refers to a range.