Excel में छुपी हुई शीट के हाइपरलिंक का अनुसरण कैसे करें?
उदाहरण के लिए, मेरे पास एक वर्कबुक है जिसमें कई वर्कशीट हैं, पहली मास्टर शीट में अन्य शीट के लिए हाइपरलिंक हैं, और अब, मैं पहली शीट को छोड़कर सभी शीट छिपा देता हूं। इस मामले में, छुपे हुए शीट से लिंक करने वाले हाइपरलिंक उपलब्ध नहीं हैं। लेकिन, आप इन हाइपरलिंक्स को सफलतापूर्वक कैसे कार्यान्वित कर सकते हैं? जब आप एक हाइपरलिंक पर क्लिक करते हैं, तो लिंक की गई छिपी हुई शीट निम्नलिखित स्क्रीनशॉट में दिखाए अनुसार तुरंत खुल जाएगी:
वीबीए कोड के साथ छिपी हुई शीट खोलने के लिए हाइपरलिंक का पालन करें
छिपी हुई शीट को खोलने के लिए हाइपरलिंक का पालन करें और फिर इसे वीबीए कोड के साथ फिर से छिपाएं
वीबीए कोड के साथ छिपी हुई शीट खोलने के लिए हाइपरलिंक का पालन करें
निम्नलिखित वीबीए कोड आपको छुपी हुई वर्कशीट को उसके संबंधित हाइपरलिंक पर क्लिक करने पर खोलने में मदद कर सकता है, कृपया ऐसा करें:
1. उस शीट टैब पर राइट क्लिक करें जिसे आप छिपी हुई शीट के हाइपरलिंक का अनुसरण करना चाहते हैं, और फिर चुनें कोड देखें संदर्भ मेनू से, पॉप आउट में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया निम्नलिखित कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें:
वीबीए कोड: छिपी हुई शीट खोलने के लिए हाइपरलिंक का अनुसरण करें:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
On Error Resume Next
If Target.Column = 1 Then
Sheets(Target.Value).Visible = xlSheetVisible
Sheets(Target.Value).Select
End If
Application.ScreenUpdating = True
End Sub
नोट: उपरोक्त कोड में, संख्या 1 इस में यदि लक्ष्य। कॉलम = 1 तो स्क्रिप्ट उस कॉलम नंबर को इंगित करती है जिसमें हाइपरलिंक हैं, कृपया इसे अपनी आवश्यकता के अनुसार बदलें।
2. फिर इस कोड विंडो को सहेजें और बंद करें, अब, जब आप हाइपरलिंक पर क्लिक करते हैं जो विशिष्ट छिपी हुई शीट से जुड़ा है, तो छिपी हुई शीट तुरंत खुल जाएगी।
छिपी हुई शीट को खोलने के लिए हाइपरलिंक का पालन करें और फिर इसे वीबीए कोड के साथ फिर से छिपाएं
कभी-कभी, आपको छिपी हुई शीट को खोलने के लिए हाइपरलिंक का अनुसरण करने की आवश्यकता होती है, और जब आप मास्टर शीट पर वापस जाते हैं, तो आप चाहते हैं कि खुली हुई शीट फिर से छिपी हो। नीचे दिया गया VBA कोड आपकी मदद कर सकता है:
1. उस शीट टैब पर राइट क्लिक करें जिसे आप छिपी हुई शीट के हाइपरलिंक का अनुसरण करना चाहते हैं, और फिर चुनें कोड देखें संदर्भ मेनू से, पॉप आउट में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया निम्नलिखित कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें:
वीबीए कोड: वापस जाने पर छिपी हुई शीट को खोलने के लिए हाइपरलिंक का पालन करें और इसे फिर से छुपाएं:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim strLinkSheet As String
If InStr(Target.Parent, "!") > 0 Then
strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
Else
strLinkSheet = Target.Parent
End If
Sheets(strLinkSheet).Visible = True
Sheets(strLinkSheet).Select
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Activate()
On Error Resume Next
Sheets(ActiveCell.Value2).Visible = False
End Sub
2. फिर कोड विंडो बंद करके विज्ञापन सहेजें, जब आप हाइपरलिंक पर क्लिक करते हैं, तो लिंक की गई छिपी हुई शीट तुरंत खुल जाएगी, लेकिन, यदि आप हाइपरलिंक वाली मास्टर शीट पर वापस जाते हैं, तो खुली हुई शीट स्वचालित रूप से फिर से छिप जाएगी।
नोट: ये कोड केवल उन शीट नामों पर लागू होते हैं जो आपके हाइपरलिंक टेक्स्ट से मेल खाते हैं।
डेमो: वीबीए कोड के साथ छिपी हुई शीट खोलने के लिए हाइपरलिंक का पालन करें
एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। अभी डाउनलोड करें और निःशुल्क परीक्षण करें!
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!