संचयी सेल (संचयी)

अक्सर, ऐसी स्थिति उत्पन्न होती है जब हमें एक सेल में क्रमिक रूप से दर्ज किए गए कई मानों को योग (संचित) करने की आवश्यकता होती है:

वे। यदि, उदाहरण के लिए, आप सेल A1 में नंबर 5 दर्ज करते हैं, तो नंबर 1 B15 में दिखाई देना चाहिए। यदि आप A1 में नंबर 7 दर्ज करते हैं, तो 1 सेल B22 में दिखाई देना चाहिए, और इसी तरह। सामान्य तौर पर, कौन से एकाउंटेंट (और न केवल उन्हें) एक संचयी कुल कहते हैं।

आप एक साधारण मैक्रो का उपयोग करके ऐसे स्टोरेज सेल-संचयक को कार्यान्वित कर सकते हैं। शीट टैब पर राइट-क्लिक करें जहां सेल A1 और B1 स्थित हैं और संदर्भ मेनू से चयन करें स्रोत इबारत (सोर्स कोड). खुलने वाली Visual Basic संपादक विंडो में, साधारण मैक्रो कोड को कॉपी और पेस्ट करें:

निजी उप वर्कशीट_चेंज (एक्सेल के रूप में बायवैल लक्ष्य। रेंज) लक्ष्य के साथ यदि। पता (गलत, गलत) = "ए 1" तो यदि संख्यात्मक (मान) है तो आवेदन। सक्षम करें = झूठी सीमा ("ए 2")। मान = रेंज (" A2")। मान + .Value Application.EnableEvents = ट्रू एंड इफ एंड इफ एंड एंड विथ एंड सब  

कोशिकाओं A1 और A2 के पते, निश्चित रूप से, आपके द्वारा प्रतिस्थापित किए जा सकते हैं।

यदि आपको डेटा प्रविष्टि को ट्रैक करने और अलग-अलग कक्षों को नहीं, बल्कि संपूर्ण श्रेणियों को सारांशित करने की आवश्यकता है, तो मैक्रो को थोड़ा बदलना होगा:

निजी सब वर्कशीट_चेंज (एक्सेल के रूप में बायवैल टारगेट। रेंज) अगर इंटरसेक्ट नहीं है (टारगेट, रेंज ("ए 1: ए 10")) कुछ भी नहीं है तो अगर इज़न्यूमेरिक (टारगेट। वैल्यू) है तो एप्लीकेशन। इनेबलइवेंट्स = फाल्स टारगेट। ऑफसेट (0, 1) .Value = Target.Offset(0, 1).Value + Target.Value Application.EnableEvents = True End if End End Sub के रूप में  

यह माना जाता है कि डेटा A1:A10 श्रेणी के कक्षों में दर्ज किया गया है, और दर्ज की गई संख्याओं को दाईं ओर आसन्न कॉलम में संक्षेपित किया गया है। यदि आपके मामले में यह आसन्न नहीं है, तो ऑफसेट ऑपरेटर में दाईं ओर शिफ्ट बढ़ाएं - 1 को बड़ी संख्या से बदलें।

• मैक्रोज़ क्या हैं, वीबीए में मैक्रो कोड कहाँ डालें, उनका उपयोग कैसे करें?