Vi kan enkelt søke Excel Søk og erstatt-funksjonen til å finne ut alle celler som gjelder den enkelte navngitte området. Gjør følgende:
1. Trykk på Ctrl + F-tastene samtidig for å åpne Søk og erstatt dialogboksen
Merk: Du kan også åpne dette Finn og erstatt dialogboksen med å klikke på Home >. Finn & Velg > Finn.
2. I åpnings Finn og erstatt dialogboksen, kan du gjøre som følgende skjermbilde vises:
(1) Skriv inn navnet på visse navngitt område i Søk etter-boksen;
(2) Velg arbeidsbok fra den Innen nedtrekkslisten;
(3) Klikk på Finn alle-knappen
Merk: Dersom I nedtrekkslisten er usynlig, kan du klikke på knappen Alternativer for å utvide søkealternativer <.. br>
Nå vil du se alle celler som inneholder navnet på angitte navngitt område er notering på bunnen av Finn og erstatt dialogboksen. Se skjermbilde:
Merk: Finn og erstatt metoden ikke bare finner ut alle celler ved hjelp av denne bestemte navngitte området, men også finner ut alle celler som dekker med denne navngitt område
<. h4> Finn hvor en bestemt navngitt område brukes med VBA
Denne metoden vil innføre en VBA-makro for å finne ut alle celler som bruker visse navngitt område i Excel. Gjør følgende:
1. Trykk Alt + F11 tastene samtidig for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk på Insert > Modul, og kopier og lim inn følgende kode inn i åpningen modulen vinduet
VBA. Finn hvor en bestemt navngitt område brukes
Sub Find_namedrange_place () Dim XRG Som RangeDim Xcell Som RangeDim xSht Som WorksheetDim xFoundAt Som StringDim xAddress Som StringDim xShName Som StringDim xSearchName Som StringOn Error Resume NextxShName = Application.InputBox ("Vennligst skriv et ark navnet du vil finne celler i:", "Kutools for Excel", Application.ActiveSheet.Name) Sett xSht = Application.Worksheets ( xShName) Set XRG = xSht.Cells.SpecialCells (xlCellTypeFormulas) On Error GoTo 0If Ikke XRG Er Ingenting ThenxSearchName = Application.InputBox ("Vennligst skriv inn navnet på navngitte området:", "Kutools for Excel") Set Xcell = xRg.Find (Hva: = xSearchName, lookin: = xlFormulas, _LookAt: = xlPart, Search: = xlByRows, SearchDirection: = xlNext, _MatchCase: = False, SearchFormat: = False) Hvis ikke Xcell Er Ingenting ThenxAddress = xCell.AddressIf IsPresent (Xcell. Formula, xSearchName) ThenxFoundAt = xCell.AddressEnd Hvis DoSet Xcell = xRg.FindNext (Xcell) Hvis ikke Xcell Er Ingenting ThenIf xCell.Address = xAddress Then Exit DoIf IsPresent (xCell.Formula, xSearchName) ThenIf xFoundAt = "" ThenxFoundAt = Xcell. AddressElsexFoundAt = xFoundAt & "," &Co. xCell.AddressEnd IfEnd IfElseExit DoEnd IfLoopEnd IfIf xFoundAt = "" ThenMsgBox "The Named Range ble ikke funnet", "Kutools for Excel" ElseMsgBox "The Named Range er funnet disse stedene:" & xFoundAt, "Kutools for Excel" End IfOn Error Resume NextxSht.Range (xFoundAt) .SelectEnd IfEnd SubPrivate Funksjon IsPresent (sFormula As String, sName As String) As BooleanDim xPos1 Som LongDim xPos2 Som LongDim xLen Som LongDim jeg Som LongxLen = Len ( sFormula) xPos2 = 1DoxPos1 = InStr (xPos2, sFormula, sName) - 1Hvis xPos1 < 1 Så Avslutt DoIsPresent = IsVaildChar (sFormula, xPos1) xPos2 = xPos1 + Len (sName) + 1Hvis IsPresent ThenIf xPos2 < = xLen ThenIsPresent = IsVaildChar (sFormula, xPos2) End IfEnd IfLoopEnd FunctionPrivate Funksjon IsVaildChar (sFormula As String, Pos As Long ) Som BooleanDim jeg Som LongIsVaildChar = TrueFor jeg = 65 Til 90If UCase (Mid (sFormula, Pos, 1)) = Chr (I) ThenIsVaildChar = FalseExit forskjeftet IfNext IIf IsVaildChar = True ThenIf UCase (Mid (sFormula, Pos, 1)) = Chr (34) ThenIsVaildChar = FalseEnd IfEnd IfIf IsVaildChar = True ThenIf UCase (Mid (sFormula, Pos, 1)) = Chr (95) ThenIsVaildChar = FalseEnd IfEnd IfEnd Funksjon 3. Klikk på Kjør-knappen eller trykk F5-tasten for å kjøre denne VBA .
4. Nå i den første åpningen Kutools for Excel dialogboksen vennligst skriv navnet på regnearket inn i det og klikk på OK-knappen; og deretter i den andre åpningen dialogboksen kan du skrive inn navn på visse navngitt område i det, og klikk på OK-knappen. Se skjermbilder:
5. Nå tredje Kutools for Excel dialogboksen kommer ut og viser celler med bestemte navngitt område som skjermbildet under vises.
Etter å ha klikket på OK-knappen for å lukke denne dialogboksen, disse funnet celler er valgt i den angitte arket samtidig
Merk:. Dette VBA kan bare se for celler som bruker visse navngitt område i ett regneark om gangen
Finn hvor en bestemt navngitt område brukes med. Kutools for Excel
I har du Kutools for Excel installert, kan det erstatte treet Names verktøyet hjelper deg å finne og liste opp alle celler og formler som bruker visse navngitt område i Excel
Kutools for Excel -. Kombinerer Mer enn 120 avanserte funksjoner og verktøy for Microsoft Excel
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
1. Klikk på Kutools > Mer > Erstatt områdenavn for å åpne erstatte treet navn dialogboksen.
2. I åpnings Erstatt treet navn dialogboksen, gå til Navn fanen, og klikk på Base Navn nedtrekkslisten og velge visse navngitte området fra det som skjermbildet under vises:
Nå er alle cellene og tilsvarende formler som bruker visse navngitte området er notering i dialogboksen samtidig.
3. Lukk erstatte treet navn dialogboksen.
Gratis Last ned Kutools for Excel Nå Anmeldelser