پیدا کردن نام های استفاده نشده

Question

ریچارد یک ورک بوک دارد که مدتی است از آن استفاده می کند و نام های زیادی در آن وجود دارد (محدوده های نام گذاری شده، فرمول های نام گذاری شده، و غیره). او از خود می پرسد که آیا راه آسانی برای یافتن نام هایی وجود دارد که اصلاً استفاده نمی شوند، زیرا او دوست دارد از شر آن نام ها خلاص شود.

هیچ راهی داخلی برای خلاص شدن از شر این نام های استفاده نشده وجود ندارد. با این حال، می توانید یک ماکرو ایجاد کنید که این کار را برای شما انجام دهد. این کار به راحتی با استفاده از روش Find انجام می شود تا بفهمیم کدام نام ها دارای ارجاعاتی هستند که می توان آنها را "یافت". اگر مرجع یافت نشد، نام مورد استفاده نیست.

Sub RidOfNames()
    Dim myName As Name
    Dim fdMsg As String

    On Error Resume Next
    fdMsg = ""
    For Each myName In Names
        If Cells.Find(What:=myName.Name, _
          After:=ActiveCell, _
          LookIn:=xlFormulas, _
          LookAt:=xlPart, _
          SearchOrder:=xlByRows, _
          SearchDirection:=xlNext, _
          MatchCase:=False, _
          SearchFormat:=False).Activate = False Then
            fdMsg = fdMsg & myName.Name & vbCr
            ActiveWorkbook.Names(myName.Name).Delete
        End If
    Next myName
    If fdMsg = "" Then
        MsgBox "No unused names found in the workbook"
    Else
        MsgBox "Names Deleted:" & vbCr & fdMsg
    End If
End Sub

ماکرو تمام عناصر مجموعه نام ها را طی می کند و هر نام را جستجو می کند. اگر نام پیدا نشد، نام حذف می شود. هنگامی که ماکرو تکمیل شد، یک کادر پیام نمایش می دهد که نام هایی را که از ورک بوک حذف شده اند لیست می کند.

با این حال، ماکرو RidOfNames مشکلاتی دارد. همه جا را بررسی نمی کند که ممکن است از یک نام استفاده شود. به عنوان مثال، تعیین نمی کند که آیا نام ها در یک ماکرو ارجاع داده می شوند یا در کاربرگ های دیگر (از جمله کاربرگ های مخفی) در ورک بوک شما استفاده می شوند. همچنین بررسی نمی کند که آیا یک نام خاص در یک قانون قالب بندی شرطی یا در نمودارها، لیست های کشویی و سایر اشیاء استفاده می شود. حتی با وجود اشکالات، RidOfNames می تواند در کتاب های کار ساده ای که ماکروهای دیگری (به جز این ماکرو) ندارند و بیشتر داده های آن ها را در یک کاربرگ واحد دارند، معجزه کند.

اگر ترجیح می دهید ماکرو خود را ایجاد نکنید، می توانید از یک افزونه رایگان توسط Jan Karel Pieterse استفاده کنید. افزونه ای که Name Manager نام دارد، به شما امکان می دهد (حدس بزنید چه؟) نام ها را بهتر از آنچه با Excel بومی انجام دهید مدیریت کنید. یکی از عملکردهایی که ارائه می دهد، امکان خلاص شدن از شر نام هایی است که دیگر مورد نیاز نیستند. می توانید افزونه را در اینجا پیدا کنید:

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