एक्सेल में एंकर टेक्स्ट से यूआरएल निकालें

Question

मैंने इस धागे के माध्यम से कुछ ऐसा देखा है जो मेरी क्वेरी पर फिट बैठता है लेकिन अधिकांश विषय पास आए लेकिन मेरे लिए विशिष्ट नहीं थे।

मैं एक्सेल में एक लंगर पाठ से URL निकालने की कोशिश कर रहा हूं।

क्या इसके लिए कोई फॉर्मूला है? जब मैं कोशिश करता हूं =GETURLया =HYPERLINKयह अभी भी लंगर पाठ में URL से बंधा होता है।

कोई विचार? मैक्रो समाधान बहुत बेकार हैं इसलिए एक सूत्र मीठा होगा। अन्यथा, मुझ पर मैक्रोज़ बिछाओ।

Comments

कृपया अपने लंगर पाठ का एक उदाहरण दें और यह कैसे लंगर डाले। इसके अलावा, हमें आपके द्वारा उपयोग किया गया फ़ॉर्मूला दिखाएँ ताकि हम सिंटैक्स में कोई त्रुटि होने पर आपकी सहायता कर सकें।

— चार्लीआरबी

यहां VBA की तरह ? VBA में एक फंक्शन बनाएं और एड्रेस को खींचने के लिए उस फंक्शन का उपयोग करें?

— रेस्टाफैरियन

Answer 1

यदि आपके पास एक सेल है जिसमें हाइपरलिंक है और आप "दोस्ताना नाम" के बजाय URL देखना चाहते हैं, तो निम्नलिखित उपयोगकर्ता निर्धारित फ़ंक्शन (UDF) पर विचार करें:

Public Function hyp(r As Range) As String
    hyp = ""
    If r.Hyperlinks.Count > 0 Then
        hyp = r.Hyperlinks(1).Address
        Exit Function
    End If
    If r.HasFormula Then
        rf = r.Formula
        dq = Chr(34)
        If InStr(rf, dq) = 0 Then
        Else
            hyp = Split(r.Formula, dq)(1)
        End If
    End If
End Function

यह UDF सम्मिलित किए गए हाइपरलिंक और = HYPERLINK () कार्यों के साथ काम करता है।

उपयोगकर्ता परिभाषित कार्य (UDF) स्थापित करने और उपयोग करने के लिए बहुत आसान हैं:

1. ALT-F11 VBE विंडो लाता है
2. ALT-I ALT-M एक नया मॉड्यूल खोलता है
3. सामान पेस्ट करें और VBE विंडो बंद करें

यदि आप कार्यपुस्तिका को सहेजते हैं, तो इसके साथ UDF सहेजा जाएगा। यदि आप बाद में 2003 के एक्सेल के संस्करण का उपयोग कर रहे हैं, तो आपको .xlsx के बजाय .xlsm के रूप में फ़ाइल को सहेजना होगा

UDF को हटाने के लिए:

1. ऊपर के रूप में VBE विंडो लाएं
2. कोड साफ़ करें
3. VBE विंडो बंद करें

Excel से UDF का उपयोग करने के लिए:

= Hyp (A1)

सामान्य रूप से मैक्रोज़ के बारे में अधिक जानने के लिए, देखें:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

तथा

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

तथा

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

यूडीएफ पर बारीकियों के लिए

इसके लिए मैक्रोज़ को सक्षम होना चाहिए!