Mara nyingi, hali hutokea wakati tunahitaji kuhitimisha (kukusanya) maadili kadhaa yaliyoingizwa kwenye seli moja:
Wale. ikiwa, kwa mfano, unaingiza nambari 1 kwenye kiini A5, basi nambari 1 inapaswa kuonekana katika B15. Ikiwa basi ingiza nambari 1 katika A7, basi 1 inapaswa kuonekana kwenye kiini B22, na kadhalika. Kwa ujumla, ni wahasibu gani (na sio wao tu) huita jumla ya jumla.
Unaweza kutekeleza kikusanyiko cha seli kama hicho kwa kutumia macro rahisi. Bonyeza kulia kwenye kichupo cha karatasi ambapo seli A1 na B1 ziko na uchague kutoka kwa menyu ya muktadha Maandishi ya chanzo (Msimbo wa Chanzo). Katika dirisha la mhariri wa Visual Basic linalofungua, nakili na ubandike msimbo rahisi wa jumla:
Binafsi Laha ya Kazi_Change(ByVal Target Kama Excel.Range) Yenye Lengo Ikiwa .Address(False, False) = "A1" Kisha Ikiwa IsNumeric(.Value) Kisha Application.EnableEvents = False Range("A2").Thamani = Masafa(" A2").Thamani + .Thamani ya Maombi.EnableEvents = Mwisho wa Kweli Ikiwa Mwisho Ikiwa Mwisho na Ndogo ya Mwisho Anwani za seli A1 na A2, bila shaka, zinaweza kubadilishwa na yako mwenyewe.
Ikiwa unahitaji kufuatilia ingizo la data na muhtasari sio seli za kibinafsi, lakini safu nzima, basi jumla italazimika kubadilishwa kidogo:
Laha-Kazi ya Kibinafsi_Change(ByVal Target Kama Excel.Range) Ikiwa Haiingiliani(Lengo, Masafa("A1:A10")) Si Kitu Basi Ikiwa IsNumeric(Target.Value) Kisha Application.EnableEvents = False Target.Offset(0, 1) .Thamani = Target.Offset(0, 1).Thamani + Target.Value Application.EnableEvents = Kweli Mwisho Ikiwa Mwisho Ikiwa Mwisho Ndogo. Inachukuliwa kuwa data imeingizwa katika seli za masafa A1:A10, na nambari zilizoingizwa zinajumuishwa katika safu wima iliyo karibu upande wa kulia. Ikiwa katika kesi yako haipo karibu, kisha uongeze mabadiliko kwa haki katika operator wa Offset - badala ya 1 na idadi kubwa zaidi.
- Je, ni macros, wapi kuingiza msimbo wa jumla katika VBA, jinsi ya kutumia?