मुख्य सामग्री पर जाएं

एक्सेल में एकाधिक ईमेल पतों को हाइपरलिंक में कैसे बदलें? 

लेखक: ज़ियाओयांग अंतिम संशोधित: 2021-01-08

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

फ़ॉर्मूला के साथ एकाधिक ईमेल पतों को हाइपरलिंक में बदलें

VBA कोड के साथ एकाधिक ईमेल पतों को हाइपरलिंक में बदलें

तीर नीला दायां बुलबुला फ़ॉर्मूला के साथ एकाधिक ईमेल पतों को हाइपरलिंक में बदलें

उसके साथ हाइपरलिंक फ़ंक्शन, आप कॉलम ईमेल पतों को तुरंत हाइपरलिंक किए गए पतों में परिवर्तित कर सकते हैं।

1. यह सूत्र दर्ज करें =हाइपरलिंक("mailto:"&A2) एक रिक्त कक्ष में जहां आप परिणाम डालना चाहते हैं, स्क्रीनशॉट देखें:

दस्तावेज़ पतों को हाइपरलिंक्स में बदलें 1

2. फिर भरण हैंडल को उन कक्षों तक नीचे खींचें जिनमें आप इस सूत्र को शामिल करना चाहते हैं, और सभी ईमेल पते निम्न स्क्रीनशॉट में दिखाए गए अनुसार क्लिक करने योग्य हाइपरलिंक बन गए हैं:

दस्तावेज़ पतों को हाइपरलिंक्स में बदलें 2

तीर नीला दायां बुलबुला VBA कोड के साथ एकाधिक ईमेल पतों को हाइपरलिंक में बदलें

जैसा कि आप देख सकते हैं, उपरोक्त सूत्र का उपयोग करके, प्रत्येक ईमेल पते के सामने एक स्ट्रिंग "mailto:" जोड़ दी जाएगी, यदि आप पते के भीतर mailto: नहीं चाहते हैं, तो निम्नलिखित VBA कोड आपके लिए फायदेमंद हो सकता है।

1. दबाए रखें ऑल्ट + F11 एक्सेल में कुंजियाँ, और यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: एकाधिक ईमेल पतों को हाइपरलिंक में बदलें

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. कोड पेस्ट करने के बाद कृपया दबाएं F5 इस कोड की कुंजी, और एक प्रॉम्प्ट बॉक्स आपको याद दिलाने के लिए पॉप अप होगा कि आप उस डेटा रेंज का चयन करें जिसका आप उपयोग करना चाहते हैं, स्क्रीनशॉट देखें:

दस्तावेज़ पतों को हाइपरलिंक्स में बदलें 3

4। और फिर क्लिक करें OK, सभी चयनित ईमेल पते हाइपरलिंक किए गए पतों में बदल दिए गए हैं, स्क्रीनशॉट देखें:

दस्तावेज़ पतों को हाइपरलिंक्स में बदलें 4

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (7)
No ratings yet. Be the first to rate!
kk.operator
kk.operator
This comment was minimized by the moderator on the site
Ich suche eine Formel mit der ich EMail-Adressen in URLs umwandeln kann...

Beispiel: > http://www.test.de

Kann mir jemand helfen?
Reply
0
0
skyyang
skyyang     kk.operator
This comment was minimized by the moderator on the site
Hello, kk.operator

To solve your problem, please apply the following code:

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim xCell As Range
    Dim xCell2 As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim xRegEx As Object
    Dim arrSplit() As String
    
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    Set yRg = Application.InputBox("Please select the save range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If yRg Is Nothing Then Exit Sub
    Set yRg = yRg.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)

    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
        .Global = True
        .IgnoreCase = True
    End With
    
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            Set xCell = xRg.Cells(I, J)
            Set xCell2 = yRg.Cells(I, J)
            If xRegEx.test(xCell.Value) Then
                arrSplit = Split(xCell.Value, "@")
                 If UBound(arrSplit, 1) = 1 Then
                    xCell2.Value = "http://www." & arrSplit(1)
                    xCell2.Hyperlinks.Add Anchor:=xCell2, Address:=xCell2.Value
                 End If
            End If
        Next
    Next
    Application.ScreenUpdating = xUpdate
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
DL
DL
This comment was minimized by the moderator on the site
Works perfectly in Excel 2003! Thanks much!
Reply
0
0
Katharine
Katharine
This comment was minimized by the moderator on the site
I'm in a MAC environment so don't have a ALT key. Any other ieas?
Reply
0
0
moranrd
moranrd     Katharine
This comment was minimized by the moderator on the site
The equivalent for the ALT key is the command key (located to the left of the Option Key).

Both of these keys are located to the left of the spacebar.
Reply
Report
0
0
Festus
Festus
This comment was minimized by the moderator on the site
you are a star, it worked perfectly. thanks a million
Reply
0
0
Mike Smith
Mike Smith
This comment was minimized by the moderator on the site
I cannot find the find converting cells to hyperlinks.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations