Imvamisa, kuvela isimo lapho sidinga ukuhlanganisa (ukuqongelela) amanani amaningana afakwe ngokulandelana kuseli eyodwa:
Labo. uma, isibonelo, ufaka inombolo 1 kuseli A5, inombolo u-1 kufanele ivele ku-B15. Uma ngabe ufaka inombolo 1 ku-A7, khona-ke u-1 kufanele avele kuseli B22, njalonjalo. Ngokuvamile, yimaphi ama-accountant (hhayi wona kuphela) abiza inani elihlanganisiwe.
Ungasebenzisa i-cell cell-accumulator enjalo usebenzisa i-macro elula. Chofoza kwesokudla kuthebhu yeshidi lapho kutholakala khona amaseli A1 no-B1 bese ukhetha kumenyu yokuqukethwe Umbhalo ongumthombo (Ikhodi Yomthombo). Ewindini lomhleli we-Visual Basic elivulayo, kopisha futhi unamathisele ikhodi ye-macro elula:
I-Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target Uma .Ikheli(Amanga, Amanga) = "A1" Bese Uma IsNumeric(.Value) Bese I-Application.EnableEvents = Ibanga Lamanga("A2").Value = Range(" A2").Value + .Value Application.EnableEvents = Isiphetho Sangempela Uma Iphela Uma Iphetha Ngesiphetho Esingaphansi Amakheli amaseli A1 kanye ne-A2, vele, angathathelwa indawo awakho.
Uma udinga ukulandelela ukufakwa kwedatha futhi ufingqe hhayi amaseli ngamanye, kodwa wonke ububanzi, khona-ke i-macro kuzodingeka ishintshwe kancane:
I-Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1:A10")) Ayilutho Uma I-INumeric(Target.Value) Bese I-Application.EnableEvents = False Target.Offset(0, 1) .Value = Target.Offset(0, 1).Value + Target.Value Application.EnableEvents = Isiphetho Sangempela Uma Kuphela Uma End Sub Kucatshangwa ukuthi idatha ifakwa kumaseli obubanzi A1:A10, futhi izinombolo ezifakiwe zifingqwa kukholamu eseduze kwesokudla. Uma esimweni sakho ingekho eduze, bese ukhuphula ukushintshwa kwesokudla ku-opharetha we-Offset - shintsha u-1 ngenombolo enkulu.
- Ayini ama-macro, lapho ungafaka khona ikhodi ye-macro ku-VBA, ungayisebenzisa kanjani?