मान लीजिए, आपके पास एकाधिक वर्कशीट वाली एक कार्यपुस्तिका है, अब आप वर्तमान कार्यपुस्तिका में सभी शीट नामों को सूचीबद्ध करना चाहते हैं, क्या एक्सेल में थीसिस शीट नामों की एक-एक करके टाइप किए बिना सूची बनाने की कोई त्वरित विधि है? यह ट्यूटोरियल एक्सेल में वर्कशीट नामों को सूचीबद्ध करने के तरीके के बारे में निर्देश दे रहा है।

सूत्रों के साथ गतिशील रूप से किसी कार्यपुस्तिका से सभी कार्यपत्रक नामों की सूची प्राप्त करें

एक उपयोगी सुविधा के साथ किसी कार्यपुस्तिका से सभी कार्यपत्रक नामों की सूची प्राप्त करें

VBA कोड वाली कार्यपुस्तिका से सभी कार्यपत्रक नामों की सूची प्राप्त करें

सूत्रों के साथ गतिशील रूप से किसी कार्यपुस्तिका से सभी कार्यपत्रक नामों की सूची प्राप्त करें

एक्सेल में, आप एक श्रेणी नाम परिभाषित कर सकते हैं, और फिर वर्तमान कार्यपुस्तिका से सभी शीट नामों को सूचीबद्ध करने के लिए एक सूत्र लागू कर सकते हैं, कृपया निम्नलिखित चरणों का पालन करें:

1. क्लिक करने के लिए जाएं सूत्र > नाम प्रबंधक, स्क्रीनशॉट देखें:

2. में नाम प्रबंधक संवाद बॉक्स पर क्लिक करें नया बटन, स्क्रीनशॉट देखें:

3. बाहर निकले में नया नाम संवाद, में एक नाम निर्दिष्ट करें नाम टेक्स्ट बॉक्स, और फिर नीचे दिए गए फॉर्मूले को कॉपी करें को संदर्भित करता है टेक्स्ट बॉक्स, स्क्रीनशॉट देखें:

=GET.WORKBOOK(1)&T(NOW())

4। तब दबायें OK > समापन संवाद बॉक्स बंद करने के लिए, अब, कृपया उस शीट पर जाएँ जहाँ आप सभी शीट नामों को सूचीबद्ध करना चाहते हैं, और फिर एक रिक्त कक्ष में निम्नलिखित सूत्र दर्ज करें:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

नोट: उपरोक्त सूत्र में, शीटनाम वह श्रेणी नाम है जिसे आपने चरण 3 में दर्ज किया है।

5. और फिर रिक्त कक्ष प्रदर्शित होने पर भरण हैंडल को नीचे की ओर खींचें, और अब, वर्तमान कार्यपुस्तिका के सभी शीट नाम नीचे दिखाए गए स्क्रीनशॉट के अनुसार सूचीबद्ध किए गए हैं:

6. यदि आप प्रत्येक शीट के लिए हाइपरलिंक बनाना चाहते हैं, तो कृपया नीचे दिए गए सूत्र का उपयोग करें:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

नोट: उपरोक्त सूत्र में, A2 वह सेल है जिसमें शीट का नाम है, और A1 वह सेल है जहां आप सक्रिय सेल को स्थित करना चाहते हैं। उदाहरण के लिए, यदि आप हाइपरलिंक टेक्स्ट पर क्लिक करते हैं, तो यह शीट के सेल A1 का पता लगाएगा।

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

एक उपयोगी सुविधा के साथ किसी कार्यपुस्तिका से सभी कार्यपत्रक नामों की सूची प्राप्त करें

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

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1. क्लिक करें कुटूल्स प्लस > वर्कशीट > शीट नामों की सूची बनाएं, स्क्रीनशॉट देखें:

2. में शीट नामों की सूची बनाएं संवाद बॉक्स में, कृपया निम्नलिखित सेटिंग्स निर्दिष्ट करें:

(1.)चुनें शीट सूचकांक शैलियाँ आप चाहें, तो आप हाइपरलिंक या मैक्रो बटन के साथ वर्कशीट नाम बना सकते हैं। (2.) शीट इंडेक्स के लिए वर्कशीट नाम दर्ज करें। (3.) वर्कशीट इंडेक्स का स्थान निर्दिष्ट करें। (4.) निर्दिष्ट करें कि आप वर्कशीट नाम प्रदर्शित करने के लिए नई वर्कशीट में कितने कॉलम का उपयोग करना चाहते हैं।

3. सेटिंग्स ख़त्म करने के बाद क्लिक करें OK. सभी वर्कशीट के नाम वर्तमान वर्कबुक की नई वर्कशीट में लिंक के साथ सूचीबद्ध किए गए हैं। स्क्रीनशॉट देखें:

हाइपरलिंक के साथ वर्कशीट के नाम	मैक्रो बटन के साथ वर्कशीट नाम

VBA कोड वाली कार्यपुस्तिका से सभी कार्यपत्रक नामों की सूची प्राप्त करें

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

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

वीबीए: एक नई वर्कशीट में हाइपरलिंक के साथ सभी वर्कशीट नामों की सूची बनाएं:

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

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

संबंधित लेख