एक्सेल कैसे एक ही नाम के साथ सभी कोशिकाओं को योग करने के लिए

Question

मेरे पास 30 या अधिक शीट के साथ एक कार्यपुस्तिका है। विशेष रूप से, प्रत्येक शीट एक इनवॉइस, परिवर्तन क्रम, आदि हो सकती है जैसे कि प्रत्येक शीट का प्रारूप अगले के समान नहीं है।

प्रत्येक शीट पर नामित सीमा कुल उस शीट पर एक या अधिक यादृच्छिक कोशिकाओं को संदर्भित कर सकती है। आखिरी शीट पर, मैं चाहता हूं कि एक सेल कुल नाम की सभी कोशिकाओं का योग दिखाए ।

चादरों की संख्या भिन्न हो सकती है। मैं पिवट टेबल का उपयोग नहीं करना चाहता।

क्या यह संभव है?

परिशिष्ट : नीचे दिया गया फॉर्मूला उन सभी कोशिकाओं को लौटाएगा जो किसी भी सूचीबद्ध शीट पर किसी भी नाम " कुल " से संबंधित हैं , लेकिन मैं इसे स्वचालित करना चाहूंगा, इसलिए मुझे मैन्युअल रूप से सभी शीट नामों को जोड़ने की आवश्यकता नहीं है। कुल नाम प्रत्येक पत्रक पर एक सेल या कोशिकाओं के किसी भी संग्रह को संदर्भित कर सकता है। वास्तविक उपयोग में, शीट नाम कोई भी यादृच्छिक नाम हो सकता है। इसलिए, मैं उस कोड की तलाश कर रहा हूं जो प्रत्येक शीट पर दिखेगा, और यदि शीट में कुल नाम है तो यह समीकरण में + S (शीटनाम! - (कुल) को जोड़ता है। SUM फ़ंक्शन आवश्यक है ताकि यदि दो या हों। नाम की श्रेणी में प्रति शीट अधिक कोशिकाएं, फिर उन्हें ग्रैंडटोटल में शामिल किया गया है। = SUM (पत्रक 1! कुल) + योग (Sheet2! कुल) + योग (पत्रक 3! कुल) + योग (Sheet4! कुल)

एक अन्य उदाहरण : निम्नलिखित दिखाता है कि मुझे क्यों लगता है कि मैं एक ही कदम में क्या करना चाहता हूं। सूत्र = GET.CELL (48, INDIRECT ("आरसी", 0)) एक वास्तविक समय गतिशील नाम "सूत्र" बनाता है जिसमें कार्यपुस्तिका में प्रत्येक कक्ष शामिल होता है जिसमें एक सूत्र होता है। आप तब सशर्त रूप से सभी कक्षों को छायांकित पृष्ठभूमि के लिए स्वरूपित कर सकते हैं जब कक्ष में सूत्र होता है।

इसलिए, मैं एक फंक्शन की तलाश कर रहा हूँ जैसे: GrandTotal = SUM (GET.CELL ("Total", INDERECT ("rc", 0)) जहाँ कुल किसी भी सेल में इफ़ेक्ट होता है जो टोटल नाम की रेंज से संबंधित है ।

Comments

कृपया ध्यान दें कि सुपर उपयोगकर्ता एक स्क्रिप्ट लेखन सेवा नहीं है। यदि आप हमें बताते हैं कि आपने अब तक क्या (किसी भी स्क्रिप्ट का उपयोग कर रहे हैं) और जहां आप फंस गए हैं, तो हम विशिष्ट समस्याओं के साथ मदद करने की कोशिश कर सकते हैं। आपको यह भी पढ़ना चाहिए कि मैं एक अच्छा सवाल कैसे पूछूं? ।

— DavidPostill

पहली बार में, आपने एक ही नाम अलग-अलग शीट में कैसे दिया? मैं एक्सेल २०१६ पर हूं और मैं आपकी स्थिति को दोहराने में असमर्थ हूं

— प्रसन्ना

प्रसन्ना - एक्सेल में नामित स्तरों के दो स्तर हैं, कार्यपुस्तिका स्तर, और कार्यपत्रक स्तर। इसे बदलने का एक तरीका यहां दिया गया है: एक एकल रिक्त शीट से शुरू करें। अपनी सीमाओं को नाम दें; ये बहुधा डिफ़ॉल्ट रूप से वर्कबुक स्तर की रेंज होंगे। अब शीट टैब पर राइट क्लिक करें और एक नई शीट पर कॉपी करें। नई शीट में वर्कशीट लेवल रेंज होगी। मूल शीट को हटा दें। यदि आप शीट की प्रतियां बनाना जारी रखते हैं, तो वे वर्कशीट नाम की श्रेणी के होंगे।

— डिक्की डंकिन

Formulasएक सूत्र के साथ कोशिकाओं को छाया करने के लिए नामित सीमा के साथ अपने उदाहरण के बारे में : आपके द्वारा दिया गया सूत्र उस नामित श्रेणी के रूप में काम नहीं करता है जिस पर आप कार्य कर सकते हैं। यह TRUEया तो लौटता है या FALSEइस पर निर्भर करता है कि किसी विशेष सेल का इसमें कोई फॉर्मूला है या नहीं। यदि आप इसे सशर्त स्वरूपण के लिए उपयोग करते हैं और इसे बड़ी रेंज में लागू करते हैं, तो यह प्रत्येक सेल का व्यक्तिगत रूप से मूल्यांकन करेगा।

— इंजीनियर टोस्ट

इसके बारे में अधिक जानने के लिए Get.Cell, यहां देखें

— इंजीनियर टोस्ट

Answer 1

आप प्रत्येक चालान के लिए सारांश शीट 2 कॉलम में लिख सकते हैं शीट का नाम लिखें

चालान कुल
शीट 1

Sheet2

Sheet7

यदि शीट 1 A2 में है, तो दूसरे कॉलम में:

=INDIRECT(A2&"!"&"total") आपके पास कुल चालान का मूल्य होगा तब आप इसे ग्रैंड कुल के लिए जोड़ सकते हैं

Answer 2

पुराना सवाल है, लेकिन शायद यह उसी समस्या के साथ किसी की मदद करता है। मेरे पास एक ही मुद्दा था और इसके लिए एक फ़ंक्शन लिखा था:

Public Function SumNamedRanges(nm As String) As Double
    Dim sh As Worksheet
    Dim test As Range
    For Each sh In Sheets
        '  check if the named range exists
        On Error Resume Next
        Set test = sh.Range(nm)
        If Err.Number = 0 Then
            On Error GoTo 0
            '  sum the ranges
            SumNamedRanges = SumNamedRanges + _
            Application.WorksheetFunction.Sum(test)
        Else
            On Error GoTo 0
        End If
    Next
End Function

हालांकि, फ़ंक्शन स्वयं को पुनर्गणना नहीं करता है