ക്യുമുലേറ്റീവ് സെൽ (ക്യുമുലേറ്റീവ്)

മിക്കപ്പോഴും, ഒരു സെല്ലിലേക്ക് തുടർച്ചയായി നൽകിയ നിരവധി മൂല്യങ്ങൾ സംഗ്രഹിക്കേണ്ടിവരുമ്പോൾ (സഞ്ചയിക്കുക) ഒരു സാഹചര്യം ഉണ്ടാകുന്നു:

ആ. ഉദാഹരണത്തിന്, നിങ്ങൾ A1 സെല്ലിൽ നമ്പർ 5 നൽകിയാൽ, നമ്പർ 1 B15 ൽ ദൃശ്യമാകും. നിങ്ങൾ A1-ൽ നമ്പർ 7 നൽകുകയാണെങ്കിൽ, 1 സെല്ലിൽ B22-ലും മറ്റും ദൃശ്യമാകും. പൊതുവേ, അക്കൗണ്ടന്റുമാർ (അവരെ മാത്രമല്ല) ഒരു ക്യുമുലേറ്റീവ് ടോട്ടൽ എന്ന് വിളിക്കുന്നു.

ഒരു ലളിതമായ മാക്രോ ഉപയോഗിച്ച് നിങ്ങൾക്ക് അത്തരമൊരു സ്റ്റോറേജ് സെൽ-അക്യുമുലേറ്റർ നടപ്പിലാക്കാൻ കഴിയും. A1, B1 സെല്ലുകൾ സ്ഥിതി ചെയ്യുന്ന ഷീറ്റ് ടാബിൽ റൈറ്റ് ക്ലിക്ക് ചെയ്ത് സന്ദർഭ മെനുവിൽ നിന്ന് തിരഞ്ഞെടുക്കുക ഉറവിട വാചകം (സോഴ്സ് കോഡ്). തുറക്കുന്ന വിഷ്വൽ ബേസിക് എഡിറ്റർ വിൻഡോയിൽ, ലളിതമായ മാക്രോ കോഡ് പകർത്തി ഒട്ടിക്കുക:

പ്രൈവറ്റ് സബ് വർക്ക്ഷീറ്റ്_ചേഞ്ച്(ByVal Target as Excel.Range) എന്ന ലക്ഷ്യത്തോടെ .വിലാസം (തെറ്റായ, തെറ്റ്) = "A1" എങ്കിൽ സംഖ്യാ(.മൂല്യം) ആണെങ്കിൽ, Application.EnableEvents = തെറ്റായ ശ്രേണി("A2").മൂല്യം = റേഞ്ച്(" A2").Value + .value Application.EnableEvents = True End If End If End With End Sub  

A1, A2 സെല്ലുകളുടെ വിലാസങ്ങൾ തീർച്ചയായും നിങ്ങളുടേതായി മാറ്റിസ്ഥാപിക്കാം.

നിങ്ങൾക്ക് ഡാറ്റാ എൻട്രി ട്രാക്ക് ചെയ്യുകയും വ്യക്തിഗത സെല്ലുകളല്ല, മുഴുവൻ ശ്രേണികളും സംഗ്രഹിക്കുകയും ചെയ്യണമെങ്കിൽ, മാക്രോ ചെറുതായി മാറ്റേണ്ടതുണ്ട്:

പ്രൈവറ്റ് സബ് വർക്ക്ഷീറ്റ്_മാറ്റം (എക്‌സൽ. റേഞ്ച് ആയി ബൈവാൾ ടാർഗെറ്റ്) വിഭജിച്ചില്ലെങ്കിൽ (ടാർഗെറ്റ്, റേഞ്ച് ("എ1: എ 10")) ഒന്നുമല്ല, ന്യൂമെറിക് ആണെങ്കിൽ (ടാർഗെറ്റ്. മൂല്യം) തുടർന്ന് ആപ്ലിക്കേഷൻ. എനബിൾ ഇവന്റുകൾ = തെറ്റായ ടാർഗെറ്റ്. ഓഫ്സെറ്റ് (0, 1) .മൂല്യം = ടാർഗെറ്റ്.ഓഫ്സെറ്റ്(0, 1).മൂല്യം + ടാർഗെറ്റ്.മൂല്യ പ്രയോഗം.EnableEvents = True End If End Sub End  

A1:A10 ശ്രേണിയുടെ സെല്ലുകളിൽ ഡാറ്റ നൽകിയിട്ടുണ്ടെന്ന് അനുമാനിക്കപ്പെടുന്നു, കൂടാതെ നൽകിയ നമ്പറുകൾ വലതുവശത്തുള്ള തൊട്ടടുത്ത കോളത്തിൽ സംഗ്രഹിച്ചിരിക്കുന്നു. നിങ്ങളുടെ കാര്യത്തിൽ അത് തൊട്ടടുത്തല്ലെങ്കിൽ, ഓഫ്സെറ്റ് ഓപ്പറേറ്ററിൽ വലതുവശത്തേക്ക് ഷിഫ്റ്റ് വർദ്ധിപ്പിക്കുക - 1 ഒരു വലിയ സംഖ്യ ഉപയോഗിച്ച് മാറ്റിസ്ഥാപിക്കുക.

• എന്താണ് മാക്രോകൾ, വിബിഎയിൽ മാക്രോ കോഡ് എവിടെ ചേർക്കണം, അവ എങ്ങനെ ഉപയോഗിക്കാം?