مجموعي سيل (مجموعي)

گهڻو ڪري، هڪ صورتحال پيدا ٿئي ٿي جڏهن اسان کي گڏ ڪرڻ جي ضرورت آهي (جمع ڪرڻ) ڪيترن ئي قدرن کي ترتيب سان هڪ سيل ۾ داخل ڪيو ويو:

اهي. جيڪڏهن، مثال طور، توهان نمبر 1 داخل ڪريو سيل A5 ۾، پوء نمبر 1 کي B15 ۾ ظاهر ٿيڻ گهرجي. جيڪڏهن توهان A1 ۾ نمبر 7 داخل ڪريو، پوء 1 سيل B22 ۾ ظاهر ٿيڻ گهرجي، وغيره. عام طور تي، ڇا اڪائونٽنٽ (۽ نه رڳو انهن کي) هڪ مجموعي مجموعي سڏين ٿا.

توهان هڪ سادي ميڪرو استعمال ڪندي اهڙي اسٽوريج سيل جمع ڪندڙ کي لاڳو ڪري سگهو ٿا. شيٽ ٽئب تي ساڄي ڪلڪ ڪريو جتي سيل A1 ۽ B1 واقع آهن ۽ چونڊيو مينيو مان. ذريعو متن (سورس ڪوڊ). Visual Basic ايڊيٽر ونڊو ۾ جيڪو کلي ٿو، سادو ميڪرو ڪوڊ ڪاپي ۽ پيسٽ ڪريو:

Private Sub Worksheet_Change(ByVal Target as Excel.Range) ٽارگيٽ سان جيڪڏھن .Address(False, False) = "A1" پوء جيڪڏھن IsNumeric(.Value) پوءِ Application.EnableEvents = False Range("A2").Value = Range(" A2").Value + .Value Application.EnableEvents = سچي پڇاڙي جيڪڏهن ختم ٿي وڃي ته آخر ذيلي سان ختم ڪريو  

سيلز A1 ۽ A2 جا پتا، يقينا، توهان جي پنهنجي سان تبديل ٿي سگهن ٿا.

جيڪڏهن توهان کي ڊيٽا جي داخلا کي ٽريڪ ڪرڻ جي ضرورت آهي ۽ انفرادي سيلن کي نه، پر پوري حدن کي اختصار ڪرڻ جي ضرورت آهي، پوء ميڪرو کي ٿورو تبديل ڪرڻو پوندو:

Private Sub Worksheet_Change(ByVal Target As Excel.Range) جيڪڏھن نه ٽڪرائجي(Target, Range("A1:A10")) ڪجھ به نه آھي پوءِ جيڪڏھن IsNumeric(Target.Value) پوءِ Application.EnableEvents = False Target.Offset(0) .Value = Target.Offset(1, 0).Value + Target.Value Application.EnableEvents = سچي پڇاڙي جيڪڏھن ختم جيڪڏھن آخر ذيلي  

اهو فرض ڪيو ويو آهي ته ڊيٽا A1:A10 جي حد جي سيلن ۾ داخل ڪئي وئي آهي، ۽ داخل ٿيل نمبر ساڄي پاسي ڀرسان ڪالمن ۾ جمع ڪيا ويا آهن. جيڪڏهن توهان جي صورت ۾ اهو ڀرسان نه آهي، پوء آف سيٽ آپريٽر ۾ ساڄي طرف شفٽ کي وڌايو - 1 کي وڏي نمبر سان تبديل ڪريو.

• ميڪرو ڇا آهن، جتي VBA ۾ ميڪرو ڪوڊ داخل ڪرڻ، انهن کي ڪيئن استعمال ڪجي؟