VBA हाइपरलिंक - VBA कोड का उपयोग करके Excel में हाइपरलिंक कैसे बनाएं?

हाइपरलिंक्स एक मान से जुड़ी होती हैं, जिसे तब देखा जाता है जब हम उस पर माउस घुमाते हैं और जब हम उस पर क्लिक करते हैं तो URL खुल जाता है, VBA में हमारे पास VBA में हाइपरलिंक बनाने के लिए एक इनबिल्ट संपत्ति होती है और इस संपत्ति का उपयोग करने के लिए हम साथ में जोड़ते हैं। हाइपरलिंक का कथन किसी सेल में हाइपरलिंक डालने के लिए।

एक्सेल VBA में हाइपरलिंक

भले ही हमारे पास एक शीट से दूसरी शीट के बीच जाने के लिए एक्सेल में पेज अप और पेज डाउन शॉर्टकट कुंजी है, लेकिन यह तब जटिल हो जाता है जब हमें 10 से अधिक वर्कशीट के बीच चलना पड़ता है। यह वह जगह है जहाँ "हाइपरलिंक्स इन एक्सेल" की सुंदरता तस्वीर में आती है। हाइपरलिंक एक पूर्वनिर्धारित URL है जो आपको संबंधित सेल या वर्कशीट में नियत रूप से ले जाता है।

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

VBA हाइपरलिंक का सूत्र

आइए एक्सेल वीबीए में हाइपरलिंक के सूत्र को देखें।

  • एंकर: किस सेल में आप हाइपरलिंक बनाना चाहेंगे।
  • पता: नेविगेट करने के लिए हाइपरलिंक का URL क्या है?
  • (उप पता): पृष्ठ का स्थान क्या है?
  • (स्क्रीन टिप): जब आप हाइपरलिंक नाम या सेल पर माउस पॉइंटर लगाते हैं, तो क्या दिखाया जाना चाहिए?
  • (टेक्स्ट टू डिस्प्ले): सेल में प्रदर्शित होने वाला टेस्ट क्या है? उदाहरण के लिए, वर्कशीट नाम।

एक्सेल VBA में हाइपरलिंक कैसे बनाएं?

मान लें कि आप दूसरी शीट "उदाहरण 1" से "मेन शीट" नाम की शीट को VBA हाइपरलिंक बनाना चाहते हैं।

वर्कशीट "उदाहरण 1" और सेल A1 में, मैं VBA में कोड का उपयोग करके हाइपरलिंक बनाऊंगा।

चरण 1: सबसे पहले, वर्कशीट उदाहरण 1 के सेल A1 का चयन करें।

कोड:

उप हाइपरलिंक_ नमूना 1 () वर्कशीट ("उदाहरण 1")। रेंज चुनें ("A1")। एंड चुनें।

चरण 2: अब, सक्रिय सेल ऑब्जेक्ट का उपयोग करके हाइपरलिंक खोलें। विधि जोड़ें।

कोड:

उप हाइपरलिंक_Example1 () कार्यपत्रक ("उदाहरण 1")। रेंज चुनें ("A1")। ActiveCell.Hyperlinks का चयन करें।

चरण 3: पहला तर्क "एंकर" है, अर्थात, वीबीए हाइपरलिंक बनाने के लिए हम किस सेल से जुड़ेंगे। इस स्थिति में, सेल A1 और चूंकि हमने पहले ही सेल A1 का चयन कर लिया है।

कोड:

उप हाइपरलिंक_Example1 () कार्यपत्रक ("उदाहरण 1")। चयन रेंज ("A1")। ActiveCell.Hyperlinks.Add चुनें (चयन, समाप्ति उप

चरण 4: हम यहां कोई पता नहीं बना रहे हैं, इसलिए अब तक के पते को अनदेखा करें।

कोड:

उप हाइपरलिंक_Example1 () कार्यपत्रक ("उदाहरण 1")। चयन करें रेंज ("A1")। ActiveCell.Hyperlinks का चयन करें।

चरण 5: अगला सब-एड्रेस है। यहां हमें यह उल्लेख करने की आवश्यकता है कि हम किस शीट का उल्लेख कर रहे हैं और उस शीट की पहली सेल।

कोड:

उप हाइपरलिंक_Example1 () वर्कशीट ("उदाहरण 1")। Select Range ("A1")। ActiveCell.Hyperlinks चुनें। Anchor: = चयन, पता: = "", SubAddress: = '' Main Sheet '! A1 ", End। विषय

मैंने शीट नाम का उल्लेख "मेन शीट" के रूप में किया है और उस शीट सेल एड्रेस में "A1" है।

चरण 6: स्क्रीन टिप को भी अनदेखा करें। टेक्स्ट को प्रदर्शित करने के लिए, शीट नाम का उल्लेख करें।

कोड:

Sub Hyperlink_Example1 () वर्कशीट ("उदाहरण 1")। Select Range ("A1")। ActiveCell.Hyperlinks चुनें। Anchor: = Selection, Address: = "," SubAddress: = '' Main Sheet '! A1' ', TextToDisplay! : = "मेन शीट" एंड सब

ठीक है, F5 कुंजी या मैन्युअल का उपयोग करके इस कोड को चलाएं। फिर, यह "उदाहरण 1" शीट में सेल A1 में एक हाइपरलिंक बनाएगा।

जब आप हाइपरलिंक "मेन शीट" पर क्लिक करते हैं, तो यह मुख्य शीट पर रीडायरेक्ट होता है।

लूप्स के साथ कई शीट्स के हाइपरलिंक

हमने एक शीट के लिए VBA हाइपरलिंक बनाते हुए देखा है। जब हमारे पास कई शीट होती हैं, तो प्रत्येक शीट के लिए प्रत्येक शीट के लिए कोड की एक ही लाइन के साथ VBA हाइपरलिंक बनाना आसान नहीं होता है।

मान लें कि आपके पास 11 कार्यपत्रक हैं, जैसा कि नीचे की छवि में दिखाया गया है।

आप VBA कोड का उपयोग करके इंडेक्स शीट में प्रत्येक शीट के लिए एक हाइपरलिंक बनाना चाहते हैं ।

चरण 1: चर को वर्कशीट के रूप में परिभाषित करें।

कोड:

सब क्रिएट_हाइपरलिंक () डिम डब्ल्यूएस एज़ वर्कशीट एंड सब

चरण 2: पहली बात यह है कि वर्कशीट इंडेक्स का चयन करें और सेल A1 का चयन करें।

कोड:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select End Sub

Step 3: Now open For Each Loop in VBA.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets Next Ws End Sub

Step 4: Since we have already selected the cell A1 it is now an active cell. So start the hyperlink with the active cell.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add( Next Ws End Sub

Step 5: Anchor is a hyperlink cell. So it is the active cell.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Next Ws End Sub

Step 6: Address is nothing mention it as “.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell,Address:="", Next Ws End Sub

Step 7: Subaddress is when we loop through the sheet, it should be the sheet name. To refer to the sheet name, we need a single quote, “” with sheet name and “! Cell Address,” and close the sheet name with a single quote “.”

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell,Address:="",SubAddress:=""& Ws.Name&"!A1"&"", Next Ws End Sub

Step 8: Ignore Screen tip, and for Text to display, you can enter the worksheet name.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="" & Ws.Name & "!A1" & "", ScreenTip:="", TextToDisplay:=Ws.Name Next Ws End Sub

चरण 9: प्रत्येक शीट के हाइपरलिंक को एक अलग सेल में संग्रहीत करने के लिए, हर बार एक शीट के लिए हाइपरलिंक बनाने के लिए, हमें सक्रिय सेल से एक सेल को नीचे ले जाने की आवश्यकता है।

कोड:

सब क्रिएट_हाइपरलिंक () डिम Ws एज़ वर्कशीट वर्कशीट ("इंडेक्स")। सेलेक्ट रेंज ("A1") चुनें। ActiveWorkbook में प्रत्येक Ws के लिए चयन करें ।orksheets ActiveCell.Hyperlinks.Achor एंकर: = ActiveCell, पता: = "", SubAddress: =। "" & Ws.Name & "! A1" & "", स्क्रीनटाइप: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0) .Select Next Ws End Sub

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

दिलचस्प लेख...