एक्सेल के निचले-बाएँ कोने में, आपको एक स्टेटस बार मिलेगा:
एक्सेल आपको संदेशों को संप्रेषित करने के लिए इस स्थिति पट्टी का उपयोग करता है। हालाँकि, StatusBar संपत्ति को VBA का उपयोग करके भी समायोजित किया जा सकता है, जिससे आप अपने स्वयं के संदेश प्रदर्शित कर सकते हैं।
कस्टम स्थिति पट्टी संदेश
जब मैक्रो चल रहा हो, तो आप एक्सेल में अपने स्वयं के कस्टम संदेश के साथ स्टेटस बार को अपडेट कर सकते हैं स्टेटस बार संपत्ति।
1. जब भी आप उपयोगकर्ता को कस्टम स्टेटस बार संदेश के साथ अपडेट करना चाहते हैं तो इस कोड को मैक्रो में रखें:
| 1 | Application.StatusBar = "मैं अभी काम कर रहा हूँ!!!" |
2. और अपने मैक्रो के अंत में स्थिति बार को साफ़ करने के लिए इस कोड को रखें और एक्सेल पर नियंत्रण वापस करें:
| 1 | एप्लीकेशन.स्टेटसबार = FALSE |
स्टेटस बार अपडेट करना अक्षम करें
आपकी प्रक्रिया के चलने के दौरान एक संदेश प्रदर्शित करने के बजाय, आप स्टेटस बार को अक्षम कर सकते हैं। यह आपके वीबीए कोड की गति को बढ़ाएगा क्योंकि एक्सेल किस स्टेटस बार संदेश को प्रदर्शित करने के लिए प्रसंस्करण छोड़ सकता है।
जब आपका कोड चल रहा हो तो स्टेटस बार अपडेट को अक्षम करने के लिए सेट करें डिस्प्लेस्टैटसबार संपत्ति को झूठा।
| 1 | एप्लिकेशन। डिस्प्लेस्टैटसबार = गलत |
अपने कोड के अंत में, स्टेटस बार अपडेट को पुनर्स्थापित करें:
| 1 | एप्लीकेशन.डिस्प्लेस्टैटसबार = ट्रू |
जरूरी! उपयोग स्टेटस बार संदेश सेट करने के लिए संपत्ति, लेकिन उपयोग करें डिस्प्लेस्टैटसबार स्टेटस बार को पूरी तरह से अक्षम या सक्षम करने के लिए संपत्ति।
वीबीए कोड को गति दें
इष्टतम प्रसंस्करण गति के लिए इस कोड का उपयोग करने का प्रयास करें:
| 12345678910111213141516 | उप रनफास्ट ()एप्लिकेशन.स्क्रीनअपडेटिंग = गलतएप्लिकेशन। डिस्प्लेस्टैटसबार = गलतआवेदन। सक्षम करें = गलतActiveSheet.DisplayPageBreaks = Falseआवेदन।गणना = xlगणना मैनुअल'आपका कोड यहाँ'एप्लिकेशन.स्क्रीनअपडेटिंग = सहीएप्लीकेशन.डिस्प्लेस्टैटसबार = ट्रूआवेदन। सक्षम करें = सत्यActiveSheet.DisplayPageBreaks = Trueआवेदन.गणना = xlगणनास्वचालितअंत उप |
