डब्लूबीके में हटाए गए नाम अभी भी मौजूद हैं और उन स्थानों को संदर्भित करें जो मौजूद नहीं हैं, धीमे एक्सेल

Question

रिफार्टर संपत्ति के लिए वीबीए सहायता में, वे सभी नामों को एक डब्लूकेबी में सूचीबद्ध करने का उदाहरण देते हैं (बाहर निकलते हैं ताकि आप इसे चला सकें जैसा है)

Sub showNames()'from VBA Help for "RefersTo" 
    Dim newSheet As Worksheet 
    Set newSheet = Worksheets.Add 
    Dim i As Long, nm As Name 
    i = 1 
    For Each nm In ActiveWorkbook.Names 
    newSheet.Cells(i, 1).Value = nm.Name 
    newSheet.Cells(i, 2).Value = "'" & nm.RefersTo 
    i = i + 1 
    Next 
    newSheet.Columns("A:B").AutoFit 
End Sub 

जब मैं इसे अपने वर्तमान प्रोजेक्ट पर चलाता हूं, तो यह कई नाम बदल जाता है जो मैंने सोचा था कि लंबे समय तक चले गए थे। लेकिन यहां वे अभी भी आसपास लटक रहे हैं और उन जगहों का जिक्र कर रहे हैं जो अब मौजूद नहीं हैं। मुझे लगता है कि यह मेरी प्रणाली को धीमा कर रहा है और मुझे उन नामों से छुटकारा पाना अच्छा लगेगा, लेकिन वे परिभाषित नाम विंडो में दिखाई नहीं देते हैं, इसलिए मैं उन्हें कहां पा सकता हूं?

संपादित करें: यह उल्लेख करने के लिए कि लिंक आइटम इस डब्लूबीके के लिए तैयार है।

Answer 1

- अपडेट किया गया उत्तर -

तुम्हें पता है के बाद से अमान्य श्रेणियों के नाम लेकिन उन्हें नाम प्रबंधक में नहीं देख सकते हैं, आप उन्हें VBA तत्काल विंडो से मैन्युअल रूप से हटाने की कोशिश कर सकते हैं। नाम आप GrPix!patternListRange दिया एक वर्कशीट नाम इंगित करता है ताकि आप तत्काल खिड़की

---

मूल उत्तर में

ActiveWorkbook.Names("GrPix!patternListRange").Delete 

या

Sheets("GrPix").Names("patternListRange").Delete 

टाइप करके उसे हटाने के लिए सक्षम होना चाहिए

क्या आपके पास है आपने कोड के माध्यम से अमान्य नाम हटाने की कोशिश की? अर्थात

For Each nm In ActiveWorkbook.Names 
    If InStr(nm.RefersTo, "OldFileName.xls") > 0 Then 
     nm.Delete 
    End If 
Next nm 

Answer 2

Update

विकल्प 1
एक manual method R1C1 का उपयोग कर भ्रष्ट नामों को हटाने के लिए (मैं JKP एक और मंच वह ऐसा करने के लिए कोड था पर बताते हुए याद कर सकते हैं, लेकिन वह इसे मुफ्त में प्रदान करने के लिए तैयार नहीं था)

1. उपकरण, विकल्प का चयन करें और सामान्य टैब पर क्लिक करें।
2. "आर 1 सी 1 संदर्भ शैली" के बगल में स्थित चेक बॉक्स पर क्लिक करें, ताकि आप वर्तमान सेटिंग बदल सकें।
3. ठीक दबाएं।
4. एक्सेल आपको किसी भी नाम का नाम बदलने के लिए प्रेरित करेगा (सभी खुली कार्यपुस्तिकाओं में!) जिसमें अवैध वर्ण हैं।
5. नए नामित नामों को हटाने के लिए सम्मिलित करें, नाम, परिभाषित करें का चयन करें।
6. R1C1 संदर्भ शैली को टूल, विकल्प, सामान्य का उपयोग करने के तरीके को वापस सेट करें।

विकल्प 2
क्रिस Neilsen Any chance to delete programatically corrupt ranged names (with spaces) in Excel (2007/2010)

पर इस पोस्ट लेकिन, यहाँ एक संभावित विकल्प है: एक .xlsm आप एक संवाद अवैध नामों के बारे में शिकायत मिलना चाहिए के रूप में अपनी कार्यपुस्तिका SaveAs, साथ एक विकल्प नाम बदलने के लिए और सभी के लिए ठीक है। एक बार सहेजे जाने के बाद, फ़ाइल को बंद करें और दोबारा खोलें, एक के रूप में सहेजें।xls और आप अच्छा होना चाहिए जाने के लिए

Initial Post
डाउनलोड Name Manager जो जनवरी कैरेल Pieterse और चार्ल्स विलियम्स द्वारा ऐड प्रबंध नाम

के लिए बाहर खड़े है

यह नाम संभाल लेंगे कि

• अब श्रेणियों को हटा दिया गया है (आपकी समस्या),
• अन्य कार्यपुस्तिकाओं से लिंक,
• अब भ्रष्ट हैं

साथ ही यह स्थानीय पत्रक के नाम करने के लिए वैश्विक नाम परिवर्तित कर देंगे, और इसके विपरीत और इतने पर

Answer 3

यहाँ दो और समाधान है कि इस विषय पर खोज कर दूसरों के लिए काम कर सकते हैं हैं, लेकिन इन अभी भी अपने स्वयं के विशेष वर्कबुक को ठीक नहीं है।

मैं अभी भी देख रहा हूं।

यह हारून रक्त से है और पता चलता R1C1 विधि brettdj ने उल्लेख किया:

Sub RemoveDemonLinks() 
    Dim wbBook As Workbook 
    Dim nName As Name 
    Dim i  As Long 

    Set wbBook = ActiveWorkbook 

    i = 0 
    If wbBook.Names.Count > 0 Then 
     With Application 
     .ReferenceStyle = xlR1C1 
     .ReferenceStyle = xlA1 
     End With 

    For Each nName In wbBook.Name 
     If InStr(nName.RefersTo, "#REF!") > 0 Then nName.Delete 
     i = i + 1 
    Next nName 

    If i > 0 Then MsgBox i & " corrupted names was deleted from " & wbBook.Name 
    End If 
End Sub 

यह वह जगह है से एमएस सहायता

' Module to remove all hidden names on active workbook 
    Sub Remove_Hidden_Names() 

    ' Dimension variables. 
    Dim xName As Variant 
    Dim Result As Variant 
    Dim Vis As Variant 

    ' Loop once for each name in the workbook. 
    For Each xName In ActiveWorkbook.Names 

     'If a name is not visible (it is hidden)... 
     If xName.Visible = True Then 
      Vis = "Visible" 
     Else 
      Vis = "Hidden" 
     End If 

     ' ...ask whether or not to delete the name. 
     Result = MsgBox(prompt:="Delete " & Vis & " Name " & _ 
      Chr(10) & xName.Name & "?" & Chr(10) & _ 
      "Which refers to: " & Chr(10) & xName.RefersTo, _ 
      Buttons:=vbYesNo) 

     ' If the result is true, then delete the name. 
     If Result = vbYes Then xName.Delete 

     ' Loop to the next name. 
    Next xName 
End Sub