स्थिति पट्टीमा उपयोगी जानकारी

कसैलाई मनपर्छ, तर मलाई व्यक्तिगत रूपमा 2-3 अवस्थामा मात्र स्थिति पट्टी चाहिन्छ:

  • फिल्टर गरेपछि, यसले चयन पछि बाँकी रहेका मानहरूको संख्या देखाउँछ
  • जब दायरा चयन गरिन्छ, यसले योग, औसत, र चयन गरिएका कक्षहरूको संख्या देखाउँछ
  • भारी फाइलहरूको अवस्थामा, तपाइँ पुस्तकमा सूत्रहरू पुन: गणनामा प्रगति देख्न सक्नुहुन्छ।

स्क्रिनको लगभग सम्पूर्ण चौडाइ लिने र सधैं यसमा झुण्डिने रेखाको लागि त्यति धेरै होइन। यस मामूली सूचीलाई विस्तार गर्ने प्रयास गरौं र यसमा केही थप उपयोगी सुविधाहरू थपौं 🙂

स्थिति पट्टी प्रबन्ध गर्नका लागि सामान्य सिद्धान्तहरू

भिजुअल बेसिकको साथ स्थिति पट्टी प्रबन्ध गर्न धेरै सजिलो छ। यसमा तपाईंको पाठ प्रदर्शन गर्न, तपाईं एक साधारण म्याक्रो प्रयोग गर्न सक्नुहुन्छ:

Sub MyStatus() Application.StatusBar = "प्रविष्ट!" अन्त्य उप  

यसलाई चलाउन पछि, हामी पाउँछौं:

स्थिति पट्टीमा उपयोगी जानकारी

स्थिति पट्टीको मूल स्थिति पुनर्स्थापना गर्न, तपाईंलाई उही छोटो "एन्टि-म्याक्रो" चाहिन्छ:

Sub MyStatus_Off() अनुप्रयोग। StatusBar = False End Sub  

आधारभूत संस्करण मा, तपाईं देख्न सक्नुहुन्छ, सबै धेरै सरल छ। अब विचार विकास गर्न प्रयास गरौं ...

स्थिति पट्टीमा चयन गरिएको दायराको ठेगाना

 सूत्र पट्टीमा एक्सेल विन्डोको माथिल्लो बायाँ कुनामा, तपाइँ सधैं हालको कक्षको ठेगाना हेर्न सक्नुहुन्छ। तर यदि सम्पूर्ण दायरा चयन गरिएको छ भने, दुर्भाग्यवश, हामीले त्यहाँ चयन ठेगाना देख्ने छैनौं - एउटै एकल सक्रिय कक्ष प्रदर्शित हुन्छ:

स्थिति पट्टीमा उपयोगी जानकारी

यो समस्या समाधान गर्न, तपाईं एक साधारण म्याक्रो प्रयोग गर्न सक्नुहुन्छ जुन स्थिति पट्टीमा चयन गरिएको क्षेत्रको ठेगाना प्रदर्शन गर्नेछ। यसबाहेक, यो म्याक्रो कुनै पनि पानामा चयनमा कुनै पनि परिवर्तनको साथ, स्वचालित रूपमा सुरू हुनुपर्छ - यसको लागि हामी यसलाई घटना ह्यान्डलरमा राख्नेछौं। चयन परिवर्तन हाम्रो पुस्तक।

ट्याबमा उही नामको बटन प्रयोग गरेर भिजुअल बेसिक सम्पादक खोल्नुहोस् विकासकर्ता (विकासकर्ता) वा किबोर्ड सर्टकटहरू बायाँ Alt+F11। परियोजना प्यानलको माथिल्लो बायाँ कुनामा आफ्नो पुस्तक फेला पार्नुहोस् र यसमा डबल-क्लिक गरेर मोड्युल खोल्नुहोस्। यो कितिब (यो कार्यपुस्तिका):

खुल्ने विन्डोमा, निम्न म्याक्रो कोड प्रतिलिपि गरेर टाँस्नुहोस्:

निजी उप कार्यपुस्तिका_पाना चयन परिवर्तन (ब्यवल Sh वस्तुको रूपमा, दायराको रूपमा बाइभल लक्ष्य) अनुप्रयोग। स्थितिपट्टी = "Выделено: " र चयन। ठेगाना(०, ०) अन्त्य उप  

अब, जब कुनै दायरा चयन गरिन्छ (एक भन्दा बढी सहित!), यसको ठेगाना स्थिति पट्टीमा प्रदर्शित हुनेछ:

स्थिति पट्टीमा उपयोगी जानकारी

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

निजी उप कार्यपुस्तिका_पाना चयन परिवर्तन (ब्यवल Sh वस्तुको रूपमा, दायराको रूपमा बाइभल लक्ष्य) अनुप्रयोग। StatusBar = "Выделено: " र बदल्नुहोस्(चयन। ठेगाना(०, ०), ",", ", ") अन्त्य उप  

स्थिति पट्टीमा चयन गरिएका कक्षहरूको संख्या

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

निजी उपकार्यपुस्तिका_पाना चयन परिवर्तन(ब्याभल Sh वस्तुको रूपमा, दायराको रूपमा बाइभल लक्ष्य) भिन्नको रूपमा सेलगणना मंद गर्नुहोस्, चयनमा प्रत्येक rng को लागि दायराको रूपमा rng। क्षेत्र 'सबै चयनहरू मार्फत पुनरावृत्ति गर्नुहोस् RowsCount = rng.Rows.Count' पङ्क्तिहरूको संख्या =Countrngs। । Count 'स्तम्भहरूको संख्या CellCount = CellCount + RowsCount * ColumnsCount 'कक्षहरूको कुल संख्या जम्मा गर्नुहोस् अर्को 'स्थिति पट्टीमा प्रदर्शन गर्नुहोस् अनुप्रयोग। StatusBar = "चयन गरिएको: " & CellCount & " कक्षहरू" अन्त्य उप  

यो म्याक्रोले सबै Ctrl-चयन गरिएका क्षेत्रहरू (यदि त्यहाँ एक भन्दा बढी छ भने) लुप गर्छ, प्रत्येक क्षेत्रमा पङ्क्ति र स्तम्भहरूको सङ्ख्यालाई RowsCount र ColumnsCount चरहरूमा भण्डारण गर्छ, र CellCount चरमा कक्षहरूको सङ्ख्या जम्मा गर्छ, जुन त्यसपछि प्रदर्शित हुन्छ। स्थिति पट्टी मा। काम मा यो यस्तो देखिनेछ:

स्थिति पट्टीमा उपयोगी जानकारी

निस्सन्देह, तपाईंले चयन गरिएको दायराको ठेगाना र एकै समयमा कक्षहरूको संख्या दुवै प्रदर्शन गर्न यो र अघिल्लो म्याक्रोहरू संयोजन गर्न सक्नुहुन्छ। तपाईंले केवल एउटा अन्तिम रेखा परिवर्तन गर्न आवश्यक छ:

Application.StatusBar = "चयन गरिएको: " र बदल्नुहोस्(चयन। ठेगाना(०, ०), ","," ", ") र " - कुल " & CellCount & " कक्षहरू"  

त्यसपछि तस्वीर एकदम अद्भुत हुनेछ:

स्थिति पट्टीमा उपयोगी जानकारी

ठीक छ, मलाई लाग्छ कि तपाईंले विचार पाउनुभयो। टिप्पणीहरूमा सुझाव दिनुहोस् - स्थिति पट्टीमा प्रदर्शन गर्न अरू के उपयोगी हुनेछ?

  • म्याक्रोहरू के हुन्, तिनीहरूले कसरी काम गर्छन्, कसरी प्रयोग गर्ने र तिनीहरूलाई सिर्जना गर्ने
  • एक्सेल पानामा सुविधाजनक समन्वय चयन
  • कसरी जटिल सूत्रहरू थप दृश्य बनाउने

जवाफ छाड्नुस्