सभी शीटों और अद्यतनों के लिए सामग्री तालिका स्वचालित रूप से कैसे बनाएं?
मान लीजिए, आपके पास एक कार्यपुस्तिका है जिसमें सैकड़ों कार्यपत्रक हैं, तो एकाधिक पत्रक के बीच एक विशिष्ट पत्रक पर नेविगेट करना हममें से अधिकांश के लिए सिरदर्द का कारण बन सकता है। इस मामले में, इन वर्कशीट के लिए सामग्री तालिका बनाने से आपको निश्चित शीट पर जल्दी और आसानी से जाने में मदद मिल सकती है। यह ट्यूटोरियल इस बारे में बात करेगा कि सभी शीटों के लिए सामग्री तालिका कैसे बनाई जाए और शीट नाम डालने, हटाने या बदलने पर तालिका को स्वचालित रूप से अपडेट किया जाए।
सभी शीटों के लिए सामग्री की एक तालिका बनाएं और सूत्रों के साथ स्वचालित रूप से अपडेट करें
वीबीए कोड के साथ स्वचालित रूप से सभी शीट और अपडेट के लिए सामग्री की एक तालिका बनाएं
एक शक्तिशाली सुविधा के साथ स्वचालित रूप से सभी शीट और अपडेट के लिए सामग्री की एक तालिका बनाएं
सभी शीटों के लिए सामग्री की एक तालिका बनाएं और सूत्रों के साथ स्वचालित रूप से अपडेट करें
एक्सेल में, आप एक श्रेणी नाम को परिभाषित करके और एक सूत्र में नाम का संदर्भ देकर सामग्री की एक तालिका बना सकते हैं, कृपया निम्नलिखित चरणों का पालन करें:
1. उन सभी शीटों से पहले एक नई शीट डालें जहाँ आप सामग्री तालिका बनाना चाहते हैं और अपनी आवश्यकता के अनुसार उसका नाम बदलें।
2। तब दबायें सूत्र > नाम परिभाषित करें, स्क्रीनशॉट देखें:
3. में नया नाम संवाद बॉक्स में, एक नाम निर्दिष्ट करें शीटलिस्ट में नाम बॉक्स, आप इसे अपने अनुसार बदल सकते हैं, और फिर यह सूत्र दर्ज कर सकते हैं: =कार्यपुस्तिका प्राप्त करें(1)&टी(अभी()) में को संदर्भित करता है टेक्स्टबॉक्स, स्क्रीनशॉट देखें:
4। तब दबायें OK संवाद बॉक्स को बंद करने के लिए बटन।
5. अब, कृपया नई शीट पर जाएँ जहाँ आप सामग्री तालिका बनाना चाहते हैं, और फिर एक रिक्त कक्ष में निम्नलिखित सूत्र दर्ज करें:
6. और फिर रिक्त सेल प्रदर्शित होने तक भरण हैंडल को नीचे की ओर खींचें, और वर्तमान कार्यपुस्तिका के सभी शीट नाम (छिपी हुई शीट सहित) नीचे दिखाए गए स्क्रीनशॉट के अनुसार सूचीबद्ध किए गए हैं:
7. फिर, आपको तालिका सामग्री के लिए हाइपरलिंक बनाना चाहिए, कृपया नीचे दिए गए सूत्र का उपयोग करें:
8. अब हाइपरलिंक टेक्स्ट पर क्लिक करने पर वह तुरंत उस शीट पर चला जाएगा। और यदि आप एक नई शीट डालते हैं, एक शीट हटाते हैं या शीट का नाम बदलते हैं, तो तालिका सामग्री स्वचालित रूप से अपडेट हो जाएगी।
- 1. इस पद्धति के साथ, सभी छिपी हुई शीट तालिका सामग्री में भी प्रदर्शित होती हैं।
- 2. आपको फ़ाइल को इस रूप में सहेजना चाहिए एक्सेल मैक्रो-सक्षम वर्कबुक प्रारूपित करें, इस प्रकार, जब आप अगली बार इस फ़ाइल को खोलेंगे, तो सूत्र अच्छी तरह से काम कर सकते हैं।
वीबीए कोड के साथ स्वचालित रूप से सभी शीट और अपडेट के लिए सामग्री की एक तालिका बनाएं
कभी-कभी, आपको तालिका सामग्री में छिपी हुई शीट को प्रदर्शित करने की आवश्यकता नहीं होती है। इस समस्या को हल करने के लिए, निम्नलिखित VBA कोड आपकी मदद कर सकता है।
1. उन सभी शीटों से पहले एक नई शीट डालें जहाँ आप सामग्री तालिका बनाना चाहते हैं और अपनी आवश्यकता के अनुसार उसका नाम बदलें। फिर, शीट टैब पर राइट क्लिक करें और चुनें कोड देखें संदर्भ मेनू से, स्क्रीनशॉट देखें:
2. खुले में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, नीचे दिए गए कोड को कॉपी करें और शीट कोड विंडो में पेस्ट करें:
वीबीए कोड: स्वचालित रूप से सभी शीट और अपडेट के लिए सामग्री की एक तालिका बनाएं
Private Sub Worksheet_Activate()
‘Updateby ExtendOffice
Dim xWsh As Worksheet
Dim xWshs As Worksheets
Dim xShowHinddenWorkSheet As Boolean
Dim xI As Long
Dim xRg As Range
Dim xStrTitle, xStrTCHeader, xStrWShName As String
xShowHinddenWorkSheet = False 'Change this to True to display the hidden sheets as you need
xStrTitle = "A1"
xStrTCHeader = "A3"
On Error Resume Next
Application.ScreenUpdating = False
Me.Cells.Clear
Me.Range(xStrTitle).Font.Bold = True
Me.Range(xStrTitle).Font.Size = Me.Range(xStrTitle).Font.Size + 2
Me.Range(xStrTitle).Value = "Table of Contents"
Me.Range(xStrTCHeader).Value = "No."
Me.Range(xStrTCHeader).Offset(0, 1).Value = "Sheet Name"
Me.Range(xStrTCHeader).Resize(1, 2).Font.Bold = True
xStrWShName = Me.Name
xI = 1
For Each xWsh In Application.ActiveWorkbook.Worksheets
If xWsh.Name <> xStrWShName Then
If (xWsh.Visible = xlSheetVisible) Or xShowHinddenWorkSheet Then
Me.Hyperlinks.Add Anchor:=Me.Range(xStrTCHeader).Offset(xI, 1), Address:="", SubAddress:="'" & xWsh.Name & "'!A1", TextToDisplay:=xWsh.Name
Me.Range(xStrTCHeader).Offset(xI).Value = xI
xI = xI + 1
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और तालिका सामग्री एक बार में नई वर्कशीट में बनाई जाती है, सभी छिपी हुई शीट तालिका सामग्री में प्रदर्शित नहीं होंगी, स्क्रीनशॉट देखें:
4. अब फॉर्म चालू है, शीट को हटाने, डालने या नाम बदलने पर, तालिका सामग्री गतिशील रूप से अपडेट की जाएगी।
एक शक्तिशाली सुविधा के साथ स्वचालित रूप से सभी शीट और अपडेट के लिए सामग्री की एक तालिका बनाएं
यदि आपके पास एक्सेल के लिए कुटूल, आईटी इस नेविगेशन फलक यह आपको सभी शीट नामों को बाएं फलक में लंबवत रूप से सूचीबद्ध करने और विशिष्ट शीट पर जल्दी और आसानी से नेविगेट करने में मदद कर सकता है।
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:
1. क्लिक करें कुटूल > पथ प्रदर्शन, स्क्रीनशॉट देखें:
2. विस्तारित में पथ प्रदर्शन फलक, क्लिक करें कार्यपुस्तिका और शीट आइकन, सभी खुली हुई कार्यपुस्तिकाएँ शीर्ष सूची बॉक्स में सूचीबद्ध हैं, और कार्यपुस्तिका के भीतर सभी दृश्यमान शीट नीचे सूची बॉक्स में प्रदर्शित हैं, स्क्रीनशॉट देखें:
3. और अब, आप बाएं फलक से शीट नाम पर क्लिक करके शीट पर जा सकते हैं। और जब आप किसी शीट को हटाते हैं, सम्मिलित करते हैं या उसका नाम बदलते हैं, तो फलक में शीट सूची गतिशील रूप से अपडेट हो जाएगी।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!