मैं कैसे एक्सेल में सक्रिय हाइपरलिंक्स में टेक्स्ट URL के कॉलम को परिवर्तित कर सकता हूं?

Question

मेरे पास एक्सेल में एक कॉलम है, जिसमें मेरे पास सभी वेबसाइट यूआरएल मान हैं। मेरा सवाल यह है कि मैं url मानों को सक्रिय लिंक में बदलना चाहता हूं। सभी स्तंभों में अलग-अलग यूआरएल के साथ उस स्तंभ में लगभग 200 प्रविष्टियाँ हैं। क्या कोई तरीका है जिससे मैं मैक्रो लिखे बिना सभी कोशिकाओं में सक्रिय हाइपरलिंक बना सकता हूं।

Answer 1

यदि आप एक मैक्रो नहीं बनाना चाहते हैं और जब तक आप एक अतिरिक्त कॉलम को बुरा नहीं मानते हैं, तो बस अपने कॉलम के साथ एक नया कॉलम बनाएं।

सूत्र में नए कॉलम प्रकार में =HYPERLINK(A1)(जो भी सेल आप में रुचि रखते हैं उसके साथ A1 की जगह)। फिर बाकी 200 प्रविष्टियों के फॉर्मूले को कॉपी करें।

नोट: यह समाधान कार्य नहीं करता है यदि सेल A1 में 255 वर्णों से अधिक लंबा स्ट्रिंग है। इसके परिणामस्वरूप #VALUE!त्रुटि होती है

Comments

यदि मेरे कॉलम A में 200 लिंक मान हैं, तो क्या यह एक सूत्र लिखना संभव है जो 200 मानों को हाइपरलिंक करेगा और एक नया कॉलम बनाने के बजाय इसे कॉलम A में फिर से लिखेगा?

— डेवलपर

अति उत्कृष्ट! सबसे अच्छी बात यह है, यह कदम इतना सरल है कि मैं एक लेपर्स के लिए सीएसवी फाइलें पास कर सकता हूं और वह इससे आसानी से यूआरएल जनरेट कर सकता है।

— कार्डिन ली जेएच

इसे बनाने के लिए यह एक कॉलम है जिसे आप रखना चाहते हैं जो भी कॉलम में हाइपरलिंक कॉलम और "पेस्ट वैल्यू" को कॉपी करें।

— माइक

इसका उत्तर स्वीकार किया जाना चाहिए, क्योंकि यह अधिकांश उपयोग के मामलों को हल करता है।

— जय

कच्चे कॉलम को छिपाएं जो हाइपरलिंक नहीं है

— RickAndMSFT

Answer 2

मैक्रो को यहां बनाएं:

Microsoft Excel में टूल्स मेनू पर, मैक्रो को इंगित करें, और उसके बाद Visual Basic Editor पर क्लिक करें। सम्मिलित करें मेनू पर, मॉड्यूल पर क्लिक करें। इस कोड को मॉड्यूल की कोड विंडो में कॉपी और पेस्ट करें। यह स्वचालित रूप से खुद को हाइपरएड नाम देगा।

Sub HyperAdd()

    'Converts each text hyperlink selected into a working hyperlink

    For Each xCell In Selection
        ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
    Next xCell

End Sub

जब आप अपना मैक्रो चिपकाना समाप्त कर लें, तो फ़ाइल मेनू पर Microsoft Excel में बंद करें और वापस लौटें।

फिर आवश्यक कोशिकाओं का चयन करें और मैक्रो पर क्लिक करें और रन पर क्लिक करें।

नोट पूरे कॉलम का चयन न करें! केवल उन कोशिकाओं का चयन करें जिन्हें आप क्लिक करने योग्य लिंक में बदलना चाहते हैं अन्यथा आप एक लूपिंग लूप में समाप्त हो जाएंगे और एक्सेल को पुनरारंभ करना होगा! किया हुआ!

Comments

यदि आप स्पष्ट विकल्प का उपयोग कर रहे हैं तो Dim xCell As Range को जोड़ें। +1 एक समाधान के लिए जो सेल को बदलता है (जैसा पूछा गया है) और ऐसा करने वाले कोड प्रदान करना।

— प्रसेगास

यह मेरे लिए अच्छी तरह से काम करता है, मुझे एक फैल शीट में लगभग 50,000 लिंक दिए गए थे, जिन्हें अपडेट करने की जरूरत थी और इसे चांस या एक्सेल में क्रैश करना होगा।

— 22

हाइपरलिंक्स में ईमेल पते बनाने के Address:=xCell.Formulaलिए,Address:="mailto:" & xCell.Formula

— डैनी बेकेट

इसके अलावा, http://जिन URL के साथ शुरुआत नहीं करनी है उन्हें जोड़ा जाना चाहिए (उपरोक्त परिवर्तन का उपयोग करें, लेकिन इसके mailto:साथ स्थानापन्न करें http://। अन्यथा हाइपरलिंक काम नहीं करते हैं।

— डैनी बेकेट

बहुत अच्छा काम करता है। FYI करें Excel 2016 में प्रति वर्कशीट में 66,530 हाइपरलिंक्स की सीमा है, इसलिए यदि आप इससे अधिक हैं तो अंतिम रन-टाइम त्रुटि की अपेक्षा करें। support.office.com/en-us/article/…

— क्रिस्टोफर ओ'ब्रायन

Answer 3

यहाँ एक तरीका है जो मैंने पाया। मैं एक्सेल 2011 का उपयोग कर एक मैक पर हूँ। यदि कॉलम बी में आपके द्वारा हाइपरलिंक होने के लिए पाठ मान हैं, तो इस सूत्र को सेल C1 (या D1 या जब तक यह मुफ़्त कॉलम है) में =HYPERLINK(B1,B1) डालें : यह एक हाइपरलिंक सम्मिलित करेगा लिंक पाठ के रूप में स्थान और लिंक पाठ के रूप में "मैत्रीपूर्ण नाम"। यदि आपके पास एक और कॉलम है जिसमें प्रत्येक लिंक के लिए एक अनुकूल नाम है, तो आप उसका भी उपयोग कर सकते हैं। यदि आप इसे देखना नहीं चाहते थे, तो आप पाठ कॉलम छिपा सकते हैं।

यदि आपके पास किसी चीज़ की आईडी की सूची है, और यूआरएल सभी थे http://website.com/folder/ID, जैसे:

A1  | B1
101 | http://website.com/folder/101
102 | http://website.com/folder/102
103 | http://website.com/folder/103
104 | http://website.com/folder/104

आप कुछ का उपयोग कर सकते हैं =HYPERLINK("http://website.com/folder/"&A1,A1)और आपको यूआरएल की सूची की आवश्यकता नहीं होगी। यह मेरी स्थिति थी और मैंने अच्छी तरह से काम किया।

इस पोस्ट के अनुसार: http://excelhints.com/2007/06/12/hyperlink-formula-in-excel/ यह तरीका एक्सेल 2007 में भी काम करेगा।

Comments

विंडोज, एक्सेल 2013 में काम करता है और एक अतिरिक्त कॉलम के लिए बढ़िया विकल्प है।

— मदिसिबियो

FYI करें, ओपन ऑफ़िस के लिए उपरोक्त ने एक त्रुटि दी, लेकिन ऐसा लगता है कि = HYPERLINK (C1) काम करता है यदि केवल एक पैरामीटर दिया जाए

— tonypdmtr

Answer 4

ठीक है, यहाँ एक hokey समाधान है, लेकिन मैं अभी यह पता नहीं लगा सकता कि एक्सेल को थोक में हाइपरलिंक के रूप में URL के एक कॉलम का मूल्यांकन कैसे करें।

1. एक सूत्र बनाएँ, ="=hyperlink(""" & A1 & """)"
2. नीचे धकेलना, नीचे खीचना
3. नए सूत्र स्तंभ की प्रतिलिपि बनाएँ
4. केवल मूल कॉलम पर विशेष मूल्य चिपकाएँ
5. कॉलम को हाइलाइट करें, क्लिक करें Ctrl- H(बदलने के लिए), खोजने और बदलने के =साथ =(किसी तरह कोशिकाओं का पुनर्मूल्यांकन करने के लिए मजबूर करता है)।
6. कोशिकाओं को अब हाइपरलिंक के रूप में क्लिक करने योग्य होना चाहिए। यदि आप नीली / रेखांकित शैली चाहते हैं, तो बस सभी कक्षों को हाइलाइट करें और हाइपरलिंक शैली चुनें।

हाइपरलिंक शैली अकेले क्लिक करने योग्य लिंक में परिवर्तित नहीं होगी, और "इन्सर्ट हाइपरलिंक" संवाद पाठ का उपयोग बल्क में कोशिकाओं के एक समूह के पते के रूप में नहीं कर सकता है। उस के अलावा, F2और Enterसभी कोशिकाओं के माध्यम से यह करना होगा, लेकिन यह बहुत कोशिकाओं के लिए थकाऊ है।

Comments

बस करो = (HYPERLINK (संकेत (पता) (ROW), COLUMN () + 1)), "ड्रेस" और ROW ()) यह आसान है

— निक टर्नर

सहमत, यह सबसे अच्छा जवाब है जिसे 2 कॉलम बनाए रखने की आवश्यकता नहीं है।

— मैट

+1 बदलें '=' ​​-> '=' के लिए। जो मैं खोज रहा हूं। धन्यवाद।

— डेवलपर

Answer 5

बल्कि छोटी सूचियों के लिए बहुत आसान तरीका:

1. उस बॉक्स पर डबल क्लिक करें जहां यूआरएल है
2. दर्ज

आपका लिंक है;)

Comments

मैं एक सेल को संपादित करने के लिए F2 का उपयोग करता हूं, फिर अपनी सूची को जल्दी से चलाने के लिए बार-बार दर्ज करता हूं। सरल। धन्यवाद!

— ब्रायन ऐश

यह प्लस F2 के बारे में टिप्पणी मुझे सिर्फ एक मिनट में लगभग 160 हाइपरलिंक के कॉलम में मिला। तो हाँ, यह तरीका है अगर स्तंभ पर्याप्त रूप से छोटा है।

— ट्रेवर ब्राउन

मुझे नहीं लगता कि इसे बदलने के लिए सैकड़ों कोशिकाओं वाले किसी व्यक्ति का समाधान हो सकता है।

— Ma3x

मेरी 287,000 पंक्तियाँ हैं। रोना।

— thejohnbackes

Answer 6

यदि हाइपरलिंक्स के साथ एक अतिरिक्त कॉलम जोड़ना एक विकल्प नहीं है, तो अपने हाइपरलिंक को घेरने के लिए =hyperlink("और ")प्राप्त करने के लिए बाहरी संपादक का उपयोग करना विकल्प है।=hyperlink("originalCellContent")

यदि आपके पास नोटपैड ++ है, तो यह एक नुस्खा है जिसका उपयोग आप इस ऑपरेशन को स्वचालित रूप से करने के लिए कर सकते हैं:

• पते के कॉलम को नोटपैड ++ में कॉपी करें
• रखते हुए ALT- SHIFTदबाया, अपने कर्सर को ऊपरी बाएँ कोने से नीचे बाएँ कोने तक बढ़ाया और टाइप किया =hyperlink("। यह =hyperlink("प्रत्येक प्रविष्टि की शुरुआत में जोड़ता है ।
• "बदलें" मेनू ( Ctrl- H) खोलें , नियमित अभिव्यक्ति ( ALT- G) को सक्रिय करें , और बदलें $(पंक्ति के अंत) के साथ "\)। यह \प्रत्येक पंक्ति के अंत में एक बंद उद्धरण और एक बंद कोष्ठक (जिसमें नियमित भाव सक्रिय होने पर बच निकलने की आवश्यकता है) को जोड़ता है ।
• Excel में डेटा वापस पेस्ट करें। व्यवहार में, केवल डेटा की प्रतिलिपि बनाएँ और उस स्तंभ के पहले सेल का चयन करें जहाँ आप डेटा को समाप्त करना चाहते हैं।

Comments

बहुत बढ़िया जवाब। यदि आप कोई अतिरिक्त कॉलम नहीं चाहते हैं तो यह एकमात्र तरीका है। समाधान का उपयोग किसी भी प्रकार के संपादक या प्रोग्रामिंग भाषा के लिए किया जा सकता है (सिर्फ नोटपैड ++ नहीं)। Excel 2010 में यह क्लिक करने योग्य लिंक बनाता है, लेकिन मुझे वास्तव में उन्हें लिंक (यानी नीला रेखांकित) की तरह दिखने के लिए "हाइपरलिंक स्वरूपण शैली" को मैन्युअल रूप से लागू करना था।

— बेतुका

नोट: इसके लिए नोटपैड ++ की आवश्यकता नहीं है ... केवल स्पष्टता के लिए, आप किसी भी पाठ संपादक के साथ ऐसा कर सकते हैं। चाल बस के साथ प्रत्येक पंक्ति को लपेटने के =hyperlink("__linecontentgoeshere__")लिए है ... उन लोगों के लिए जो नोटपैड ++ के उल्लेख से गुमराह हो सकते हैं

— dreftymac

@dreftymac यह कैसे यह करने के लिए की एक नुस्खा देता है लगभग स्वचालित रूप से लाइन द्वारा संपादन लाइन नहीं। यह नोटपैड ++ क्षमता को कई लाइनों पर कर्सर का विस्तार करने और नियमित अभिव्यक्तियों के समर्थन का लाभ देता है; अन्य संपादकों के समान कार्य हो सकते हैं। मैं अपने उत्तर की शुरुआत में स्पष्ट कर रहा हूं कि इसका इच्छित परिणाम क्या है, जिससे गलतफहमी से छुटकारा मिल जाए।

— एंटोनियो

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

— dreftymac

आप एक्सेल में फार्मूला भी बना सकते हैं ="=HYPERLINK("""&A1&""")"(मान लें कि URL A1 में है)। फिर परिणाम को नोटपैड पर कॉपी करें और एक्सेल पर वापस जाएं (बेहतर तरीका हो सकता है)। अब आपके पास काम करने वाले हाइपरलिंक हैं - आप ब्लू अंडरलाइनेड लुक पाने के लिए स्टाइल्स पैनल से हाइपरलिंक स्टाइल लगा सकते हैं। यदि आपके पास स्तंभ B में लिंक लेबल है, तो आप इस सूत्र का उपयोग कर सकते हैं ="=HYPERLINK("""&A1&""";"""&B1&""")":।

— जोनास जानिक 12

Answer 7

हाइपरलिंक फ़ंक्शन का उपयोग करके यह विधि मेरे लिए काम करती है:

=HYPERLINK("http://"&B10,B10)

B10सेल URL के पाठ संस्करण में कहां है (इस उदाहरण में)।

Comments

= HYPERLINK ("http: //" और B10, B10) ने मेरे Excel 2013 में काम नहीं किया, हालांकि = HYPERLINK ("http: //" और B10) DID काम करते हैं।

— एबिसन'

Answer 8

विंडोज पर एक्सेल 2007 के साथ, मैंने इन चरणों को सरलतम पाया;

1. गैर-सक्रिय URL वाले कक्षों का चयन करें
2. प्रतिलिपि
3. हाइपरलिंक के रूप में चिपकाएँ

Comments

बाद के संस्करण में (मैं कार्यालय 2011 का उपयोग कर रहा हूं), यह काम नहीं कर रहा है - मुझे सिर्फ एक डेस्कटॉप फ़ाइल (यह एक) के लिए हाइपरलिंक मिलता है, सेल में दिखाए गए यूआरएल पर नहीं। उदा। फ़ाइल: // लोकलहोस्ट / यूजर्स / xxxx / डेस्कटॉप / ब्लाहबल्लाह फाइल Name.xlsx - Sheet1! A2

— Dannid

Answer 9

मैंने चौंकते हुए एक्सेल को स्वचालित रूप से ऐसा नहीं किया इसलिए यहां मेरा समाधान है मुझे आशा है कि दूसरों के लिए उपयोगी होगा,

1. पूरे कॉलम को क्लिपबोर्ड पर कॉपी करें
2. इसे अपने क्रोम या फ़ायरफ़ॉक्स पर खोलें

data:text/html,<button onclick="document.write(document.body.querySelector('textarea').value.split('\n').map(x => '<a href=\'' + x + '\'>' + x + '</a>').join('<br>'))">Linkify</button><br><textarea></textarea>

3. उस पृष्ठ पर कॉलम को चिपकाएं जिसे आपने ब्राउज़र पर खोला है और "लिंक करें" दबाएं
4. परिणाम को टैब से एक्सेल पर कॉलम में कॉपी करें

चरण दो के बजाय, आप नीचे दिए गए पृष्ठ का उपयोग कर सकते हैं, पहले "रन कोड स्निपेट" पर क्लिक करें और फिर उस पर कॉलम पेस्ट करें

<button onclick="document.write(document.body.querySelector('textarea').value.split('\n').map(x => '<a href=\'' + x + '\'>' + x + '</a>').join('<br>'))">Linkify</button><br><textarea></textarea>

Answer 10

मेरे लिए मैंने सिर्फ उस पूरे कॉलम को कॉपी किया, जिसमें टेक्स्ट फॉर्मेट में URLs एक और एप्लिकेशन (कहते हैं कि एवरनोट) में हैं, और जब उन्हें वहां चिपकाया गया तो वे लिंक बन गए, और फिर मैंने उन्हें सिर्फ एक्सेल में कॉपी किया।

यहां केवल एक चीज है जो आपको यह सुनिश्चित करने की आवश्यकता है कि आप जिस डेटा को बाकी कॉलमों के साथ कॉपी करते हैं।

Answer 11

इसे इस्तेमाल करे:

= HYPERLINK ("mailto:" और A1, A1)

A1 को अपने ईमेल एड्रेस सेल के टेक्स्ट से बदलें।

Answer 12

मैंने पाया कि यदि हाइपरलिंक में स्थानीय स्थानों से जुड़ा हुआ नहीं है तो यहां किसी भी तरीके ने काम नहीं किया है।

मैं स्क्रिप्ट को मूर्ख बनाना चाहता था क्योंकि उपयोगकर्ता इसे स्वयं बनाए नहीं रख पाएंगे और मैं उपलब्ध नहीं रहूंगा।

यह केवल एक चयनित सीमा में कोशिकाओं पर चलेगा, यदि उनमें कोई बिंदु और रिक्त स्थान न हों। यह केवल 10,000 कोशिकाओं तक चलेगा।

Sub HyperAdd()
Dim CellsWithSpaces As String
    'Converts each text hyperlink selected into a working hyperlink
    Application.ScreenUpdating = False
    Dim NotPresent As Integer
    NotPresent = 0

    For Each xCell In Selection
        xCell.Formula = Trim(xCell.Formula)
        If xCell.Formula = "" Or InStr(xCell.Formula, ".") = NotPresent Then
        'Do nothing if the cell is blank or contains no dots
        Else
            If InStr(xCell.Formula, " ") <> 0 Then
                CellsWithSpaces = CellsWithSpaces & ", " & Replace(xCell.Address, "$", "")
                 GoTo Nextxcell
            End If

            If InStr(xCell.Formula, "http") <> 0 Then
                Hyperstring = Trim(xCell.Formula)
            Else
                Hyperstring = "http://" & Trim(xCell.Formula)
            End If

            ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=Hyperstring

        End If
        i = i + 1
        If i = 10000 Then Exit Sub
Nextxcell:
      Next xCell
    If Not CellsWithSpaces = "" Then
        MsgBox ("Please remove spaces from the following cells:" & CellsWithSpaces)
    End If
Application.ScreenUpdating = True
End Sub

Comments

धन्यवाद, यह एक एक्सेल दस्तावेज़ के भीतर ई-मेल पते के लिए काम किया है - मैंने कुछ अलग तरीकों की कोशिश की है, लेकिन यह वह था जिसने काम किया, हालांकि मुझे http: // को mailto में बदलने की आवश्यकता थी:

— bawpie

Answer 13

1. सूत्र का उपयोग करके हाइपरलिंक्स का अस्थायी नया स्तंभ बनाएं = HYPERLINK ()
2. उस कॉलम को Microsoft Word में कॉपी करें (वर्ड चलने के बाद ही क्लिपबोर्ड पर कॉपी करें)।
3. नए शब्द दस्तावेज़ में सब कुछ कॉपी करें (ctrl + a, फिर ctrl + c)।
4. पाठ के मूल कॉलम को बदलने के लिए एक्सेल में पेस्ट करें। सूत्र के साथ अस्थायी कॉलम हटाएं।

Answer 14

आप फार्मूला =HYPERLINK(<your_cell>,<your_cell>)को आसन्न सेल में सम्मिलित कर सकते हैं और इसे नीचे तक सभी तरह से खींच सकते हैं। यह आपको सभी लिंक के साथ एक कॉलम देगा। अब, आप शीर्ष लेख पर क्लिक करके अपने मूल कॉलम का चयन कर सकते हैं, राइट-क्लिक करें, और चुनें Hide।

Answer 15

URL को HTML तालिका में रखें, HTML पेज को ब्राउज़र में लोड करें, उस पेज की सामग्री को कॉपी करें, एक्सेल में पेस्ट करें। इस बिंदु पर URL सक्रिय लिंक के रूप में संरक्षित हैं।

समाधान http://answers.microsoft.com/en-us/mac/forum/macoffice2008-macexcel/how-to-copy-and-paste-to-mac-excel-2008-a-list-of/ पर प्रस्तावित किया गया था। c5fa2890-acf5-461d-adb5-32480855e11e (जिम गॉर्डन मैक MVP) [ http://answers.microsoft.com/en-us/profile/75a2b744-a259-49bb-8eb1-7db61dae9e78]

मैंने पाया कि यह काम करता है।

मेरे पास ये URL थे:

https://twitter.com/keeseter/status/578350771235872768/photo/1 https://instagram.com/p/ys5ASPCDEV/ https://igcdn-photos-ga.akamaihd.net-hphotos-ak-xfa1/t51 .2885-15 / 10881854_329617847240910_1814142151_n.jpg https://twitter.com/ranadotson/status/539485028712189952/photo/1 https://instagram.com/p/0OgdvyxMhW/ https://instagram.com/p/1nynTiiLLS

मैंने उन्हें इस तरह एक HTML फ़ाइल (links.html) में डाला:

<table>
<tr><td><a href="https://twitter.com/keeseter/status/578350771235872768/photo/1">https://twitter.com/keeseter/status/578350771235872768/photo/1</a></td></tr>
<tr><td><a href="https://instagram.com/p/ys5ASPCDEV/">https://instagram.com/p/ys5ASPCDEV/</a></td></tr>
<tr><td><a href="https://igcdn-photos-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg">https://igcdn-photos-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg</a></td></tr>
<tr><td><a href="https://twitter.com/ranadotson/status/539485028712189952/photo/1">https://twitter.com/ranadotson/status/539485028712189952/photo/1</a></td></tr>
<tr><td><a href="https://instagram.com/p/0OgdvyxMhW/">https://instagram.com/p/0OgdvyxMhW/</a></td></tr>
</table>

फिर मैंने अपने ब्राउज़र में links.html लोड किया, कॉपी किया, Excel में पेस्ट किया, और लिंक सक्रिय थे।

Answer 16

कोड के लिए धन्यवाद कैसिओपिया। मैंने स्थानीय पते के साथ काम करने के लिए उसका कोड बदला और उसकी स्थितियों में थोड़ा बदलाव किया। मैंने निम्नलिखित शर्तें हटा दी हैं:

1. बदलें http:/करने के लिएfile:///
2. सभी प्रकार की सफेद स्थान स्थितियों को हटा दिया गया
3. 10k सेल रेंज की स्थिति को 100k में बदल दिया

---

Sub HyperAddForLocalLinks()
Dim CellsWithSpaces As String
    'Converts each text hyperlink selected into a working hyperlink
    Application.ScreenUpdating = False
    Dim NotPresent As Integer
    NotPresent = 0

    For Each xCell In Selection
        xCell.Formula = Trim(xCell.Formula)
            If InStr(xCell.Formula, "file:///") <> 0 Then
                Hyperstring = Trim(xCell.Formula)
            Else
                Hyperstring = "file:///" & Trim(xCell.Formula)
            End If

            ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=Hyperstring

        i = i + 1
        If i = 100000 Then Exit Sub
Nextxcell:
      Next xCell
    Application.ScreenUpdating = True
End Sub

Comments

पूरी तरह से काम करते हुए, मैंने कुछ ही सेकंड में ~ 7000 हाइपरलिंक बना लिए। :) थैंक्यू कैसोपिया।

— जुनैद

आपने क्यों परिभाषित किया NotPresent?

— स्टीफन रोलर

मैं बस पूर्व कैसिओपिया के जवाब से ऊपर कोड की नकल की। और इसे संशोधित किया जितना मैंने इसे समझा। इसलिए मुझे नहीं पता कि नोटरीसेंट आवश्यक है या नहीं। लेकिन मेरा संशोधित कोड पूरी तरह से ठीक काम करता है।

— जुनैद

Answer 17

मेरे पास संख्याओं की एक सूची है जो url के फीड में मुझे हॉटलिंक चाहिए। उदाहरण के लिए मेरे पास प्रश्न संख्या (यानी, 2595692, 135171) के साथ कॉलम ए है और मैं इन प्रश्न संख्याओं को हॉटलिंक में बदलना चाहता हूं और केवल प्रश्न संख्याओं को प्रदर्शित करना चाहता हूं।

इसलिए मैंने कॉलम A की ओर इशारा करते हुए केवल-पाठ हाइपरलिंक बनाया, और इसे मेरे सभी प्रश्न संख्याओं के लिए कॉपी किया:

= "= हाइपरलिंक (" और "" "http" "और" ":" "" और "" & "और" & "" "// stackoverflow.com/questions/"&A1&""""&","&A1& ")"

तब मैं कॉपी-पेस्ट करता हूं कि टेक्स्ट हाइपरलिंक के इस कॉलम को दूसरे कॉलम पर रखा जाए।

आप पाठ के एक स्तंभ के साथ समाप्त होते हैं जो निम्न की तरह दिखता है:

= हाइपरलिंक ( "http" और ":" और "// stackoverflow.com/questions/2595692",2595692)

फिर मैंने इन पेस्ट की गई वस्तुओं का चयन किया और F2Entry Macro को चलाया जो निम्न है:

Sub F2Enter()
Dim cell As Range
Application.Calculation = xlCalculationManual
For Each cell In Selection
    cell.Activate
    cell = Trim(cell)
Next cell
Application.Calculation = xlCalculationAutomatic
EndSub

मैंने तब पाठ प्रविष्टि कॉलम और कॉलम A को हटा दिया।

मैंने हॉटलिंक प्रश्न संख्याओं के एकल कॉलम के साथ समाप्त किया:

2595692

135,171

आदि।

चियर्स

Answer 18

यदि आप पाठ सामग्री को एक नए कॉलम में कॉपी करते हैं और उपयोग करते हैं:

=HYPERLINK("http://"&B10,B10) 

अपने मूल कॉलम पर। फिर $कॉलम के लिए उपयोग करें ताकि यह इस तरह दिखे:

=HYPERLINK("http://"&$B10,$B10)

यह एकमात्र तरीका है जो मेरे लिए विंडोज 7 पर एक्सेल 2010 पर काम किया था। आप सूत्र को कॉपी कर सकते हैं।

Answer 19

एक्सेल 2016 के साथ यहां उतरने वाले किसी के लिए, आप बस कॉलम को हाइलाइट कर सकते हैं, फिर बॉक्स में रिबन Hyperlinkपर स्थित टैब पर क्लिक करें ।HomeStyles

संपादित करें: दुर्भाग्य से, यह केवल सेल शैली को अपडेट करता है, फ़ंक्शन को नहीं।

Comments

यह केवल सेल स्टाइल देता है, URL को क्लिक करने योग्य नहीं बनाता है।

— स्टेनलेक्ट

हाँ, यह एक महान समाधान था, लेकिन यह काम नहीं करता है। यह वास्तव में मुझे चकित करता है कि यह मुश्किल है।

— दान

मैंने अभी यह परीक्षण किया है और आप दोनों सही हैं; मुझे सेल शैलियों द्वारा मूर्ख बनाया गया था।

— जगरोट

@ जार्जोट - यह वही है जो मैं बिना किसी कार्यक्षमता के सिर्फ शैली चाहता था।

— राज राजेश्वर सिंह राठौर

Answer 20

यहाँ सबसे आसान तरीका है

• पूरे कॉलम को हाइलाइट करें
• '' डालें '' पर क्लिक करें
• '' हाइपरलिंक '' पर क्लिक करें
• '' इस दस्तावेज़ में जगह '' पर क्लिक करें
• ओके पर क्लिक करें
• बस इतना ही

Comments

यह तब तक काम नहीं करता है, जब तक कि दस्तावेज़ में लिंक कुछ के साथ न हो।

— एरिका

मैं इस बात से सहमत हूं कि प्रश्न को खराब तरीके से लिखा गया था, लेकिन लक्षित लक्ष्य स्पष्ट रूप से पाठ का ही है।

— जेसन के।

Answer 21

Excel 2010 में सबसे सरल तरीका: URL टेक्स्ट वाले कॉलम का चयन करें, फिर होम टैब से Hyperlink Style चुनें। कॉलम के सभी URL अब हाइपरलिंक हैं।

URL टेक्स्ट के अंत में प्रत्येक सेल पर डबल क्लिक करना और रिक्त जोड़ना या केवल दर्ज करना भी हाइपरलिंक का उत्पादन करेगा। एमएस आउटलुक ईमेल में यूआरएल लिंक बनाने के तरीके के समान।

Comments

वे हाइपरलिंक नहीं हैं, वे हाइपरलिंक की तरह दिखते हैं । वह सिर्फ स्टाइल है।

— एरिका

Answer 22

ऐसा करने का एक बहुत ही सरल तरीका है। एक हाइपरलिंक बनाएँ, और फिर स्वरूपण की प्रतिलिपि बनाने के लिए प्रारूप पेंटर का उपयोग करें। यह हर आइटम के लिए हाइपरलिंक बनाएगा।

Comments

यह काम नहीं करता है, यह सिर्फ स्वरूपण की प्रतिलिपि बनाता है ताकि वे हाइपरलिंक की तरह दिखें।

— reergymerej