Mkpokọta cell (nchịkọta)

Ọtụtụ mgbe, ọnọdụ na-ebilite mgbe anyị kwesịrị ichikota (ịchịkọta) ọtụtụ ụkpụrụ wee banye n'otu cell:

Ndị ahụ. Ọ bụrụ, dịka ọmụmaatụ, itinye nọmba 1 na cell A5, mgbe ahụ nọmba 1 kwesịrị ịpụta na B15. Ọ bụrụ na ị tinye nọmba 1 na A7, mgbe ahụ 1 kwesịrị ịpụta na cell B22, na ihe ndị ọzọ. N'ozuzu, ihe ndekọ ego (na ọ bụghị naanị ha) na-akpọ mkpokọta mkpokọta.

Ị nwere ike mejuputa cell-accumulator nchekwa dị otú ahụ site na iji nnukwu macro dị mfe. Pịa aka nri na taabụ mpempe akwụkwọ ebe sel A1 na B1 dị wee họrọ site na menu onodu Ederede isi mmalite Koodu isi mmalite. Na mpio ihe ndezi Visual Basic na-emepe, detuo na mado koodu macro dị mfe:

Nkeonwe 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") .Uru = Oke(" A2").Uru + .Uru Ngwa.EnableEvents = Ezi Ọgwụgwụ ma Ọ bụrụ Ọgwụgwụ ma Ọ bụrụ Ọgwụgwụ na Sub Ọgwụgwụ  

Adreesị nke mkpụrụ ndụ A1 na A2, n'ezie, enwere ike iji nke gị dochie ya.

Ọ bụrụ na ịchọrọ ịgbaso ntinye data wee chịkọta ọ bụghị mkpụrụ ndụ n'otu n'otu, mana ọnụọgụ dị iche iche, mgbe ahụ a ga-agbanwe nnukwu macro:

Nkeonwe Sub Worksheet_Change (ByVal Target Dị ka Excel.Range) Ọ bụrụ na Ọ bụghị Intersect (Target, Range ("A1: A10")) Ọ dịghị Ihe Mgbe ahụ Ọ bụrụ na IsNumeric (Target.Value) Mgbe ahụ Application.EnableEvents = Ụgha Target.Offset(0, 1) .Uru = Target.Offset(0, 1) .Uru + Target.Uru Ngwa.EnableEvents = Ezi Ọgwụgwụ Ọ bụrụ Ọgwụgwụ Ọ bụrụ Ọgwụgwụ Sub  

A na-eche na a na-abanye data na sel nke oke A1: A10, na ọnụ ọgụgụ ndị abanyela na-achịkọta na kọlụm dị n'akụkụ aka nri. Ọ bụrụ na n'ọnọdụ gị ọ bụghị n'akụkụ, wee bulie ngbanwe gaa n'aka nri na onye ọrụ Offset - jiri nọmba buru ibu dochie 1.

• Kedu ihe bụ macros, ebe itinye koodu macro na VBA, otu esi eji ha?