एक्सेल में फॉन्ट विकल्प के रूप में ब्लिंकिंग या फ्लैशिंग टेक्स्ट की सुविधा नहीं है। अनुप्रयोगों के लिए एक्सेल के बिल्ट-इन विजुअल बेसिक का उपयोग करते हुए, हालांकि, आप एक फ्लैशिंग प्रभाव पैदा करते हुए टेक्स्ट को हर सेक्शन में रंग बदलने के लिए कोड का उपयोग कर सकते हैं।
स्टेप 1
Microsoft Excel 2010 फ़ाइल खोलें जिसमें आप टेक्स्ट को फ़्लैश बनाना चाहते हैं। VBA कंसोल को खोलने के लिए "Alt" और "F11" दबाएं।
दिन का वीडियो
चरण दो
VBA कंसोल के बाईं ओर "दिसवर्कबुक" प्रविष्टि पर राइट-क्लिक करें। अपने माउस को "इन्सर्ट" पर ले जाएँ और "मॉड्यूल" चुनें।
चरण 3
"यह वर्कबुक" विकल्प पर डबल-क्लिक करें। निम्नलिखित कोड को कॉपी करें और इसे स्क्रीन के दाईं ओर सफेद स्थान में पेस्ट करें:
निजी उप वर्कबुक_ओपन () ब्लिंक एंड सब
निजी उप कार्यपुस्तिका_पहले बंद करें (बूलियन के रूप में रद्द करें) NoBlink अंत उप
जब आप इस कार्यपुस्तिका को खोलेंगे तो यह कोड शुरू हो जाएगा और ब्लिंकिंग टेक्स्ट, और ब्लिंकिंग टेक्स्ट बंद हो जाएगा जब आप कार्यपुस्तिका को बंद करते हैं, एक बार जब आप एक्सेल को यह बताने के लिए कोड डालते हैं कि वास्तव में ब्लिंक और नोब्लिंक क्या है अर्थ।
चरण 4
स्क्रीन के बाईं ओर सूची से "मॉड्यूल 1" पर डबल-क्लिक करें। अपने कर्सर को स्क्रीन के दाईं ओर रखें और निम्न पंक्ति दर्ज करें:
सार्वजनिक टाइमकाउंट डबल के रूप में
यह "टाइमकाउंट" नामक एक वैरिएबल बनाता है जिसका उपयोग आप प्रत्येक सबरूटीन में कर सकते हैं।
चरण 5
कर्सर को अगली पंक्ति में ले जाने के लिए एंटर दबाएं और निम्न कोड दर्ज करें:
सब ब्लिंक () इस वर्कबुक के साथ। वर्कशीट्स ("शीट 1")। रेंज ("ए 1: ए 10")। फॉन्ट इफ। कलरइंडेक्स = 3 फिर। कलरइंडेक्स = 2 एल्स। कलरइंडेक्स = 3 एंड अगर टाइमकाउंट के साथ खत्म होता है = अब + टाइमसीरियल (0, 0, 1) एप्लीकेशन। ऑनटाइम टाइमकाउंट, "ब्लिंक", ट्रू एंड सब
यह "ब्लिंक" नामक एक सबरूटीन बनाता है जो परिभाषित सीमा के भीतर सभी टेक्स्ट को फ्लैश करने का कारण बनता है। आप "A1:A10" से रेंज को अपनी इच्छानुसार किसी भी रेंज में बदल सकते हैं, जिसमें एक व्यक्तिगत सेल भी शामिल है।
चरण 6
अगली पंक्ति तक पहुँचने के लिए "एंटर" दबाएँ और निम्नलिखित कोड दर्ज करें:
सब नोब्लिंक () यह वर्कबुक। वर्कशीट्स ("शीट 1")। रेंज ("ए 1: ए 10")। फ़ॉन्ट। ColorIndex = _ xlColorIndexAutomatic Application. ऑनटाइम टाइमकाउंट, "ब्लिंक",, फाल्स एंड सब
यह एक सबरूटीन बनाएगा जो आपके द्वारा कार्यपुस्तिका को बंद करने पर चलेगा। यह सभी टेक्स्ट को वापस काले रंग में बदल देता है, ताकि कोई व्यक्ति जो मैक्रोज़ सक्षम किए बिना कार्यपुस्तिका खोलता है, उसे गलती से टेक्स्ट बॉक्स में कुछ भी नहीं दिखाई देगा।
चरण 7
ऊपरी दाएं कोने में "X" पर क्लिक करके VBA कंसोल को बंद करें। स्क्रीन के शीर्ष पर "फ़ाइल" टैब पर क्लिक करें और "इस रूप में सहेजें" चुनें। ड्रॉप-डाउन फ़ील्ड से "एक्सेल मैक्रो-सक्षम कार्यपुस्तिका" चुनें और कार्यपुस्तिका के लिए एक नाम टाइप करें। "सहेजें" पर क्लिक करें।
चरण 8
एक्सेल फ़ाइल को बंद करें और फिर इसे फिर से खोलें। मैक्रो में परिभाषित सीमा के भीतर आपका टेक्स्ट फ्लैश होना शुरू हो जाएगा। आपकी सुरक्षा सेटिंग्स के आधार पर, आपको फ्लैशिंग टेक्स्ट देखने के लिए स्क्रीन के शीर्ष पर "मैक्रोज़ सक्षम करें" बटन पर क्लिक करने की आवश्यकता हो सकती है।
