ڪلپ بورڊ تي منتخب ٿيل سيلز جو مجموعو نقل ڪريو

ڪڏهن ڪڏهن اهو تمام ڊگهو وقت وٺندو آهي ڪجهه شين سان گڏ اچڻ ۾. پر جڏهن اهي اڳ ۾ ئي ايجاد ڪيا ويا آهن، حقيقت کان پوء اهي واضح ۽ اڃا به غير معمولي نظر اچن ٿا. سيريز مان "ڇا، اهو ممڪن هو؟".

پهرين ورزن کان، Microsoft Excel ونڊو جي تري ۾ اسٽيٽس بار روايتي طور تي چونڊيل سيلز لاءِ مجموعي طور ڏيکاري ٿو:

جيڪڏهن گهربل هجي، اهو ممڪن هو ته انهن نتيجن تي ساڄي ڪلڪ ڪريو ۽ ڪنيڪشن مينيو مان چونڊيو جيڪو اسان ڏسڻ چاهيون ٿا:

۽ تازو ئي، تازين ايڪسل اپڊيٽس ۾، Microsoft ڊولپرز هڪ سادي پر ذهين خصوصيت شامل ڪئي – هاڻي جڏهن توهان انهن نتيجن تي ڪلڪ ڪندا آهيو، اهي ڪلپ بورڊ تي ڪاپي ٿي ويندا آهن!

خوبصورتي 

پر ڇا انهن بابت جيڪي اڃا تائين نه آهن (يا اڳ ۾ ئي؟) ايسل جو اهڙو نسخو آهي؟ هي آهي جتي سادو ميڪرو مدد ڪري سگھن ٿا.

ميڪرو استعمال ڪندي ڪلپ بورڊ تي چونڊيل سيلز جي رقم کي نقل ڪريو

ٽيب ۾ کوليو ڊولپر (ڊولپر) ايڊيٽر ڏسڻ جي بنيادي يا هي ڪيبورڊ شارٽ ڪٽ استعمال ڪريو ھن+F11. مينيو ذريعي نئون خالي ماڊل داخل ڪريو داخل ڪريو - ماڊل ۽ اتي هيٺ ڏنل ڪوڊ ڪاپي ڪريو:

ذيلي SumSelected() جيڪڏھن ٽائيپ جو نالو(چونڊ) <> "رينج" پوءِ ٻاھر وڃو Sub with GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}").  

ان جي منطق سادي آهي:

• پهرين اچي ٿو "بيوقوف کان تحفظ" - اسان چيڪ ڪريون ٿا ته ڇا واقعي نمايان ٿيل آهي. جيڪڏهن سيلز نه چونڊيا ويا آهن (پر، مثال طور، هڪ چارٽ)، پوء ميڪرو مان نڪرڻ.
• پوء حڪم استعمال ڪندي Get Object اسان هڪ نئون ڊيٽا اعتراض ٺاهيندا آهيون جتي اسان جي چونڊيل سيلن جو مجموعو بعد ۾ ذخيرو ڪيو ويندو. هڪ ڊگھو ۽ سمجھ ۾ نه اچڻ وارو الفانومرڪ ڪوڊ، حقيقت ۾، ونڊوز رجسٽري برانچ جي لنڪ آهي جتي لائبريري واقع آهي. Microsoft Forms 2.0 Object Library، جيڪي اهڙيون شيون ٺاهي سگهن ٿا. ڪڏهن ڪڏهن هن چال کي به سڏيو ويندو آهي ضمني دير سان پابند. جيڪڏهن توهان ان کي استعمال نٿا ڪريو، ته پوء توهان کي مينيو ذريعي فائل ۾ هن لائبريري جي لنڪ ٺاهڻو پوندو اوزار- حوالو.
• منتخب ٿيل سيلز جو مجموعو حڪم سمجهيو ويندو آهي WorksheetFunction.Sum(چونڊ)، ۽ پوءِ نتيجو ڪيل رقم ڪلپ بورڊ تي حڪم سان رکيل آهي PutInClipboard

استعمال جي آسانيءَ لاءِ، توھان ڪري سگھو ٿا، يقينا، ھن ميڪرو کي بٽڻ استعمال ڪندي ڪيبورڊ شارٽ ڪٽ ڏانھن ميڪورس ٽئب ڊولپر (ڊولپر - ميڪروس).

۽ جيڪڏھن توھان ڏسڻ چاھيو ٿا ته ميڪرو ھلائڻ کان پوءِ اصل ۾ ڪھڙو نقل ڪيو ويو آھي، توھان چالو ڪري سگھوٿا ڪلپ بورڊ پينل کي استعمال ڪندي ننڍي تير کي ھيٺئين ساڄي ڪنڊ ۾ لاڳاپيل گروپ تي. بنيادي (گهريلو) ٽيب:

نه رڳو رقم

جيڪڏهن، غير معمولي رقم کان علاوه، توهان ڪجهه ٻيو چاهيو ٿا، ته پوء توهان ڪنهن به فنڪشن کي استعمال ڪري سگهو ٿا جيڪو اعتراض اسان کي مهيا ڪري ٿو. ورڪ شيٽ فنڪشن:

مثال طور، اتي آهي:

• جمع- جمع
• سراسري - رياضي جو مطلب
• ڳڻپ - انگن سان گڏ سيلن جو تعداد
• CountA - ڀريل سيلن جو تعداد
• CountBlank - خالي خانن جو تعداد
• منٽ - گھٽ ۾ گھٽ قدر
• وڌ ۾ وڌ - وڌ ۾ وڌ قدر
• وچين - وچين (مرڪزي قدر)
• … وغيره.

فلٽر ۽ لڪيل قطار ڪالمن سميت

ڇا ٿيندو جيڪڏهن قطار يا ڪالمن لڪيل آهن (دستي طور تي يا فلٽر ذريعي) چونڊيل حد ۾؟ ان لاءِ نه ته انهن کي مجموعي ۾ حساب ۾ رکڻ لاءِ، اسان کي ضرورت پوندي ته اسان جو ڪوڊ ٿورڙو تبديل ڪري اعتراض ۾ شامل ڪري. چونڊ مال خاص سيل (xlCellTypeVisible):

Sub SumVisible() If TypeName(Selection) <> "Range" پوءِ Submit GetObject ("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") سان نڪرو .SetText WorksheetFunction.Sum(Selectible)Selection.Sum(VelectyCell)SetText. PutInClipboard End Sub with End Sub  

انهي صورت ۾، ڪنهن به مجموعي فنڪشن جو حساب صرف نظر ايندڙ سيلن تي لاڳو ڪيو ويندو.

جيڪڏهن توهان کي زندگين فارمولا جي ضرورت آهي

جيڪڏهن توهان خواب ڏسندا آهيو، توهان منظرنامي سان گڏ اچي سگهو ٿا جڏهن اهو بهتر آهي ته نقل ڪرڻ لاء هڪ نمبر (مسلسل) نه، پر بفر ۾ هڪ جاندار فارمولا، جيڪو اسان کي چونڊيل سيلز لاء گهربل مجموعي حساب ڪري ٿو. انهي حالت ۾، توهان کي فارمولا کي ٽڪرن مان چمڪائڻو پوندو، ان ۾ ڊالر جي نشانين کي هٽائڻ ۽ ڪاما کي تبديل ڪرڻ (جيڪو VBA ۾ ڪيترن ئي چونڊيل حدن جي پتي جي وچ ۾ جدا ڪندڙ طور استعمال ڪيو ويندو آهي) هڪ سيميڪولن سان:

Sub SumFormula() جيڪڏھن TypeName(Select) <> "Range" پوءِ Submit GetObject ("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") سان ٻاھر نڪرو ائڊريس، "،"، "؛")، "$"، "") & ")" .PutInClipboard End with End Sub  

اضافي شرطن سان گڏ

۽، آخرڪار، مڪمل طور تي جنون لاء، توهان هڪ ميڪرو لکي سگهو ٿا جيڪو سڀني چونڊيل سيلن کي گڏ نه ڪندو، پر صرف انهن کي جيڪي ڏنل شرطن کي پورو ڪن ٿا. تنهن ڪري، مثال طور، هڪ ميڪرو نظر ايندو ته جيئن چونڊيل سيلن جو مجموعو بفر ۾ وجهي، جيڪڏهن انهن جون قيمتون 5 کان وڌيڪ آهن ۽ ساڳئي وقت اهي ڪنهن به رنگ سان ڀريل آهن:

 Sub CustomCalc() Dim myRange as Range جيڪڏھن TypeName(Selection) <> "Range" پوءِ نڪرو Sub for each cell in Selection If cell.Value > 5 ۽ cell.Interior.ColorIndex <> xlNone پوءِ جيڪڏھن myRange ڪجھ به نه آھي ته پوءِ myRange = سيٽ ڪريو. سيل ٻي صورت ۾ سيٽ ڪريو myRange = Union(myRange, cell) End If End If End cell with GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}").  

جئين توهان آساني سان تصور ڪري سگهو ٿا، حالتون بلڪل سيٽ ڪري سگهجن ٿيون - سيل فارميٽ تائين - ۽ ڪنهن به مقدار ۾ (بشمول انهن کي منطقي آپريٽرز سان ڳنڍڻ يا يا ۽). تخيل لاء تمام گهڻو ڪمرو آهي.

• فارمولن کي قدرن ۾ تبديل ڪريو (6 طريقا)
• ميڪرو ڇا آهن، انهن کي ڪيئن استعمال ڪجي، ڪٿي داخل ڪجي Visual Basic ڪوڊ
• Microsoft Excel جي اسٽيٽس بار ۾ مفيد معلومات