यह ट्यूटोरियल आपको दिखाएगा कि VBA में Range.End प्रॉपर्टी का उपयोग कैसे करें।
अधिकांश चीजें जो आप एक्सेल वर्कबुक या वर्कशीट में मैन्युअल रूप से करते हैं, उन्हें वीबीए कोड में स्वचालित किया जा सकता है।
यदि आपके पास Excel में गैर-रिक्त कक्षों की श्रेणी है, और आप दबाते हैं Ctrl+नीचे तीर, आपका कर्सर उस कॉलम के अंतिम गैर-रिक्त सेल में चला जाएगा जिसमें आप हैं। इसी तरह, यदि आप दबाते हैं सीटीएल+ऊपर तीर, आपका कर्सर पहले गैर-रिक्त सेल में चला जाएगा। वही का उपयोग करते हुए एक पंक्ति के लिए लागू होता है Ctrl+दायाँ तीर या Ctrl+बायां तीर उस पंक्ति के आरंभ या अंत में जाने के लिए। इन सभी प्रमुख संयोजनों का उपयोग आपके वीबीए कोड के भीतर किया जा सकता है अंत समारोह.
रेंज एंड प्रॉपर्टी सिंटेक्स
रेंज.एंड प्रॉपर्टी आपको वर्तमान क्षेत्र के भीतर एक विशिष्ट सेल में जाने की अनुमति देती है जिसके साथ आप काम कर रहे हैं।
अभिव्यक्ति.समाप्त (दिशा)
अभिव्यक्ति उस सेल का सेल पता (रेंज) है जहां से आप शुरू करना चाहते हैं जैसे: रेंज ("ए 1")
END रेंज ऑब्जेक्ट की संपत्ति को नियंत्रित किया जा रहा है।
दिशा एक्सेल स्थिरांक है जिसका आप उपयोग करने में सक्षम हैं। 4 विकल्प उपलब्ध हैं - xlडाउन, xlToLeft, xlToRight तथा एक्सएलअप
लास्ट सेल में जाना
नीचे दी गई प्रक्रिया आपको उन कक्षों के वर्तमान क्षेत्र के अंतिम कक्ष में ले जाएगी, जिनमें आप हैं।
1234 | उप गोटोलास्ट ()'कोशिकाओं के वर्तमान क्षेत्र में व्याप्त अंतिम सेल पर जाएँ'रेंज ("ए 1")। अंत (एक्सएलडाउन)। चुनेंअंत उप |
पंक्तियों की गिनती
निम्नलिखित प्रक्रिया आपको इसका उपयोग करने की अनुमति देती है एक्सएलडाउन आपके वर्तमान क्षेत्र में कितनी पंक्तियाँ हैं यह गिनने के लिए रेंज एंड प्रॉपर्टी के साथ स्थिर।
12345678 | उप GoToLastRowofRange ()पूर्णांक के रूप में मंद rwरेंज ("ए 1")। चुनें'वर्तमान क्षेत्र में अंतिम पंक्ति प्राप्त करें'आरडब्ल्यू = रेंज ("ए 1")। अंत (एक्सएलडाउन)। पंक्ति'दिखाएँ कि कितनी पंक्तियों का उपयोग किया जाता है'MsgBox "इस श्रेणी में प्रयुक्त अंतिम पंक्ति है" & rwअंत उप |
जबकि नीचे दिया गया कॉलम का उपयोग करके श्रेणी में कॉलम की गणना करेगा xlToRight लगातार।
12345678 | उप GoToLastCelofRange ()डिम कोल अस इंटीजररेंज ("ए 1")। चुनें'वर्तमान क्षेत्र में अंतिम कॉलम प्राप्त करें'कर्नल = रेंज ("ए 1")। अंत (xlToRight)। कॉलम'दिखाएँ कि कितने कॉलम उपयोग किए गए हैं'MsgBox "इस श्रेणी में प्रयुक्त अंतिम कॉलम है" & colअंत उप |
एक रेंज ऐरे बनाना
नीचे दी गई प्रक्रिया हमें सेल की श्रेणी में पहले सेल से शुरू करने की अनुमति देती है, और फिर सेल की श्रेणी में अंतिम सेल को खोजने के लिए एंड (xlDown) प्रॉपर्टी का उपयोग करती है। फिर हम रेंज में कुल पंक्तियों के साथ अपने एरे को रीडिम कर सकते हैं, जिससे हमें सेल की रेंज के माध्यम से लूप करने की अनुमति मिलती है।
123456789101112131415161718 | उप पॉप्युलेटअरे ()'सरणी घोषित करें'मंद strSuppliers () स्ट्रिंग के रूप में'पंक्तियों को गिनने के लिए पूर्णांक घोषित करें'डिम एन अस इंटीजर'पंक्तियों को गिनें'एन = रेंज ("बी 1", रेंज ("बी 1")। एंड (एक्सएलडाउन))। पंक्तियां। गणना'सरणी को इनिशियलाइज़ और पॉप्युलेट करें'ReDim strCustomers(n)'लूपिंग के लिए पूर्णांक घोषित करें'डिम आई अस इंटीजर'सरणी को पॉप्युलेट करें'मैं = 0 से n . के लिएstrCustomers(i) = Range("B1").Offset(i, 0).Valueअगला मैं'सरणी के मूल्यों के साथ संदेश बॉक्स दिखाएं'MsgBox Join(strCustomers, vbCrLf)अंत उप |
जब हम इस प्रक्रिया को चलाते हैं, तो यह निम्न संदेश बॉक्स लौटाएगा।