एक्सेल हाइपरलिंक द्रव्यमान अद्यतन

Question

मेरे पास हजारों पंक्तियों के साथ एक स्प्रेडशीट है। प्रत्येक पंक्ति में पथ के साथ एक हाइपरलिंक होता है।

पथ मान्य नहीं है, हालांकि सही मूल्य के साथ इसके पहले भाग को प्रतिस्थापित करके आसानी से ठीक किया जा सकता है।

Example: current hyperlink: F:\Help\index.html 

Needed: P:\SystemHelp\index.html 

समस्या यह है कि मानक खोज/प्रतिस्थापन हाइपरलिंक्स की सामग्री को "देखने" नहीं देता है।

मैक्रो लिखने का एकमात्र तरीका है या ऐसा करने का कोई और तरीका है?

Answer 1

मै मैक्रो के अलावा किसी अन्य तरीके से नहीं जानता। लेकिन ऐसा करने के लिए किसी को already wrote one जैसा दिखता है।

Answer 2

अरे cnx.org, प्रतिस्थापन फ़ंक्शन को पुन: पेश करने का तरीका।

Sub FindReplaceHLinks(sFind As String, sReplace As String, _ 
    Optional lStart As Long = 1, Optional lCount As Long = -1) 

    Dim rCell As Range 
    Dim hl As Hyperlink 

    For Each rCell In ActiveSheet.UsedRange.Cells 
     If rCell.Hyperlinks.Count > 0 Then 
      For Each hl In rCell.Hyperlinks 
       hl.Address = Replace(hl.Address, sFind, sReplace, lStart, lCount, vbTextCompare) 
      Next hl 
     End If 
    Next rCell 
End Sub 

Sub Doit() 

    FindReplaceHLinks "F:\help\", "F:\SystemHelp\" 

End Sub 

Answer 3

एक और तरीका है 'खोज करने के लिए तो यह सभी पाठ है चरित्र, और की जगह और फिर के माध्यम से जाने के लिए और हटाने' एक डालने के लिए वर्ण है।

Answer 4

एक मैक्रो

चेतावनी के लिए कोई ज़रूरत नहीं: रेखांकन आदि जैसे कुछ सामान गुम हो सकता है लेकिन सूत्रों और स्वरूपों को संरक्षित किया जा लगते हैं।

• एक्सएमएल फैले शीट

• ओपन नोटपैड

  साथ फ़ाइल

• "गलत पाठ स्ट्रिंग" से "सभी बदलें" के रूप में दस्तावेज़ सहेजें "सही पाठ स्ट्रिंग"

• को

• एक्सेल

012 के साथ फ़ाइल खोलें

• मूल स्वरूप में सहेजें दस्तावेज़