छिपी हुई एक्सेल स्प्रेडशीट की सूची बनाएं

VBA का उपयोग करके छिपी हुई तालिकाओं की सूची कैसे बनाएं?

आप "फॉर्मेट - शीट - हाइड" कमांड से वर्कबुक की शीट्स को अदृश्य बना सकते हैं। फिर भी सूत्र का उपयोग करके तालिका सामग्री तक पहुंच संभव है, लेकिन तालिका अब दिखाई नहीं दे रही है।

यदि आपको सक्रिय कार्यपुस्तिका में सभी छिपे हुए कार्यपत्रकों की सूची की आवश्यकता है, तो आप निम्न मैक्रो का उपयोग कर सकते हैं:

उप सूचीहिडनटेबल्सऑन ()
वर्कशीट के रूप में डिम टेबल, वर्कशीट के रूप में न्यूटेबल
कार्यपुस्तिका के रूप में मंद करंटमैप
डिम आई अस इंटीजर
करंटमैप सेट करें = एक्टिववर्कबुक
नियूटेबेल सेट करें = कार्यपुस्तिकाएं। जोड़ें। शीट्स (1)
CurrentMappe.Worksheets में प्रत्येक तालिका के लिए
यदि तालिका। दृश्यमान = असत्य तो
मैं = मैं + 1
NewTable.Cells (i, 1) .Value = Table.Name
अगर अंत
अगली तालिका
अंत उप

मैक्रो सभी कार्यपत्रकों के माध्यम से लूप करता है और संपत्ति की जांच करता है दृश्यमान. यदि यह संतुष्ट नहीं है, तो यह एक छिपी हुई स्प्रेडशीट है। फिर शीट का नाम सूची में स्थानांतरित कर दिया जाता है।

मैक्रो एक नई कार्यपुस्तिका में एक तालिका में सभी छिपे हुए कार्यपत्रकों के नाम सूचीबद्ध करता है।

यह आंकड़ा मैक्रो का परिणाम दिखाता है जब सक्रिय कार्यपुस्तिका में तीन छिपे हुए कार्यपत्रक होते हैं: "हिडन", "हिडन" और "इनविजिबल"।

युक्ति: यदि आप जानना चाहते हैं कि Excel में मैक्रो कैसे दर्ज करें और प्रारंभ करें, तो आपको यहां एक संक्षिप्त विवरण मिलेगा:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html