संचयी कक्ष (संचयी)

प्रायः, परिस्थिति उत्पन्न हुन्छ जब हामीले एक कक्षमा क्रमिक रूपमा प्रविष्ट गरिएका धेरै मानहरू (सञ्चित) गर्न आवश्यक हुन्छ:

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

तपाईं साधारण म्याक्रो प्रयोग गरेर यस्तो भण्डारण सेल-सञ्चयकर्ता लागू गर्न सक्नुहुन्छ। पाना ट्याबमा दायाँ क्लिक गर्नुहोस् जहाँ कक्ष A1 र B1 अवस्थित छन् र सन्दर्भ मेनुबाट चयन गर्नुहोस्। स्रोत पाठ (स्रोत कोड)। खुल्ने भिजुअल बेसिक सम्पादक विन्डोमा, साधारण म्याक्रो कोड प्रतिलिपि गरेर टाँस्नुहोस्:

Private Sub Worksheet_Change(ByVal Target as Excel.Range) यदि .Address(False, False) = "A1" त्यसपछि यदि IsNumeric(.Value) तब Application।EnableEvents = False Range("A2")।Value = दायरा(" A2")।Value + .Value Application।EnableEvents = True End यदि End यदि End Sub को साथ अन्त्य हुन्छ।  

कक्ष A1 र A2 को ठेगानाहरू, अवश्य पनि, तपाइँको आफ्नै संग प्रतिस्थापन गर्न सकिन्छ।

यदि तपाइँ डाटा प्रविष्टि ट्र्याक गर्न र व्यक्तिगत कक्षहरू होइन, तर सम्पूर्ण दायराहरू संक्षेप गर्न आवश्यक छ भने, त्यसपछि म्याक्रो थोरै परिवर्तन गर्नुपर्नेछ:

निजी उपकार्यपत्र_परिवर्तन(ByVal Target as Excel.Range) यदि छेउछैन भने(लक्ष्य, दायरा("A1:A10")) केहि पनि होइन यदि IsNumeric(Target.Value) तब Application.EnableEvents = False Target.Offset(0) .value = Target.Offset(1, 0).Value + Target.Value Application.EnableEvents = True End यदि End यदि End Sub  

यो मानिन्छ कि डाटा दायरा A1:A10 को कक्षहरूमा प्रविष्ट गरिएको छ, र प्रविष्ट गरिएका संख्याहरू दायाँको छेउछाउको स्तम्भमा संक्षेप गरिएका छन्। यदि तपाइँको मामला मा यो छेउछाउ छैन भने, त्यसपछि अफसेट अपरेटर मा दायाँ तिर शिफ्ट बढाउनुहोस् - 1 लाई ठूलो संख्या संग बदल्नुहोस्।

• म्याक्रोहरू के हुन्, VBA मा म्याक्रो कोड कहाँ घुसाउने, कसरी प्रयोग गर्ने?