Tarin tantanin halitta (taruwa)

Contents

Sau da yawa, yanayi yana tasowa lokacin da muke buƙatar taƙaitawa (tara) ƙididdiga da yawa da aka shigar a cikin tantanin halitta ɗaya:

Wadancan. idan, misali, ka shigar da lamba 1 a cikin tantanin halitta A5, to lambar 1 zata bayyana a B15. Idan ka shigar da lamba 1 a A7, to 1 ya kamata ya bayyana a cikin cell B22, da sauransu. Gabaɗaya, abin da akawu (kuma ba su kaɗai ba) ke kira jimlar tarawa.

Kuna iya aiwatar da irin wannan tantanin halitta-accumulator ta amfani da macro mai sauƙi. Danna-dama akan shafin takardar inda sel A1 da B1 suke kuma zaɓi daga menu na mahallin Tushen rubutu (Lambar tushen). A cikin taga editan Visual Basic da ke buɗewa, kwafa da liƙa lambar macro mai sauƙi:

Mai zaman kansa Sub Worksheet_Change (ByVal Target As Excel.Range) Tare da Target Idan .Address (Karya, Ƙarya) = "A1" To Idan IsNumeric (.Value) Sai Application.EnableEvents = Ƙarya Range("A2").Value = Range(" A2").Value + .Value Application.EnableEvents = Gaskiyar Ƙarshen Idan Ƙarshe Idan Ƙarshe Tare da Ƙarshen Ƙarshe  

Adireshin sel A1 da A2, ba shakka, ana iya maye gurbinsu da naku.

Idan kuna buƙatar bin hanyar shigar da bayanai kuma taƙaita ba sel guda ɗaya ba, amma duka jeri, to dole ne a canza macro kaɗan:

Mai zaman kansa Sub Worksheet_Change (ByVal Target As Excel.Range) Idan Ba ​​Intersect (Manufa, Range ("A1: A10")) Ba Komai ba To Idan Numeric (Target.Value) Sai Application.EnableEvents = Karya Target.Offset(0, 1) .Value = Target.Offset(0, 1) .Value + Target.Value Application.EnableEvents = Gaskiyar Ƙarshe Idan Ƙarshe Idan Ƙarshen Ƙarshe  

An ɗauka cewa an shigar da bayanai a cikin sel na kewayon A1: A10, kuma an taƙaita lambobin da aka shigar a cikin ginshiƙi kusa da dama. Idan a cikin yanayin ku ba a kusa ba, to ƙara matsawa zuwa dama a cikin mai aiki na Kashe - maye gurbin 1 da lamba mafi girma.

  • Menene macros, inda za a saka macro code a cikin VBA, yadda za a yi amfani da su?

Leave a Reply