Kumulatibo nga selula (kumulatibo)

Kasagaran, ang usa ka sitwasyon mitungha kung kinahanglan naton nga i-sum up (pagtipon) ang daghang mga kantidad nga sunud-sunod nga gisulod sa usa ka cell:

Mga. kung, pananglitan, imong gisulod ang numero 1 sa cell A5, nan ang numero 1 kinahanglan nga makita sa B15. Kung imong gisulod ang numero 1 sa A7, nan ang 1 kinahanglan nga makita sa cell B22, ug uban pa. Sa kinatibuk-an, unsa ang gitawag sa mga accountant (ug dili lamang sila) nga usa ka kumulatibo nga total.

Mahimo nimong ipatuman ang ingon nga storage cell-accumulator gamit ang usa ka yano nga macro. Pag-right-click sa tab nga sheet diin nahimutang ang mga cell A1 ug B1 ug pilia gikan sa menu sa konteksto Tinubdan nga teksto (Source Code). Sa bintana sa editor sa Visual Basic nga magbukas, kopyaha ug idikit ang yano nga macro code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target Kung .Address(False, False) = "A1" Then If IsNumeric(.Value) Unya Application.EnableEvents = False Range("A2").Value = Range(" A2").Value + .Value Application.EnableEvents = Tinuod nga Katapusan Kung Katapusan Kung Katapusan Sa End Sub  

Ang mga adres sa mga cell A1 ug A2, siyempre, mahimong pulihan sa imong kaugalingon.

Kung kinahanglan nimo nga sundan ang pagsulod sa datos ug i-summarize dili ang indibidwal nga mga selyula, apan ang tibuuk nga mga han-ay, nan ang macro kinahanglan nga usbon gamay:

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Kung Dili Intersect(Target, Range("A1:A10")) Wala Na Kung IsNumeric(Target.Value) Unya Application.EnableEvents = False Target.Offset(0, 1) .Value = Target.Offset(0, 1).Value + Target.Value Application.EnableEvents = Tinuod nga Katapusan Kung Katapusan Kung End Sub  

Gituohan nga ang datos gisulod sa mga selula sa range A1:A10, ug ang gisulod nga mga numero gisumada sa kasikbit nga kolum sa tuo. Kung sa imong kaso dili kini kasikbit, unya dugangi ang pagbalhin sa tuo sa Offset operator - ilisan ang 1 sa usa ka mas dako nga numero.

• Unsa ang mga macros, kung asa ibutang ang macro code sa VBA, unsaon paggamit niini?