Cumulative cell (cumulative)

Kazhinji, mamiriro ezvinhu anomuka patinenge tichida kupfupisa (kuunganidza) akati wandei maitiro akateedzana achipinda muchitokisi chimwe:

Avo. kana, semuenzaniso, ukaisa nhamba 1 muchitokisi A5, ipapo nhamba 1 inofanira kuonekwa muB15. Kana iwe ukazoisa nhamba 1 muA7, ipapo 1 inofanira kuonekwa muchitokisi B22, zvichingodaro. Kazhinji, ndeapi maakaunti (uye kwete ivo chete) vanodana kuwanda kwehuwandu.

Iwe unogona kushandisa yakadaro yekuchengetedza cell-accumulator uchishandisa yakapusa macro. Tinya-kurudyi pane pepa tebhu uko maseru A1 neB1 anowanikwa uye sarudza kubva pane yemukati menyu Kwakabva mavara (Source Code). MuVisual Basic mupepeti hwindo rinovhura, kopira uye unamate iyo yakapfava macro kodhi:

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 If End If End With End Sub  

Makero emasero A1 uye A2, hongu, anogona kutsiviwa neyako.

Kana iwe uchida kuteedzera kupinda kwedata uye kupfupisa kwete maseru ega, asi mazinga akazara, saka iyo macro ichafanirwa kuchinjwa zvishoma:

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1:A10")) Harisi Chinhu Zvino Kana IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Offset(0, 1) .Value = Target.Offset(0, 1).Value + Target.Value Application.EnableEvents = True End If End If End Sub  

Zvinofungidzirwa kuti data inopindirwa mumasero emhando A1: A10, uye nhamba dzakapinda dzinopfupikiswa muchikamu chiri padyo kurudyi. Kana mune yako isiri pedyo, wobva wawedzera kuchinjika kurudyi mune Offset opareta - tsiva 1 nenhamba yakakura.

• Chii macros, kupi kwekuisa macro kodhi muVBA, maitiro ekuishandisa?