VBA अंत समारोह - VBA में अंतिम संपत्ति का उपयोग करना (उदाहरणों के साथ)

VBA में अंत समारोह

अंत VBA में एक बयान है जिसमें VBA अनुप्रयोगों में कई रूप हैं, सरल अंत कथन को कोड में कहीं भी रखा जा सकता है और यह स्वचालित रूप से कोड के निष्पादन को रोक देगा, अंत कथन का उपयोग कई प्रक्रियाओं में किया जाता है जैसे उपप्रक्रिया या अंत करना कोई लूप फंक्शन जैसे एंड।

सब कुछ के लिए, एक अंत है, और VBA में, यह अलग नहीं है। आपने अपने VBA के सभी कोड में " End " शब्द देखा होगा । हम "एंड सब," एंड फंक्शन, "एंड इफ" में समाप्त कर सकते हैं। ये सामान्य हैं क्योंकि हम जानते हैं कि प्रत्येक एंड प्रक्रिया के अंत का सुझाव देता है। इन VBA अंत कथनों को किसी विशेष परिचय की आवश्यकता नहीं है क्योंकि हम अपने VBA कोडिंग में इससे परिचित हैं।

उपरोक्त "एंड" के अलावा, हमारे पास एक संपत्ति, "एंड" वीबीए में है। इस लेख में, हम आपको उस संपत्ति के माध्यम से ले जाएंगे और हमारे कोडिंग में इसका उपयोग कैसे करें।

अंतिम संपत्ति VBA में

"अंत" वह संपत्ति है जिसका उपयोग हम VBA में सुझाई गई दिशा में जाने के लिए करते हैं। दिशा का विशिष्ट उदाहरण सक्रिय सेल से अंतिम उपयोग किए गए सेल या वर्कशीट में क्षैतिज और लंबवत रूप से प्रवेश कर रहा है।

उदाहरण के लिए, आइए इसे एक वर्कशीट के साथ याद करते हैं। निचे इमेज में देखें।

अभी, हम A1 सेल में हैं।

यदि हम क्षैतिज रूप से अंतिम उपयोग किए गए सेल में जाना चाहते हैं, तो हम एक्सेल शॉर्टकट कुंजी Ctrl + राइट एरो का उपयोग करते हैं , और यह हमें क्षैतिज रूप से अंतिम उपयोग किए गए सेल में ले जाएगा।

इसी तरह, यदि हम अंतिम उपयोग किए गए सेल को नीचे की ओर या लंबवत स्थानांतरित करना चाहते हैं, तो हम शॉर्टकट कुंजी + डाउन एरो दबाते हैं ।

इसलिए बाएं से दाएं जाने के लिए, हम Ctrl + Left Arrow दबाते हैं । करने के लिए शीर्ष करने के लिए नीचे से कदम, हम प्रेस Ctrl + ऊपर तीर।

एक समान चीज VBA में की जा सकती है लेकिन Ctrl कुंजी का उपयोग करके नहीं । बल्कि हमें "एंड" शब्द का उपयोग करने की आवश्यकता है ।

एक्सेल VBA एंड फंक्शन के उदाहरण

उदाहरण # 1 - वर्कशीट में स्थानांतरित करने के लिए VBA अंतिम संपत्ति का उपयोग करें

आइए देखें कि शीट में स्थानांतरित करने के लिए एक्सेल वीबीए एंड का उपयोग कैसे करें। सबसे पहले, हमें यह तय करने की आवश्यकता है कि हमें किस सेल को स्थानांतरित करने की आवश्यकता है। ठीक है, मान लें कि हमें सेल A1 से जाने की जरूरत है, इसलिए VBA रेंज ऑब्जेक्ट का उपयोग करके सेल को देखें।

कोड:

सब एंड_Example1 () रेंज ("A1") एंड सब

रखो बिंदु (।) IntelliSense सूची देखने के लिए। सूची से "अंत" VBA संपत्ति का चयन करें।

कोड:

उप End_Example1 () रेंज ("A1")

एक बार अंतिम संपत्ति खुली कोष्ठक का चयन किया।

कोड:

उप End_Example1 () रेंज ("A1")। End (समाप्ति उप)

जैसे ही आप कोष्ठक खोलते हैं, हम "उपलब्ध" संपत्ति के साथ सभी उपलब्ध विकल्पों को देख सकते हैं। क्षैतिज रूप से अंतिम प्रयुक्त सेल में सेल A1 से स्थानांतरित करने के लिए "xlToRight" का चयन करें ।

कोड:

उप End_Example1 () श्रेणी ("A1")। अंत (xlToRight) समाप्ति उप

अंतिम सेल में जाने के बाद, हमें यह चुनना होगा कि हमें क्या करना है। IntelliSense सूची देखने के लिए डॉट (।) लगाएं।

कोड:

उप End_Example1 () रेंज ("A1")। End (xlToRight)। अंत उप

IntelliSense सूची से "चयन करें" विधि चुनें।

कोड:

उप End_Example1 () रेंज ("A1")। End (xlToRight)। चयन समाप्ति

यह क्षैतिज रूप से अंतिम उपयोग की गई कोशिकाओं को सेल A1 का उपयोग करेगा।

इसी तरह, दाएं, बाएं, नीचे, ऊपर जाने के लिए अन्य तीन विकल्पों का उपयोग करें।

सेल से सही स्थानांतरित करने के लिए A1।

कोड:

उप End_Example1 () रेंज ("A1")। End (xlToRight)। चयन समाप्ति

सेल A1 से नीचे जाने के लिए।

कोड:

उप End_Example1 () रेंज ("A1")। अंत (xlDown)। चयन अंत उप

सेल A5 से ऊपर जाने के लिए।

कोड:

उप End_Example1 () श्रेणी ("A5")। अंत (xlUp)। चयन अंत उप

सेल D1 से लेफ्ट को स्थानांतरित करने के लिए।

कोड:

उप End_Example1 () रेंज ("D1")। अंत (xlToLeft)। चयन उप।

उपरोक्त सभी कोड वर्कशीट में स्थानांतरित करने के लिए "एंड" संपत्ति का उपयोग करने के उदाहरण हैं।

Now we will see how to select the ranges by using the “End” property.

Example #2 - Selection Using End Property

We need to End the property to select the range of cells in the worksheet. For this example, consider the below data.

Select A1 to Last Used Cell

To select the cells from A1 to the last used cell horizontally, first, mention the cell A1 in Range object.

Code:

Sub End_Example2() Range("A1", End Sub

For the second argument, open one more Range object and mention the cell as A1 only.

Code:

Sub End_Example2() Range("A1",Range("A1") End Sub

Close only one bracket and put a dot to select the Excel VBA End property.

Code:

Sub End_Example2() Range("A1",Range("A1").End( End Sub

Now select xlToRight and close two brackets.

Code:

Sub End_Example2() Range("A1",Range("A1").End(xlToRight)) End Sub

Now chose the “Select” method.

Code:

Sub End_Example2() Range("A1", Range("A1").End(xlToRight)).Select End Sub

Ok, we are done.

Run this code to see the impact.

As you can see, it has selected the range A1 to D1.

Similarly, to select downwards, use the below code.

Code:

Sub End_Example2() Range("A1", Range("A1").End(xlDown)).Select 'To select from left to right End Sub

Code:

Sub End_Example2() Range("A1", Range("A1").End(xlDown)).Select 'To select from top to down End Sub

Code:

Sub End_Example2() Range("D1", Range("D1").End(xlToLeft)).Select 'To select from right to left End Sub

Code:

Sub End_Example2() Range("A5", Range("A5").End(xlUp)).Select 'To select from bottom to up End Sub

उदाहरण # 3 - राइट टू लेफ्ट, राइट टू बॉटम, और टॉप

हमने देखा है कि क्षैतिज और लंबवत रूप से कैसे चुनें। दोनों लंबवत और क्षैतिज रूप से चयन करने के लिए, हमें दो "एंड" गुणों का उपयोग करने की आवश्यकता है। A1 से D5 तक डेटा का चयन करने के लिए, हमें नीचे दिए गए कोड का उपयोग करना होगा।

कोड:

उप End_Example3 () रेंज ("A1", रेंज ("A1")। End (xlDown)। और (xlToRight))। सेल A1 से अंतिम सेल के नीचे और दाएं छोर का उपयोग करने के लिए 'का चयन करें'।

यह नीचे की तरह पूरी रेंज का चयन करेगा।

इस तरह, हम कक्षों की एक श्रृंखला का चयन करने के लिए VBA "एंड" फ़ंक्शन गुण का उपयोग कर सकते हैं।