VBA का उपयोग करके पैन को फ़्रीज़ करें
मैंने हाल ही में एक्सेल में फ्रीजिंग पैन पर पोस्ट किया है, यहां बताया गया है कि आप इसे वीबीए का उपयोग कैसे कर सकते हैं:
फ़्रीज़ पंक्तियाँ
पंक्तियाँ ("1: 1")। ActiveWindow का चयन करें। फ़्रीज़पेन्स = ट्रू
फ़्रीज़ कॉलम
रेंज ("ए: ए")। एक्टिवविंडो का चयन करें। फ्रीजपेन्स = ट्रू
पंक्तियों और स्तंभों को फ़्रीज़ करें
रेंज ("बी 2")। एक्टिवविंडो का चयन करें। फ्रीजपेन्स = ट्रू
पैन को अनफ्रीज करें
ActiveWindow.FreezePanes = False
बिना फ़्रीज़ पैन के सहेजने के लिए कार्यपुस्तिका को बाध्य करें
एक्सेल हमें घटनाओं के माध्यम से चीजों को नियंत्रित करने देता है। यह लेख इस बारे में विस्तृत चर्चा नहीं है कि कौन सी घटनाएं हैं या उनकी विशेषताएं क्या हैं। इसके बजाय यह वर्कबुक इवेंट का उदाहरण देता है। ये वे ईवेंट हैं जो किसी विशेष कार्यपत्रक के बजाय कार्यपुस्तिका स्तर पर आयोजित किए जाते हैं।
वीबीए के माध्यम से हम नियंत्रित कर सकते हैं कि कुछ घटनाओं में क्या होता है जैसे छपाई से पहले या सहेजने से पहले। एक आम समस्या जिसका मुझे सामना करना पड़ता है, वह यह है कि जिन लोगों के साथ मैं काम करता हूं, वे उन पर फ़्रीज़ पैन वाली फ़ाइलें पसंद नहीं करते हैं।
तो इस लेख में, हम कुछ कोड एक साथ रखेंगे जो जांच करेगा कि फ्रीज पैन चालू है या नहीं और यदि ऐसा है, तो यह फ़ाइल को सहेज नहीं पाएगा। इसका मतलब है कि मुझे इसे बिना फ्रीज पैन के सहेजना है - अपने साथियों को खुश रखना !!
कार्यपुस्तिका घटनाओं के बारे में सबसे महत्वपूर्ण बात यह है कि उन्हें सही जगह पर सहेजा जाना चाहिए - कार्यपुस्तिका स्तर पर।
कार्यपुस्तिका स्तर तक पहुँचने के लिए, नीचे दिए गए चरणों का पालन करें:
1. एक्सेल वर्कबुक पर राइट क्लिक करें - कोड देखें:
2. यह लाएगा:
3. "दिस वर्कबुक" पर डबल क्लिक करें और फिर बाईं ओर पहली ड्रॉप डाउन से "वर्कबुक" चुनें:
हम देखते हैं कि वर्कबुक ओपन इवेंट के लिए कुछ कोड के साथ बाईं ओर का मान अब "ओपन" में बदल गया है। यह कोड हमें यह निर्धारित करने देगा कि जब कार्यपुस्तिका पहली बार खुलती है तो क्या होता है।
हालाँकि हम यह नियंत्रित करना चाहते हैं कि जब हम कार्यपुस्तिका को सहेजते हैं तो क्या होता है। इसलिए दाहिने हाथ के ड्रॉप डाउन को "बिफोर सेव" में बदलें। स्क्रीन अब इस तरह दिखेगी:
अब हम घोषणा के बाद निम्नलिखित कोड डालते हैं:
यदि ActiveWindow.FreezePanes = True तो MsgBox "फ़्रीज़ पैन चालू है - फ़ाइल सहेजी नहीं गई है" रद्द करें = सही अंत यदि
ताकि पूरा कोड अब इस तरह दिखे:
निजी उप कार्यपुस्तिका_ इससे पहले सहेजें (बूलियन के रूप में बायवैल सेवएएसयूआई, बूलियन के रूप में रद्द करें) यदि ActiveWindow.FreezePanes = True तो MsgBox "फ्रीज पैन चालू है - फ़ाइल सहेजी नहीं गई है" रद्द करें = सही अंत यदि अंत उप
अब फाइल को सेव करें और फिर किसी भी विंडो में फ्रीज पैन को सक्रिय करें। फिर - फाइल को फिर से सेव करें। एक संदेश बॉक्स दिखाई देगा जो बताता है कि "फ़्रीज़ पैन" चालू है - और फ़ाइल सहेजी नहीं गई है।
वास्तव में फाइल तब तक सेव नहीं होगी जब तक कि फ्रीज पैन को हटा नहीं दिया जाता।
