वीबीए हाइपरलिंक

यह वीबीए ट्यूटोरियल वीबीए में हाइपरलिंक्स के साथ काम करने के विभिन्न तरीकों को शामिल करता है।

वीबीए हाइपरलिंक

VBA के साथ, आप हाइपरलिंक जोड़ सकते हैं, हाइपरलिंक हटा सकते हैं, हाइपरलिंक का उपयोग करके ईमेल बना सकते हैं और VBA में हाइपरलिंक का उपयोग करके फ़ाइलें खोल सकते हैं।

VBA के साथ हाइपरलिंक जोड़ें

Hyperlinks.Add Method VBA का उपयोग करके किसी सेल में हाइपरलिंक जोड़ता है।

निम्न कोड सेल A1 में हाइपरलिंक जोड़ देगा:

123	उप AddHyperlinkToCell ()ActiveSheet.Hyperlinks.Add Range("A1"), पता:="https://www.automateexcel.com/excel/"अंत उप

परिणाम है:

वीबीए के साथ प्रदर्शित करने के लिए टेक्स्ट जोड़ना

आप वीबीए के साथ अपने हाइपरलिंक में प्रदर्शित करने के लिए साफ-सुथरा उपयोगकर्ता के अनुकूल पाठ जोड़ सकते हैं। यदि आपने वर्कशीट कार्यक्षमता का उपयोग किया है तो आप एक हाइपरलिंक सम्मिलित करेंगे और फिर दिए गए संवाद बॉक्स में प्रदर्शित करने के लिए एक टेक्स्ट जोड़ेंगे।

नीचे दिया गया कोड दर्शाता है कि VBA का उपयोग करके अपने हाइपरलिंक में प्रदर्शित करने के लिए टेक्स्ट कैसे जोड़ें:

123	उप TextToDisplayForHyperlink ()ActiveSheet.Hyperlinks.Add Range("A1"), पता:="https://www.automateexcel.com/excel/", TextToDisplay:="Automate Excel"अंत उप

परिणाम है:

VBA के साथ स्क्रीनटिप जोड़ना

आप अपने हाइपरलिंक में एक स्क्रीनटिप जोड़ सकते हैं जिसे दर्शक तब देखेंगे जब वे लिंक पर होवर करेंगे।

नीचे दिया गया कोड दिखाता है कि VBA का उपयोग करके अपने हाइपरलिंक में ScreenTip कैसे जोड़ें:

123	उप स्क्रीनटिपफॉरहाइपरलिंक ()ActiveSheet.Hyperlinks.Add Range("A1"), पता:="https://www.automateexcel.com/excel/", TextToDisplay:="Automate Excel", ScreenTip:="यह ऑटोमेट एक्सेल के लिए लिंक है"अंत उप

परिणाम है:

वीबीए के साथ एक हाइपरलिंक हटाएं

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

निम्न कोड सेल A1 से हाइपरलिंक और सेल में टेक्स्ट को हटा देगा।

ध्यान दें कि केवल हाइपरलिंक को हटाने से, टेक्स्ट को ही डिलीट नहीं किया जाता है, इसलिए यदि आप टेक्स्ट को हटाना चाहते हैं तो आपको क्लियर विधि का भी उपयोग करना होगा।

1234	उप DeleteHyperlinkinCell ()रेंज ("ए 1")। हाइपरलिंक्स। हटाएंरेंज ("ए 1")। साफ़ करेंअंत उप

वर्कशीट में सभी हाइपरलिंक हटाएं

आप हाइपरलिंक्स.डिलीट विधि का उपयोग करके अपने वर्कशीट के सभी हाइपरलिंक्स को भी हटा सकते हैं।

निम्नलिखित कोड आपकी कार्यपुस्तिका में प्रथम कार्यपत्रक के सभी हाइपरलिंक हटा देगा:

123	उप निकालेंAllHyperlinksInASheet ()यह वर्कबुक.शीट्स(1).हाइपरलिंक्स.डिलीटअंत उप

वीबीए का उपयोग करके वेबसाइट हाइपरलिंक का पालन करें

निम्नलिखित कोड आपको अपनी कार्यपुस्तिका में FollowHyperlink पद्धति का उपयोग करके अपने ब्राउज़र में एक नई विंडो में एक वेबसाइट पता खोलने की अनुमति देता है:

123	सब फॉलोहाइपरलिंकफॉरवेबसाइट ()ActiveWorkbook.FollowHyperlink पता: = "https://www.automateexcel.com/excel", NewWindow:=Trueअंत उप

अपने ड्राइव पर एक फ़ोल्डर के लिए हाइपरलिंक का पालन करें

निम्न कोड डेस्कटॉप पर ExcelFiles नामक फ़ोल्डर को FollowHyperlink विधि का उपयोग करके खोलेगा:

123	सब फॉलोहाइपरलिंकफॉरफोल्डरऑनड्राइव ()ActiveWorkbook.FollowHyperlink पता: = "C:\Desktop\ExcelFiles"अंत उप

अपने ड्राइव पर एक फ़ाइल के लिए हाइपरलिंक का पालन करें

निम्नलिखित कोड एक एक्सेल फाइल खोलेगा जिसे वर्कबुकऑन कहा जाता है, डेस्कटॉप पर एक्सेलफाइल्स नामक फ़ोल्डर में फॉलोहाइपरलिंक विधि का उपयोग करते हुए:

123	सब फॉलोहाइपरलिंकफॉरफाइल ()ActiveWorkbook.FollowHyperlink पता: = "C:\Desktop\ExcelFiles\WorkbookOne.xlsx", NewWindow:=Trueअंत उप

उसी कार्यपुस्तिका में किसी अन्य पत्रक के कक्ष में जाएँ

आप एक शीट में एक सेल में हाइपरलिंक जोड़ सकते हैं जो आपको वीबीए के साथ एक ही कार्यपुस्तिका में दूसरी शीट पर ले जाती है। मान लीजिए कि आप अपनी कार्यपुस्तिका के पत्रक1, सेल ए1 पर हैं और आप उसी कार्यपुस्तिका के पत्रक2, सेल बी2 में हाइपरलिंक सम्मिलित करना चाहते हैं, ऐसा करने के लिए आप उप-पता गुण का उपयोग कर सकते हैं।

निम्नलिखित कोड दर्शाता है कि यह कैसे करना है:

123	उप GoToAnotherCellInAnotherSheetInTheSameWorkbook ()ActiveSheet.Hyperlinks.Add Range("A1"), Address:="", SubAddress:="'" & Sheet2.Name & "'!B2", TextToDisplay:=" Click Here to Go to Go Sheet2, सेल B2 एक ही कार्यपुस्तिका"अंत उप

वर्कशीट में सभी हाइपरलिंक प्रदर्शित करें

आप हाइपरलिंक संग्रह तक पहुँच सकते हैं और अपनी कार्यपत्रक में सभी हाइपरलिंक प्रदर्शित कर सकते हैं इंटरमीडिएट विंडो वीबीए संपादक में। आपको पहले प्रेस करना होगा CTRL+जी अपने कीबोर्ड पर या जाएं देखें> इंटरमीडिएट विंडो इंटरमीडिएट विंडो देखने के लिए वीबीई संपादक में।

निम्न कोड इंटरमीडिएट विंडो में अपनी वर्कशीट में हाइपरलिंक्स को देखने का तरीका दिखाता है:

1234567891011

उप ShowAllTheHyperlinksInTheWorksheet ()वर्कशीट के रूप में डिम WSसेट ws = ThisWorkbook.Sheets(1)प्रत्येक lnk के लिए ws.Hyperlinks . मेंडिबग.प्रिंट lnk.Addressअगला lnkअंत उप

परिणाम इंटरमीडिएट विंडो में दिखाए जाते हैं।

कार्यपुस्तिका में सभी हाइपरलिंक प्रदर्शित करें

आप एक संदेश बॉक्स में अपनी कार्यपुस्तिका में सभी हाइपरलिंक्स को लूप करने और प्रदर्शित करने के लिए हाइपरलिंक संग्रह तक पहुँच सकते हैं।

निम्न कोड दिखाता है कि यह कैसे करना है, और इसे प्राप्त करने के लिए नेस्टेड लूप का उपयोग करता है:

1234567891011

उप ShowAllTheHyperlinksInTheWorkbook ()वर्कशीट के रूप में डिम WSActiveWorkbook.Worksheets में प्रत्येक ws के लिएप्रत्येक lnk के लिए ws.Hyperlinks . मेंMsgBox lnk.Addressअगला lnkअगला wsअंत उप

ईमेल बनाने के लिए फॉलोहाइपरलिंक विधि का उपयोग करना

आप FollowHyperlink Method का उपयोग करके भी ईमेल बना सकते हैं।

नीचे दिया गया कोड आपको दिखाएगा कि वीबीए में फॉलोहाइपरलिंक विधि का उपयोग करके ईमेल कैसे बनाएं:

12345678

उप SendEmailUsingHyperlink ()मंद msgLink स्ट्रिंग के रूप मेंmsgLink = "mailto:" और "[email protected]" और "?" और "विषय =" और "हैलो" और "और" और "बॉडी =" और "आप कैसे हैं?"ActiveWorkbook.FollowHyperlink (msgLink)अंत उप

परिणाम है:

एक्सेल में ऑटोशेप में हाइपरलिंक जोड़ना

आप एक्सेल में ऑटोशेप में एक हाइपरलिंक जोड़ सकते हैं ताकि जब उपयोगकर्ता आकृति पर क्लिक करे तो वे वेबसाइट के पते पर पहुंच जाएं।

निम्न कोड एक गोल आयत बनाता है, आयत में पाठ जोड़ता है और आयत में एक हाइपरलिंक जोड़ता है:

12345678910111213

उप जोड़नाएहाइपरलिंकटूएशैप ()आकार के रूप में मेरा आकार मंद करेंmyDocument = वर्कशीट सेट करें ("शीट 1")MyShape = myDocument.Shapes.AddShape (msoShapeRoundedRectangle, १००, १००, ९०, ३०) सेट करेंमाईशेप के साथ.TextFrame.Characters.Text = "ऑटोमेट एक्सेल"के साथ समाप्त करनाActiveSheet.Hyperlinks.Add Anchor:=myShape, पता:="https://www.automateexcel.com/excel"अंत उप

परिणाम है:

VBA का उपयोग करके किसी सेल में हाइपरलिंक फॉर्मूला सम्मिलित करना

मान लें कि आपके पास सेल A4 में एक पोस्ट शीर्षक है और सेल B4 में एक पोस्ट लिंक है जैसा कि नीचे की छवि में दिखाया गया है।

वर्कशीट हाइपरलिंक फॉर्मूला सिंटैक्स का एक त्वरित अनुस्मारक है:

HYPERLINK(link_location, [Friendly_name])

link_location - यह कार्यपुस्तिका या ऑनलाइन साइट में दस्तावेज़, फ़ाइल, स्थान का लिंक है।

मित्रतापूर्ण नाम - (ऐच्छिक) - सेल में प्रदर्शित होने वाला टेक्स्ट या अंकीय मान।

सेल C4 में, आप प्रदर्शित करने के लिए एक अनुकूल पाठ के साथ हाइपरलिंक जोड़ना चाहते हैं, अब आमतौर पर आप निम्नलिखित प्राप्त करने के लिए C4 में सूत्र =HYPERLINK(B4,A4) दर्ज करेंगे:

आप इसके बजाय समान परिणाम प्राप्त करने के लिए VBA का उपयोग कर सकते हैं, और इस सूत्र को सेल में, शीट 1 पर निम्नलिखित कोड के साथ सम्मिलित कर सकते हैं:

123	उप सम्मिलनहाइपरलिंकफॉर्मुलाइनसेल ()ActiveWorkbook.Worksheets("Sheet1").Range("C4").Formula = "=hyperlink(B4,A4)"अंत उप

एक्सेस में एक बटन में हाइपरलिंक जोड़ना

वीबीए आपको एक्सेस में भी हाइपरलिंक्स के साथ काम करने की अनुमति देता है। मान लीजिए कि हमारे पास एक फॉर्म पर एक बटन है और जब उपयोगकर्ता उस बटन पर क्लिक करता है तो हम चाहते हैं कि उन्हें एक वेबसाइट पर ले जाया जाए। ऐसा करने के लिए आप जिस एक तरीके का उपयोग कर सकते हैं, वह है Application.FollowHyperlink विधि।

हमारे पास नीचे दिखाए गए बटन नामक बटन के साथ हमारा नमूना फॉर्म है।

इस बटन के लिए कोड होगा:

12345

निजी उप बटनOne_Click ()Application.FollowHyperlink ("https://www.automateexcel.com/excel/")अंत उप

Word में चयन से हाइपरलिंक बनाना

आप Word VBA में हाइपरलिंक के साथ भी काम कर सकते हैं।
मान लें कि हमारे पास टेक्स्ट है शब्द जो कहता है "स्वचालित एक्सेल वेबसाइट पर जाने के लिए यहां क्लिक करें", जिसे नीचे दिखाया गया है।

इस पाठ को वीबीए का उपयोग करके हाइपरलिंक में बदलने के लिए, आप निम्न कोड का उपयोग कर सकते हैं:

123	निजी सब टर्नएचयनइनटूएहाइपरलिंक ()ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, पता:="https://www.automateexcel.com/excel/", ScreenTip:="कृपया यहां क्लिक करें", लक्ष्य:=NewWindowअंत उप

परिणाम है: