Finde Ubrugte Navne

Richard har en projektmappe, han har været brugt et stykke tid, og det har en hel del navne i det (navngivne områder, navngivne formler, etc.). Han undrer sig, hvis der er en nem måde at finde navne, der ikke anvendes på alle, da han gerne vil slippe af med disse navne.

Der er ingen indbygget måde at slippe af med disse uudnyttede navne. Du kan dog oprette en makro, der vil gøre det trick for dig. Dette gøres lettest ved at bruge Find metode til at regne ud, hvilke navne har referencer, der kan "fundet". Hvis der ikke kan findes referencen, derefter navnet ikke er i brug.

Sub RidOfNames ()
Dim mitNavn Som navn
Dim fdMsg As String

Ved fejl Resume Next
fdMsg = ""
For hver myname In Navne
Hvis Cells.Find (Hvad: = myName.Name, _
Efter: = ActiveCell, _
Lookin: = xlFormulas, _
LookAt: = xlPart, _
SearchOrder: = xlByRows, _
SearchDirection: = xlNext, _
MatchCase: = False, _
SearchFormat: = False) .Activate = False Derefter
fdMsg = fdMsg & myName.Name & vbCr
ActiveWorkbook.Names (myName.Name) .Delete
End hvis
Næste mitNavn
Hvis fdMsg = "" Så
MsgBox "Ingen ubrugte navne fundet i projektmappen"
Andet
MsgBox "navne slettet:" & vbCr & fdMsg
End hvis
End Sub

De makro trin gennem alle elementer i Navne kollektionen og gør en søgning efter hvert navn. Hvis der ikke kan findes navn, så navnet er slettet. Når makroen er fuldført, vises en meddelelsesboks, der viser de navne, der blev fjernet fra projektmappen.

Hvis du hellere vil ikke oprette din egen makro, kan du vælge at bruge en gratis add-in af Jan Karel Pieterse. Den add-in, kaldet Name Manager giver dig mulighed for at (gæt hvad?) Administrere navne bedre end du kan gøre med indfødte Excel. En af de funktioner, den tilbyder, er evnen til at slippe af navne, der ikke længere er brug for. Du kan finde tilføjelsesprogrammet her:

http://www.jkp-ads.com/OfficeMarketPlaceNM-EN.asp

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (3312) gælder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til båndet grænseflade Excel (Excel 2007 og nyere) her: Finde Ubrugte Navne.


© 2020 Zajacperrone.com | Contact us: webmaster# zajacperrone.com