स्टेटस बार में उपयोगी जानकारी

किसी को पसंद है, लेकिन मुझे व्यक्तिगत रूप से केवल 2-3 मामलों में स्टेटस बार चाहिए:

• फ़िल्टर करने के बाद, यह चयन के बाद शेष मूल्यों की संख्या प्रदर्शित करता है
• जब किसी श्रेणी का चयन किया जाता है, तो यह चयनित कक्षों का योग, औसत और संख्या प्रदर्शित करता है
• भारी फाइलों के मामले में, आप पुस्तक में सूत्रों की पुनर्गणना में प्रगति देख सकते हैं।
  

एक लाइन के लिए इतना अधिक नहीं है जो स्क्रीन की लगभग पूरी चौड़ाई लेती है और हर समय उस पर लटकी रहती है। आइए इस मामूली सूची का विस्तार करने का प्रयास करें और इसमें कुछ और उपयोगी सुविधाएं जोड़ें

स्टेटस बार के प्रबंधन के लिए सामान्य सिद्धांत

विजुअल बेसिक के साथ स्टेटस बार को मैनेज करना बहुत आसान है। इसमें अपना टेक्स्ट प्रदर्शित करने के लिए, आप एक साधारण मैक्रो का उपयोग कर सकते हैं:

सब MyStatus () एप्लिकेशन।StatusBar = "Привет!" अंत उप  

इसे चलाने के बाद, हमें मिलता है:

स्टेटस बार की मूल स्थिति को पुनर्स्थापित करने के लिए, आपको उसी संक्षिप्त "एंटी-मैक्रो" की आवश्यकता होगी:

Sub MyStatus_Off () Application.StatusBar = False End Sub  

मूल संस्करण में, जैसा कि आप देख सकते हैं, सब कुछ बहुत सरल है। आइए अब इस विचार को विकसित करने का प्रयास करें…

स्थिति पट्टी में चयनित श्रेणी का पता

 फॉर्मूला बार में एक्सेल विंडो के ऊपरी बाएँ कोने में, आप हमेशा वर्तमान सेल का पता देख सकते हैं। लेकिन अगर एक पूरी रेंज का चयन किया जाता है, तो दुर्भाग्य से, हम वहां चयन पता नहीं देखेंगे - वही एक एकल सक्रिय सेल प्रदर्शित होता है:

इस समस्या को हल करने के लिए, आप एक साधारण मैक्रो का उपयोग कर सकते हैं जो स्टेटस बार में चयनित क्षेत्र का पता प्रदर्शित करेगा। इसके अलावा, इस मैक्रो को किसी भी शीट पर चयन में किसी भी बदलाव के साथ स्वचालित रूप से लॉन्च किया जाना चाहिए - इसके लिए हम इसे ईवेंट हैंडलर में रखेंगे चयन हमारी किताब।

टैब पर समान नाम के बटन का उपयोग करके Visual Basic Editor खोलें विकासक (डेवलपर) या कीबोर्ड शॉर्टकट बायां Alt+F11. प्रोजेक्ट पैनल के ऊपरी बाएँ कोने में अपनी पुस्तक ढूँढें और उसमें डबल-क्लिक करके मॉड्यूल खोलें इस किताब (यह कार्यपुस्तिका):

खुलने वाली विंडो में, निम्न मैक्रो कोड को कॉपी और पेस्ट करें:

निजी उप कार्यपुस्तिका_शीट चयन बदलें (वस्तु के रूप में बायवैल श, रेंज के रूप में लक्ष्य लक्ष्य) एप्लिकेशन। स्टेटसबार = "Выделено:" और चयन। पता (0, 0) एंड सब  

अब, जब कोई श्रेणी चुनी जाती है (एक से अधिक सहित!), तो उसका पता स्टेटस बार में प्रदर्शित होगा:

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

निजी उप कार्यपुस्तिका_शीट चयन बदलें (वस्तु के रूप में बायवैल श, रेंज के रूप में लक्ष्य लक्ष्य) एप्लिकेशन। स्टेटसबार = "Выделено:" और बदलें (चयन। पता (0, 0), ",", ", ") एंड सब  

स्थिति पट्टी में चयनित कक्षों की संख्या

जब किसी श्रेणी का चयन किया जाता है, तो गैर-रिक्त चयनित कक्षों की संख्या डिफ़ॉल्ट रूप से स्थिति पट्टी के दाईं ओर प्रदर्शित होती है। कभी-कभी आपको आवंटित की संख्या जानने की आवश्यकता होती है। यह कार्य पिछले उदाहरण की तरह, SelectionChange पुस्तक ईवेंट को संभालने के लिए एक साधारण मैक्रो के साथ भी पूरा किया जा सकता है। आपको एक मैक्रो की आवश्यकता होगी जैसे:

निजी उप Workbook_SheetSelectionChange(ByVal Sh as Object, ByVal target as Range) डिम सेलकाउंट वैरिएंट के रूप में, rng रेंज के रूप में चयन में प्रत्येक rng के लिए। क्षेत्र 'सभी चयनों के माध्यम से पुनरावृत्त करें RowsCount = rng.Rows.Count 'पंक्तियों की संख्या ColumnsCount = rng.Columns . 'कॉलमों की संख्या' की गणना करें सेलकाउंट = सेलकाउंट + रोकाउंट * कॉलम काउंट 'कोशिकाओं की कुल संख्या जमा करें अगला' स्टेटस बार में प्रदर्शित करें। स्टेटसबार = "चयनित:" और सेलकाउंट और "सेल" एंड सब  

यह मैक्रो सभी Ctrl-चयनित क्षेत्रों (यदि एक से अधिक हैं) के माध्यम से लूप करता है, RowsCount और ColumnsCount चर में प्रत्येक क्षेत्र में पंक्तियों और स्तंभों की संख्या संग्रहीत करता है, और CellCount चर में कोशिकाओं की संख्या जमा करता है, जो तब प्रदर्शित होता है स्टेटस बार में। काम पर यह इस तरह दिखेगा:

बेशक, आप एक ही समय में चयनित श्रेणी के पते और कक्षों की संख्या दोनों को प्रदर्शित करने के लिए इसे और पिछले मैक्रोज़ को जोड़ सकते हैं। आपको केवल एक अंतिम पंक्ति को बदलने की आवश्यकता है:

Application.StatusBar = "चयनित:" और बदलें (चयन। पता (0, 0), ",", ", ") और "- कुल" और सेलकाउंट और "सेल"  

तब तस्वीर काफी शानदार होगी:

खैर, मुझे लगता है कि आपको यह विचार मिल गया है। टिप्पणियों में सुझाव दें - स्टेटस बार में प्रदर्शित करने के लिए और क्या उपयोगी होगा?

• मैक्रोज़ क्या हैं, वे कैसे काम करते हैं, उनका उपयोग कैसे करें और उन्हें कैसे बनाएं
• एक्सेल शीट पर सुविधाजनक समन्वय चयन
• जटिल फ़ार्मुलों को और अधिक विज़ुअल कैसे बनाया जाए