Cukup asring, ana kahanan nalika kita kudu nyimpulake (nglumpukake) sawetara nilai sing dilebokake ing sel siji:
Sing. yen, contone, sampeyan ngetik nomer 1 ing sel A5, banjur nomer 1 kudu katon ing B15. Yen sampeyan banjur ngetik angka 1 ing A7, banjur 1 kudu katon ing sel B22, lan sateruse. Umumé, apa akuntan (lan ora mung wong) nelpon total kumulatif.
Sampeyan bisa ngleksanakake panyimpenan sel-akumulator kuwi nggunakake makro prasaja. Klik-tengen ing tab sheet ing ngendi sel A1 lan B1 dumunung lan pilih saka menu konteks Teks sumber (Kode Sumber). Ing jendhela editor Visual Basic sing mbukak, salin lan tempel kode makro sing prasaja:
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 Yen End Yen End With End Sub Alamat sel A1 lan A2, mesthi, bisa diganti karo sampeyan dhewe.
Yen sampeyan kudu nglacak entri data lan ngringkes dudu sel individu, nanging kabeh kisaran, makro kudu diganti rada:
Private Sub Worksheet_Change(ByVal Target Minangka Excel.Range) Yen Ora Intersect(Target, Range("A1:A10")) Ora Ana Apa Yen IsNumeric(Target.Value) Banjur Application.EnableEvents = Target Palsu.Offset(0, 1) .Value = Target.Offset(0, 1).Value + Target.Value Application.EnableEvents = True End Yen End If End Sub Dianggep yen data dilebokake ing sel ing kisaran A1: A10, lan nomer sing dilebokake diringkes ing kolom jejer ing sisih tengen. Yen ing kasus sampeyan ora jejer, banjur tambah shift menyang tengen ing operator Offset - ngganti 1 karo nomer luwih gedhe.
- Apa macro, ngendi kanggo masang kode makro ing VBA, carane nggunakake?