اسٽيٽس بار ۾ مفيد معلومات

ڪنهن کي پسند آهي، پر مون کي ذاتي طور تي صرف 2-3 ڪيسن ۾ اسٽيٽس بار جي ضرورت آهي:

• فلٽر ڪرڻ کان پوء، اهو ڏيکاري ٿو قيمتن جو تعداد جيڪو چونڊ کان پوء باقي رهي ٿو
• جڏهن هڪ رينج چونڊيو ويندو آهي، اهو ڏيکاري ٿو رقم، اوسط، ۽ منتخب ٿيل سيلن جو تعداد
• ڳري فائلن جي صورت ۾، توهان ڪتاب ۾ فارمولن جي ٻيهر ڳڻپ ۾ پيش رفت ڏسي سگهو ٿا.
  

هڪ لڪير لاءِ ايترو گهڻو نه آهي جيڪو اسڪرين جي لڳ ڀڳ پوري چوٽي وٺي وڃي ۽ ان تي هر وقت لٽڪي رهي. اچو ته هن معمولي فهرست کي وڌائڻ جي ڪوشش ڪريون ۽ ان ۾ ڪجھ وڌيڪ مفيد خاصيتون شامل ڪريو 🙂

اسٽيٽس بار کي منظم ڪرڻ لاءِ عام اصول

Visual Basic سان اسٽيٽس بار جو انتظام تمام آسان آھي. ان ۾ پنھنجو متن ڏيکارڻ لاءِ، توھان استعمال ڪري سگھوٿا ھڪڙو سادو ميڪرو:

Sub MyStatus() Application.StatusBar = "Privет!" آخر ذيلي  

ان کي هلائڻ کان پوء، اسان حاصل ڪريون ٿا:

اسٽيٽس بار جي اصل حالت کي بحال ڪرڻ لاءِ، توھان کي ضرورت پوندي ساڳي مختصر ”اينٽي ميڪرو“:

Sub MyStatus_Off() Application.StatusBar = غلط آخر ذيلي  

بنيادي نسخي ۾، جيئن توهان ڏسي سگهو ٿا، هر شيء بلڪل سادو آهي. هاڻي اچو ته خيال کي ترقي ڪرڻ جي ڪوشش ڪريو ...

اسٽيٽس بار ۾ منتخب ٿيل حد جو پتو

 فارمولا بار ۾ ايڪسل ونڊو جي مٿين کاٻي ڪنڊ ۾، توهان هميشه موجوده سيل جو پتو ڏسي سگهو ٿا. پر جيڪڏهن هڪ مڪمل رينج چونڊيو ويو آهي، ته پوء، بدقسمتي سان، اسان اتي چونڊ ايڊريس نه ڏسي سگهنداسين - ساڳيو هڪ واحد فعال سيل ڏيکاريل آهي:

هن مسئلي کي حل ڪرڻ لاء، توهان هڪ سادي ميڪرو استعمال ڪري سگهو ٿا جيڪو اسٽيٽس بار ۾ منتخب ٿيل علائقي جو پتو ڏيکاريندو. ان کان علاوه، هي ميڪرو خودڪار طريقي سان شروع ڪيو وڃي، ڪنهن به شيٽ تي چونڊ ۾ ڪنهن به تبديلي سان - ان لاء اسان ان کي ايونٽ هينڊلر ۾ رکون ٿا چونڊ تبديلي اسان جو ڪتاب.

ٽيب تي ساڳئي نالي جي بٽڻ کي استعمال ڪندي Visual Basic Editor کوليو ڊولپر (ڊولپر) يا ڪي بورڊ شارٽ ڪٽ کاٻي Alt+F11. پراجيڪٽ پينل جي مٿين کاٻي ڪنڊ ۾ پنهنجو ڪتاب ڳوليو ۽ ان ۾ موجود ماڊل کي ڊبل ڪلڪ ڪري کوليو هي ڪتاب (هي ڪم بڪ):

ونڊو ۾ جيڪو کلي ٿو، هيٺ ڏنل ميڪرو ڪوڊ ڪاپي ۽ پيسٽ ڪريو:

پرائيويٽ ذيلي ورڪ بڪ_ شيٽ چونڊ تبديلي  

هاڻي، جڏهن ڪنهن به حد کي چونڊيو ويندو آهي (هڪ کان وڌيڪ سميت!)، ان جو پتو اسٽيٽس بار ۾ ڏيکاريو ويندو:

Ctrl سان چونڊيل ڪيترن ئي حدن جي ايڊريس کي ضم ٿيڻ کان روڪڻ لاءِ، توھان ھڪڙو ننڍڙو سڌارو شامل ڪري سگھو ٿا- استعمال ڪريو Replace فنڪشن کي تبديل ڪرڻ لاءِ ڪاما سان ڪاما سان جاءِ سان.

پرائيويٽ ذيلي ورڪ بڪ_ شيٽ جي چونڊ تبديلي (ByVal Sh As Object، ByVal Target as Range) Application.StatusBar = "Выделено:" ۽ بدلايو(منتخب.Address(0, 0), ",", ", ") آخر ذيلي  

اسٽيٽس بار ۾ منتخب ٿيل سيلن جو تعداد

جڏهن ڪنهن به حد کي چونڊيو ويندو آهي، غير خالي چونڊيل سيلن جو تعداد ڊفالٽ طور اسٽيٽس بار جي ساڄي پاسي ڏيکاريو ويندو آهي. ڪڏهن ڪڏهن توهان کي مختص ڪيل تعداد کي ڄاڻڻ جي ضرورت آهي. هي ڪم هڪ سادي ميڪرو سان پڻ مڪمل ڪري سگهجي ٿو SelectionChange ڪتاب واقعي کي سنڀالڻ لاءِ، جيئن پوئين مثال ۾. توھان کي ھڪڙي ميڪرو جي ضرورت پوندي جھڙوڪ:

پرائيويٽ ذيلي Workbook_SheetSelectionChange(ByVal Sh As Object، ByVal Target as Reng) Dim CellCount as variant، rng as range for each rng in Selection.Areas 'سڀني چونڊ ذريعي ٻيهر ڪريو RowsCount = rng.Rows.Count' قطارن جو تعداد = Countlumns.Count. . ڳڻپ 'ڪالمن جو تعداد CellCount = CellCount + RowsCount * ColumnsCount' سيلن جو ڪل تعداد جمع ڪريو اڳيون 'اسٽيٽس بار ۾ ڏيکاريو Application.StatusBar = "چونڊيل: " & CellCount & " سيلز " آخر ذيلي  

هي ميڪرو سڀني Ctrl-منتخب ٿيل علائقن (جيڪڏهن هڪ کان وڌيڪ آهن) ذريعي ڦري ٿو، هر علائقي ۾ قطارن ۽ ڪالمن جو تعداد RowsCount ۽ ColumnsCount variables ۾ محفوظ ڪري ٿو، ۽ CellCount variable ۾ سيلن جو تعداد گڏ ڪري ٿو، جيڪو پوءِ ڏيکاري ٿو. اسٽيٽس بار ۾. ڪم تي اهو هن طرح نظر ايندو:

يقينا، توهان هن ۽ پوئين ميڪرو کي گڏ ڪري سگهو ٿا ٻنهي کي ظاهر ڪرڻ لاءِ چونڊيل رينج جو پتو ۽ هڪ ئي وقت سيلن جو تعداد. توھان کي صرف ھڪڙي ختم ٿيڻ واري لائن کي تبديل ڪرڻ جي ضرورت آھي:

Application.StatusBar = "چونڊيل:" ۽ مٽايو(چونڊ.Address(0, 0), ",", ", ") & "- total" & CellCount & "cells"  

پوء تصوير بلڪل شاندار ٿي ويندي:

خير، مان سمجهان ٿو ته توهان کي خيال حاصل ڪيو. تبصرن ۾ صلاح ڏيو - اسٽيٽس بار ۾ ڊسپلي ڪرڻ لاءِ ٻيو ڇا مفيد ٿيندو؟

• ميڪرو ڇا آهن، اهي ڪيئن ڪم ڪن ٿا، انهن کي ڪيئن استعمال ڪجي ۽ ٺاهيو وڃي
• هڪ ايڪسل شيٽ تي آسان ڪوآرڊينيٽ چونڊ
• پيچيده فارمولن کي وڌيڪ بصري ڪيئن ٺاهيو