Yn aml iawn, mae sefyllfa'n codi pan fydd angen i ni grynhoi (cronni) sawl gwerth sy'n cael eu rhoi mewn un gell yn olynol:
Y rhai. os, er enghraifft, rydych chi'n nodi'r rhif 1 yng nghell A5, yna dylai'r rhif 1 ymddangos yn B15. Os byddwch wedyn yn nodi'r rhif 1 yn A7, yna dylai 1 ymddangos yng nghell B22, ac ati. Yn gyffredinol, yr hyn y mae cyfrifwyr (ac nid hwy yn unig) yn ei alw'n gyfanswm cronnus.
Gallwch chi weithredu cell-cronadur storio o'r fath gan ddefnyddio macro syml. De-gliciwch ar y tab dalen lle mae celloedd A1 a B1 wedi'u lleoli a dewiswch o'r ddewislen cyd-destun Testun ffynhonnell (Cod Ffynhonnell). Yn y ffenestr golygydd Visual Basic sy'n agor, copïwch a gludwch y cod macro syml:
Is-Daflen Waith Breifat_Change(ByVal Target As Excel.Range) Gyda Tharged Os .Address(Gau, False) = "A1" Yna Os IsNumeric(.Value) Yna Application.EnableEvents = Ystod Anwir("A2").Gwerth = Ystod(" A2").Value + .Value Application.EnableEvents = Diwedd Gwir Os Diwedd Os Diwedd Gyda Diwedd Is Gall cyfeiriadau celloedd A1 ac A2, wrth gwrs, gael eu disodli gan eich un chi.
Os oes angen i chi olrhain mewnbynnu data a chrynhoi nid celloedd unigol, ond ystodau cyfan, yna bydd yn rhaid newid y macro ychydig:
Is-Daflen Waith Breifat_Newid(Targed ByVal Fel Excel.Range) Os Ddim yn Croestorri(Targed, Ystod ("A1:A10")) Onid Dim Yna Os IsRhifol(Targed.Gwerth) Yna Application.EnableEvents = Targed Anghywir.Gwrthbwyso(0, 1) .Gwerth = Targed.Offset(0, 1).Gwerth + Target.Value Application.EnableEvents = Diwedd Gwir Os Diwedd Os Diwedd Is Tybir bod data'n cael ei fewnbynnu yng nghelloedd yr ystod A1:A10, ac mae'r rhifau a gofnodwyd yn cael eu crynhoi yn y golofn gyfagos ar y dde. Os yn eich achos chi nad yw'n gyfagos, yna cynyddwch y sifft i'r dde yn y gweithredwr Offset - rhowch rif mwy yn lle 1.
- Beth yw macros, ble i fewnosod cod macro yn VBA, sut i'w defnyddio?