वर्कबुक में सभी वर्कशीट का हाइपरलिंक इंडेक्स बनाएं
आइए मैक्रो को एक कार्यपुस्तिका में सभी शीट्स को एक कदम आगे सूचीबद्ध करने के लिए ले जाएं और कार्यपुस्तिका में प्रत्येक शीट के लिए एक हाइपरलिंक्ड मेनू बनाएं। यह किसी ऐसे व्यक्ति के लिए एक अच्छा समय बचाने वाला है जिसके पास कई पत्रक हैं और हर एक के लिए मैन्युअल रूप से हाइपरलिंक का एक मेनू बनाने का प्रयास कर रहा है।
मैक्रो का उपयोग करने के लिए कोड में शीट 1 (यह दो बार दिखाई देता है) शब्द को टैब नाम से बदलें जहां आप परिणाम चाहते हैं। सुनिश्चित करें कि आउटपुट टैब पर कोई महत्वपूर्ण जानकारी नहीं है क्योंकि यह डेटा को लिखने से पहले साफ़ करता है। मैक्रो के चलने के बाद, प्रत्येक शीट के लिए हाइपरलिंक वाली प्रत्येक शीट की एक सूची बनाई जाती है।
1234567891011121314151617181920 | उप सूची पत्रक ()वर्कशीट के रूप में डिम WSमंद x पूर्णांक के रूप मेंएक्स = 1शीट्स ("शीट 1")। रेंज ("ए: ए")। साफ़ करेंवर्कशीट में प्रत्येक ws के लिएशीट्स ("शीट 1")। सेल (x, 1)। चुनेंएक्टिवशीट.हाइपरलिंक्स.जोड़ें_एंकर: = चयन, पता: = "", उप-पता: = _ws.Name और "!A1", TextToDisplay:=ws.Nameएक्स = एक्स + 1अगला wsअंत उप |