Saepius condicio oritur cum plures valores in unam cellam perorare necesse est;
Illae. si verbi gratia, numerum 1 in cellam A5 ingrediaris, numerus 1 in B15 compareat. Si igitur numerum 1 in A7 ingrediaris, 1 appareat in cellula B22, et sic deinceps. In genere, quod tabularii (et non solum illos) vocant totum cumulativum.
Talem cellam accumulatorem simplici tortor utens efficere potes. Dextra-click in scheda tab ubi cellulae A1 et B1 sita sunt et e menu contexta eligunt Source text (Source Code). In Visual Basic editor fenestra aperiens, effingo et crustulum in codice macro simplici:
Privata Sub Worksheet_Change(ByVal Target As Excel.Range) Cum Target Si .Address(False, Falsa) = "A1" Deinde Si IsNumeric(.Value) Tunc Application.EnableEvents = Falsus Range ("A2"). Value = Range (" A2 "). Value + .Value Application.EnableEvents = Verum finem si finem si finem Sub finem Inscriptiones cellularum A1 et A2, sane cum tuis propriis restitui possunt.
Si data ingressu indagare debes et non singulas cellulas, sed integras iugis compendiari, tortor leviter mutandus erit;
Privata Sub Worksheet_Change (ByVal Target As Excel.Range) si non secent (Target, Range ("A1: A10")) nihil deinde si IsNumeric (Target.Value) Tunc Application.EnableEvents = False Target.Offset (0, I) .Value = Target.Offset (1, I) .Value + Target.Value Application.EnableEvents = verus finis si finis si finis Sub Ponitur data in cellulis iugi A1:A10, et numeri in- gressi in columna proxima dextra recapitulantur. Si in casu tuo non adiacet, mutationem ius in cinguli operantis auge - 1 cum maiore numero reponere.
- Quae sunt macra, ubi tortor codicem in VBA inserere, quomodo illis uti?