स्क्रीन अपडेट करना बंद करें - VBA कोड उदाहरण

आपके VBA मैक्रो को स्क्रीन में हेरफेर करते हुए देखना जितना अच्छा लगता है, अगर आप ScreenUpdating को बंद (अक्षम) करते हैं, तो आप अपने मैक्रो को तेज़ी से चलाने में मदद कर सकते हैं।

स्क्रीन अपडेट करना अक्षम करें

1. ScreenUpdating को अक्षम करने के लिए, अपने कोड की शुरुआत में यह लाइन डालें:

1 एप्लिकेशन.स्क्रीनअपडेटिंग = गलत

स्क्रीनअपडेटिंग सक्षम करें

2. ScreenUpdating को फिर से सक्षम करने के लिए, अपने कोड के अंत में यह लाइन डालें:

1 एप्लिकेशन.स्क्रीनअपडेटिंग = सही

वीबीए स्क्रीनअपडेटिंग उदाहरण

तब आपकी प्रक्रिया इस तरह दिखेगी:

1234567891011 उप स्क्रीनअपडेटिंग_उदाहरण ()एप्लिकेशन.स्क्रीनअपडेटिंग = गलत'कुछ करोरेंज ("ए 1")। कॉपी रेंज ("बी 1")रेंज ("ए 2")। कॉपी रेंज ("बी 2")रेंज ("ए 3")। कॉपी रेंज ("बी 3")एप्लिकेशन.स्क्रीनअपडेटिंग = सहीअंत उप

स्क्रीनअपडेटिंग रिफ्रेश

ScreenUpdating को अक्षम करने से आपका VBA कोड बहुत तेज़ी से चलेगा, लेकिन यह आपके काम को और अधिक पेशेवर बना देगा। अंतिम उपयोगकर्ता आमतौर पर आपकी प्रक्रियाओं के पर्दे के पीछे की क्रियाओं को नहीं देखना चाहते हैं (विशेषकर जब प्रक्रिया धीमी गति से चलती है)। साथ ही, हो सकता है कि आप एंड-यूजर्स को परदे के पीछे की कार्यक्षमता (उदा. हिडन वर्कशीट) को न देखना चाहें। मैं आपकी लगभग सभी प्रक्रियाओं में ScreenUpdating को अक्षम (और पुन: सक्षम) करने की अनुशंसा करता हूं।

हालाँकि, कुछ समय ऐसा होता है जब आप चाहते हैं कि स्क्रीन ताज़ा हो जाए। स्क्रीन को रीफ्रेश करने के लिए, आपको स्क्रीनअपडेटिंग को अस्थायी रूप से वापस चालू करना होगा (कोई स्क्रीन "रीफ्रेश" कमांड नहीं है):

123 एप्लिकेशन.स्क्रीनअपडेटिंग = सही'कुछ करोएप्लिकेशन.स्क्रीनअपडेटिंग = गलत

वीबीए सेटिंग्स - स्पीड अप कोड

आपकी कोड गति को बेहतर बनाने के लिए खेलने के लिए कई अन्य सेटिंग्स हैं।

स्वचालित गणना को अक्षम करने से गति में बड़ा अंतर आ सकता है:

1 आवेदन.गणना = xlमैनुअल

स्टेटस बार को डिसेबल करने से भी थोड़ा फर्क पड़ेगा:

1 एप्लिकेशन। डिस्प्लेस्टैटसबार = गलत

यदि आपकी कार्यपुस्तिका में ईवेंट हैं, तो आपको आमतौर पर अपनी प्रक्रिया की शुरुआत में ईवेंट को अक्षम कर देना चाहिए:

1 आवेदन। सक्षम करें = गलत

अंत में, आपका वीबीए कोड धीमा हो सकता है जब एक्सेल पेज ब्रेक की फिर से गणना करने का प्रयास करता है (नोट: सभी प्रक्रियाएं प्रभावित नहीं होंगी)। पृष्ठ विराम प्रदर्शित करना अक्षम करने के लिए कोड की इस पंक्ति का उपयोग करें:

1 ActiveSheet.DisplayPageBreaks = False

आप साइट के विकास में मदद मिलेगी, अपने दोस्तों के साथ साझा करने पेज

wave wave wave wave wave