एक्सेल में एक्सेल VBA प्रोग्रेस बार
प्रोग्रेस बार एक ऐसी चीज है जो हमें दिखाती है कि किसी कोड की कितनी प्रक्रिया पूरी हो चुकी है या समाप्त हो गई है जब हम कोड के बड़े सेट चलाते हैं जिन्हें निष्पादित करने के लिए बड़े समय की आवश्यकता होती है, हम प्रक्रिया की स्थिति के बारे में उपयोगकर्ता को दिखाने के लिए VBA में प्रगति बार का उपयोग करते हैं, या यदि एक ही कोड में कई प्रक्रियाएँ चल रही हैं, हम यह दिखाने के लिए प्रगति पट्टी का उपयोग करते हैं कि किस प्रक्रिया में कितनी प्रगति हुई है।
एक प्रगति बार उस कार्य के प्रतिशत को दिखाता है जब वास्तविक कार्य स्क्रीन के पीछे कोड द्वारा दिए गए निर्देशों के एक सेट के साथ चल रहा होता है।
जब VBA कोड निष्पादित होने में काफी समय लेता है, तो यह जानना उपयोगकर्ता की चिंता है कि यह कितनी जल्दी खत्म हो सकता है। डिफ़ॉल्ट रूप से, हमें कार्य को पूरा करने के लिए पूरे समय तक प्रतीक्षा करने की आवश्यकता है, लेकिन प्रगति पट्टी डालने से हमें VBA कोड की प्रगति का पता चल जाता है।
लगभग सभी कंप्यूटर सॉफ़्टवेयर में, हम एक प्रगति बार चार्ट देखते हैं जो उस कार्य की प्रगति को दिखाता है जो हम नीचे की छवि की तरह प्रदर्शन कर रहे हैं।
एक्सेल में हम VBA कोडिंग का उपयोग करके प्रगति पट्टी बना सकते हैं। यदि आपने कभी सोचा है कि हम एक प्रगति पट्टी कैसे बना सकते हैं, तो यह आपके लिए लेख दर्जी है।
अपनी खुद की प्रगति पट्टी बनाएँ
एक प्रगति बार बनाने के लिए, हमें कई चरणों का पालन करना होगा। नीचे प्रगति बार चार्ट बनाते समय शामिल करने के चरण नीचे दिए गए हैं।
चरण 1: एक नया उपयोगकर्ता प्रपत्र बनाएँ या डालें।
जैसे ही आप ऊपर के ऑप्शन पर क्लिक करेंगे, आपको नीचे की तरह एक यूजर फॉर्म दिखाई देगा।
चरण 2: VBA गुण विंडो को देखने के लिए F4 कुंजी दबाएँ ।
इस गुण टैब में, हमें हमारे द्वारा डाले गए VBA उपयोगकर्ता के गुणों को बदलने की आवश्यकता है।
चरण 3: उपयोगकर्ता प्रपत्र का नाम बदलकर UFProgressBar करें।
अब हम कोडिंग करते समय इस यूजर फॉर्म को “UFProgressBar” नाम से संदर्भित कर सकते हैं।
चरण 4: उपयोगकर्ता फॉर्म की शो प्रॉपर्टी को FALSE में बदलें।
चरण 5: अब, अपनी आवश्यकताओं को फिट करने के लिए उपयोगकर्ता के संरेखण को समायोजित करें। मैंने उपयोगकर्ता प्रपत्र की ऊँचाई को 120 और चौड़ाई को 300 में बदल दिया है।
चरण 6: उपयोगकर्ता प्रपत्र के कैप्शन को "प्रगति स्थिति बार" में बदलें।
चरण 7: अब, उपयोगकर्ता फॉर्म के टूलबॉक्स से, सबसे ऊपर उपयोगकर्ता फॉर्म में LABEL डालें।
इस लेबल के साथ, हमें लेबल के गुणों को सेट करना होगा। कैप्शन हटाएं और इसे रिक्त करें, और लेबल की चौड़ाई समायोजित करें।
चरण 8: लेबल का नाम "प्रोगेसलैब" में बदलें।
चरण 9: अब, टूलबॉक्स से, फ्रेम लें और उस लेबल से नीचे खींचें, जो हमने पिछले चरणों में डाला है। सुनिश्चित करें कि फ़्रेम उपयोगकर्ता प्रपत्र के केंद्र में है।
चरण 10: अब, हमें फ़्रेम के कुछ गुणों को बदलने की आवश्यकता है ताकि यह ठीक उसी तरह दिखाई दे जैसा कि उपयोगकर्ता द्वारा डाला गया है।
संपत्ति 1: फ्रेम का नाम "प्रोग्रेसफ्रेम" में बदलें।
संपत्ति 2: कैप्शन हटाएं और इसे खाली करें।
संपत्ति 3: फ्रेम के विशेष प्रभाव को 6 में बदलें - fmSpecialEffectBump।
इन सभी परिवर्तनों के बाद, हमारे उपयोगकर्ता फॉर्म को इस तरह दिखना चाहिए।
चरण 11: अब एक और लेबल डालें। इस बार हमारे द्वारा डाले गए फ्रेम के अंदर ही लेबल डालें।
लेबल को सम्मिलित करते समय, सुनिश्चित करें कि लेबल के बाईं ओर हम उस फ़्रेम को ठीक से फिट करते हैं जो हमने डाला है, जैसा कि ऊपर की छवि में दिखाया गया है।
चरण 12: लेबल डालने के बाद लेबल के गुणों को निम्नानुसार बदलें।
गुण 1: लेबल का नाम "MainProgressLabel" में बदलें।
संपत्ति 2: कैप्शन हटाएं।
संपत्ति 3: अपनी इच्छानुसार पृष्ठभूमि का रंग बदलें।
ठीक है, अब हम प्रगति बार की स्थापना की प्रक्रिया के साथ कर रहे हैं, और इस समय, यह इस तरह दिखता है।
अब हमें इस काम को पूरी तरह से करने के लिए कोड दर्ज करने की आवश्यकता है।
चरण 13: रूपरेखा बनाने के लिए एक्सेल में नीचे की ओर मैक्रो जोड़ें।
कोड:
उप InitUFProgressBarBar () UFProgressBar के साथ .Bar.Width = 0 .Text.Caption = "0%" .Show vbModeless End साथ।
अब, यदि आप इस कोड को मैन्युअल रूप से या F5 कुंजी के माध्यम से चलाते हैं, तो हमें इस तरह की प्रगति पट्टी को देखना चाहिए।
चरण 14: अब, हमें अपना कार्य करने के लिए एक मैक्रो बनाने की आवश्यकता है। मैं 1 से 5000 तक सीरियल नंबर डालने का कार्य कर रहा हूं। इस कोड के साथ, हमें प्रगति बार चार्ट को भी कॉन्फ़िगर करना होगा, Thew कोड आपके लिए दर्जी कोड है।
कोड:
सब प्रोग्रेसबर्_चर्ट () डिम आई ऐज लॉन्ग डिम करंट यूपीयूप्रोजेनरबार डबल डिंपल के रूप में यूएफआरप्रोग्रेसबर्परेजेंटेज डबल डिम बारविदथ के रूप में लॉन्ग i = 1 कॉल इनिटयूएफप्रोप्रोग्रेसबर्बर करते हैं जबकि मैं <= ५५०० सेल (i, १) .Value = i CurrentUFProgressBarbitBarBarthBartBartBart_bharth Border.Width * CurrentUFProgressBar UFProgressBarPercentage = Round (CurrentUFProgressBar * 100, 0) UFProgressBar.Bar.Width = BarWidth UFProgressBar.Pext.Caption = UFProgressBarPercentage & "%" "Do" Do Dovents "Do Doents"
