Kadalasan, lumilitaw ang isang sitwasyon kapag kailangan nating buuin (mag-ipon) ng ilang mga halaga na sunud-sunod na ipinasok sa isang cell:
Yung. kung, halimbawa, ipinasok mo ang numero 1 sa cell A5, dapat lumitaw ang numero 1 sa B15. Kung pagkatapos ay ilalagay mo ang numero 1 sa A7, 1 ang dapat na lumitaw sa cell B22, at iba pa. Sa pangkalahatan, kung ano ang tinatawag ng mga accountant (at hindi lamang sila) bilang isang pinagsama-samang kabuuan.
Maaari mong ipatupad ang naturang storage cell-accumulator gamit ang isang simpleng macro. Mag-right-click sa tab na sheet kung saan matatagpuan ang mga cell A1 at B1 at pumili mula sa menu ng konteksto Pinagmulan ng teksto (Source Code). Sa window ng Visual Basic editor na bubukas, kopyahin at i-paste ang simpleng macro code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("A2").Value = Range(" A2").Value + .Value Application.EnableEvents = True End Kung End If End With End Sub Ang mga address ng mga cell A1 at A2, siyempre, ay maaaring mapalitan ng iyong sarili.
Kung kailangan mong subaybayan ang pagpasok ng data at ibuod hindi ang mga indibidwal na cell, ngunit ang buong hanay, ang macro ay kailangang bahagyang baguhin:
Private Sub Worksheet_Change(ByVal Target Bilang Excel.Range) Kung Hindi Mag-intersect(Target, Range("A1:A10")) Ay Wala Kung IsNumeric(Target.Value) Pagkatapos Application.EnableEvents = False Target.Offset(0, 1) .Value = Target.Offset(0, 1).Value + Target.Value Application.EnableEvents = True End If End If End Sub Ipinapalagay na ang data ay ipinasok sa mga cell ng hanay na A1:A10, at ang mga ipinasok na numero ay na-summed up sa katabing column sa kanan. Kung sa iyong kaso ay hindi ito katabi, pagkatapos ay dagdagan ang shift sa kanan sa Offset operator - palitan ang 1 ng mas malaking numero.
- Ano ang mga macro, kung saan ilalagay ang macro code sa VBA, paano gamitin ang mga ito?