स्टेटस बारमध्ये उपयुक्त माहिती

एखाद्याला आवडते, परंतु मला वैयक्तिकरित्या फक्त 2-3 प्रकरणांमध्ये स्टेटस बारची आवश्यकता आहे:

• फिल्टर केल्यानंतर, ते निवडीनंतर उरलेल्या मूल्यांची संख्या प्रदर्शित करते
• जेव्हा श्रेणी निवडली जाते, तेव्हा ते निवडलेल्या सेलची बेरीज, सरासरी आणि संख्या प्रदर्शित करते
• जड फाइल्सच्या बाबतीत, तुम्ही पुस्तकातील सूत्रांची पुनर्गणना करण्यात प्रगती पाहू शकता.
  

स्क्रीनची जवळजवळ संपूर्ण रुंदी घेणाऱ्या आणि नेहमी त्यावर लटकणाऱ्या ओळीसाठी इतके जास्त नाही. चला ही माफक सूची विस्तृत करण्याचा प्रयत्न करूया आणि त्यात आणखी काही उपयुक्त वैशिष्ट्ये जोडूया 🙂

स्टेटस बार व्यवस्थापित करण्यासाठी सामान्य तत्त्वे

Visual Basic सह स्टेटस बार व्यवस्थापित करणे खूप सोपे आहे. त्यात तुमचा मजकूर प्रदर्शित करण्यासाठी, तुम्ही एक साधा मॅक्रो वापरू शकता:

Sub MyStatus() Application.StatusBar = "प्रियव्हेट!" उप समाप्त  

ते चालवल्यानंतर, आम्हाला मिळते:

स्टेटस बारची मूळ स्थिती पुनर्संचयित करण्यासाठी, तुम्हाला त्याच लहान "अँटी-मॅक्रो" ची आवश्यकता असेल:

Sub MyStatus_Off() Application.StatusBar = False End Sub  

मूलभूत आवृत्तीमध्ये, जसे आपण पाहू शकता, सर्वकाही अगदी सोपे आहे. आता कल्पना विकसित करण्याचा प्रयत्न करूया...

स्टेटस बारमधील निवडलेल्या श्रेणीचा पत्ता

 फॉर्म्युला बारमधील एक्सेल विंडोच्या वरच्या डाव्या कोपर्यात, तुम्ही नेहमी वर्तमान सेलचा पत्ता पाहू शकता. परंतु जर संपूर्ण श्रेणी निवडली गेली असेल तर, दुर्दैवाने, आम्हाला तेथे निवड पत्ता दिसणार नाही - तोच एक सक्रिय सेल प्रदर्शित केला जाईल:

या समस्येचे निराकरण करण्यासाठी, आपण एक साधा मॅक्रो वापरू शकता जो स्टेटस बारमध्ये निवडलेल्या क्षेत्राचा पत्ता प्रदर्शित करेल. शिवाय, कोणत्याही शीटवरील निवडीमध्ये कोणत्याही बदलासह, हा मॅक्रो स्वयंचलितपणे लॉन्च केला गेला पाहिजे - यासाठी आम्ही ते इव्हेंट हँडलरमध्ये ठेवू. सिलेक्शनचेंज आमचे पुस्तक.

टॅबवरील त्याच नावाचे बटण वापरून व्हिज्युअल बेसिक एडिटर उघडा विकसक (विकासक) किंवा कीबोर्ड शॉर्टकट डावीकडे Alt+F11. प्रोजेक्ट पॅनलच्या वरच्या डाव्या कोपर्यात तुमचे पुस्तक शोधा आणि त्यात डबल-क्लिक करून मॉड्यूल उघडा. हे पुस्तक (हे वर्कबुक):

उघडणाऱ्या विंडोमध्ये, खालील मॅक्रो कोड कॉपी आणि पेस्ट करा:

खाजगी सब वर्कबुक_शीट निवड बदला(ByVal Sh म्हणून ऑब्जेक्ट, ByVal लक्ष्य श्रेणी म्हणून) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub  

आता, जेव्हा कोणतीही श्रेणी निवडली जाते (एकाहून अधिक!), त्याचा पत्ता स्टेटस बारमध्ये प्रदर्शित केला जाईल:

Ctrl सह निवडलेल्या अनेक श्रेणींचे पत्ते विलीन होण्यापासून रोखण्यासाठी, तुम्ही एक लहान सुधारणा जोडू शकता - स्वल्पविरामाने स्पेससह स्वल्पविरामाने बदलण्यासाठी रिप्लेस फंक्शन वापरा:

प्रायव्हेट सब वर्कबुक_शीट निवड बदल (ऑब्जेक्ट म्हणून बायव्हल श, रेंज म्हणून बायव्हल टार्गेट) अॅप्लिकेशन. स्टेटसबार = "Выделено: " आणि बदला(निवड. पत्ता(0, 0), ",", ", ") एंड सब  

स्टेटस बारमध्ये निवडलेल्या सेलची संख्या

जेव्हा कोणतीही श्रेणी निवडली जाते, तेव्हा डिफॉल्टनुसार स्टेटस बारच्या उजव्या बाजूला रिक्त नसलेल्या निवडलेल्या सेलची संख्या प्रदर्शित केली जाते. कधीकधी आपल्याला वाटपांची संख्या माहित असणे आवश्यक आहे. मागील उदाहरणाप्रमाणे, SelectionChange पुस्तक इव्हेंट हाताळण्यासाठी हे कार्य साध्या मॅक्रोने देखील पूर्ण केले जाऊ शकते. आपल्याला यासारख्या मॅक्रोची आवश्यकता असेल:

खाजगी सब वर्कबुक_शीट निवड बदला(ByVal Sh म्हणून ऑब्जेक्ट, श्रेणी म्हणून ByVal लक्ष्य) मंद सेलगणना व्हेरिएंट म्हणून, rng निवडीत प्रत्येक rng साठी श्रेणी म्हणून. क्षेत्र 'सर्व निवडीद्वारे पुनरावृत्ती करा RowsCount = rng.Rows.Count' पंक्तींची संख्या = संख्या संख्या. . 'कॉलम्सची संख्या CellCount = CellCount + RowsCount * ColumnsCount' सेलची एकूण संख्या जमा करा पुढील 'स्टेटस बारमध्ये प्रदर्शित करा Application.StatusBar = "निवडलेले: " & CellCount & " सेल" एंड सब  

हा मॅक्रो सर्व Ctrl-निवडलेल्या भागात (एकापेक्षा जास्त असल्यास) लूप करतो, RowsCount आणि ColumnsCount व्हेरिएबल्समध्ये प्रत्येक क्षेत्रातील पंक्ती आणि स्तंभांची संख्या संग्रहित करतो आणि CellCount व्हेरिएबलमधील सेलची संख्या जमा करतो, जो नंतर प्रदर्शित होतो. स्टेटस बारमध्ये. कामावर हे असे दिसेल:

अर्थात, निवडलेल्या श्रेणीचा पत्ता आणि सेलची संख्या एकाच वेळी प्रदर्शित करण्यासाठी तुम्ही हे आणि मागील मॅक्रो एकत्र करू शकता. तुम्हाला फक्त एक अंतिम ओळ यात बदलण्याची आवश्यकता आहे:

Application.StatusBar = "निवडलेले: " आणि बदला(निवड. पत्ता(0, 0), ",", ", ") आणि " - एकूण " आणि सेलगणना आणि "सेल्स"  

मग चित्र खूप छान होईल:

बरं, मला वाटतं तुम्हाला कल्पना आली आहे. टिप्पण्यांमध्ये सुचवा – स्टेटस बारमध्ये प्रदर्शित करण्यासाठी आणखी काय उपयुक्त ठरेल?

• मॅक्रो काय आहेत, ते कसे कार्य करतात, ते कसे वापरावे आणि तयार करावे
• एक्सेल शीटवर सोयीस्कर समन्वय निवड
• जटिल सूत्र अधिक दृश्यमान कसे बनवायचे