एक्सेल VBA XLUP
VBA कोड लिखते समय आपको एक बात ध्यान में रखने की आवश्यकता है कि आप नियमित कार्यपत्रक के साथ क्या करते हैं, और आप VBA में भी यही बात दोहरा सकते हैं। इस लेख में VBA कोडिंग में एक ऐसा कीवर्ड "XLUP" है। हम आपको दिखाएंगे कि यह कीवर्ड VBA कोडिंग में क्या है और कोडिंग में इसका उपयोग कैसे करें।
कोडिंग में VBA XLUP का उपयोग कैसे करें?
एक्सेल VBA XLUP के उदाहरण निम्नलिखित हैं।
उदाहरण # 1 - कोशिकाओं की कोशिकाओं को हटाए गए स्थान पर ले जाएं
उदाहरण के लिए, नीचे दिए गए डेटा के परिदृश्य को देखें, जहां आपको उन रंगीन कोशिकाओं के डेटा को हटाने की आवश्यकता है और उपरोक्त डेटा के लिए नीचे की पंक्तियों को अधिक करना है।
कार्यपत्रक में इसे हटाने का एक तरीका उन कक्षों का चयन करना है, जिसमें हम पूरी पंक्ति को स्वयं हटा सकते हैं। लेकिन यहाँ, परिस्थितियाँ थोड़ी मुश्किल हैं क्योंकि मेरे पास तालिका 1 में रंगीन सेल हैं जब हम पूरी पंक्ति को हटा देते हैं, यहां तक कि तालिका 2 पंक्तियों को भी हटा दिया जाता है, लेकिन हम ऐसा नहीं चाहते हैं; इसके बजाय, हमें केवल रंगीन पंक्तियों को हटाने की आवश्यकता है और नीचे की कोशिकाओं को हटाए गए कोशिकाओं की स्थिति को ऊपर ले जाना चाहिए।
सबसे पहले, रंगीन कोशिकाओं का चयन करें और "हटाएं" विकल्प खोलने के लिए Ctrl + Minus Symbol (-) दबाएं ।
शॉर्टकट "कुंजी" खोलने के लिए विकल्प
"हटाएं" विकल्प विंडो में, हमारे पास चार विकल्प हैं। हम अपनी आवश्यकता के अनुसार कार्रवाई का चयन कर सकते हैं। चूँकि हमें अपनी कोशिकाओं को उन हटाई गई कोशिकाओं पॉज़िटॉन के लिए ऊपर ले जाने की ज़रूरत है, इसलिए “Shift Cell Up” चुनें।
हमारे पास तालिका 2 पंक्तियाँ अपरिवर्तित होंगी।
VBA में इस क्रिया को VBA में क्रियाओं के समान सेट करने के लिए "XLUP" गुण के उपयोग की आवश्यकता होती है। अब VBA एडिटर की विंडो पर आएं और अपना मैक्रो नाम शुरू करें।
कोड:
उप XLUP_Example () समाप्ति उप
सबसे पहले, इस ऑपरेशन में शामिल होने के लिए सेल RANGE की आपूर्ति करें। इस क्रिया में, हटाए जाने और ऊपर जाने वाली पहली कोशिकाएं "A5: B5" कोशिकाएं हैं।
कोड:
उप XLUP_Example () रेंज ("A5: B5") समाप्ति उप
इस श्रेणी की कोशिकाओं के लिए, "हटाएं" विधि चुनें।
कोड:
उप XLUP_Example () रेंज ("A5: B5")
जैसा कि आप "हटाएं" विधि के लिए देख सकते हैं, हमारे पास (Shift) के रूप में एक वैकल्पिक तर्क है । के लिए इस तर्क है, हम के रूप में तर्क दर्ज करने की आवश्यकता "XLUP।"
कोड:
उप XLUP_Example () रेंज ("A5: B5")। हटाएँ शिफ्ट: = xlUp समाप्ति उप
अब आप इस कोड को मैन्युअल रूप से या शॉर्टकट एक्सेल कुंजी F5 के माध्यम से देख सकते हैं।
जैसा कि आप तालिका 1 में देख सकते हैं, हमने पंक्ति संख्या 6 को 5 वीं पंक्ति में स्थानांतरित कर दिया है , और दूसरी ओर तालिका, 2 पंक्ति (रंगीन) अनलॉक्ड है, इसलिए "VBA XLUP" विकल्प का उपयोग करके, हम यह ऑपरेशन कर सकते हैं ।
उदाहरण # 2 - XLUP का उपयोग करके अंतिम प्रयुक्त पंक्ति खोजें
ऐसी स्थिति की कल्पना करें जहां आप A20th सेल में हैं (छवि के नीचे देखें), और आपका अंतिम-उपयोग सेल A14 है।
अब, यदि आप अंतिम प्रयुक्त सेल (A14) का चयन करना चाहते हैं, तो आप शॉर्टकट की का उपयोग करके कैसे करेंगे?
हम वर्तमान स्थिति से अंतिम उपयोग किए गए सेल में जाने के लिए Ctrl + Up Arrow कुंजी का उपयोग करेंगे ।
अंतिम कुंजी सेल में ले जाने के लिए शॉर्टकट कुंजी
इसलिए, वर्तमान सेल से, Ctrl + Up एरो ने अंतिम उपयोग की गई सेल को चुना। इसी तरह, VBA कोडिंग में, हम प्रदर्शन करने के लिए END (XLUP) का उपयोग करते हैं।
अब VBA कोडिंग विंडो पर वापस आएं।
In this window, we will perform the task of finding the last used row in the worksheet. Create a new subprocedure in the VBA window.
Code:
Sub XLUP_Example1() End Sub
To store the last used row number. define the variable as the VBA LONG data type.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long End Sub
Now for this variable, we will assign the last used row number.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = End Sub
Now use the RANGE object and open this object.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = Range( End Sub
Now mention the active cell (A20) for RANGE object.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20") End Sub
Now open END property for supplied range cell.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End( End Sub
As you can see above, we have to arrow key options like “xlDown,” “xlToLeft,” “xlToRight,” “xlUp.” Since we are moving up from the A14 cell, choose the “VBA XLUP” option.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp) End Sub
After moving up from A14 cell, we need to mention what we need to do since we need the last used row number, I will use ROW property.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row End Sub
Now for the message box, assign the value of variable “Last_Row_Number.”
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row MsgBox Last_Row_Number End Sub
Now you can run this code manually or through shortcut key F5 to see the result.
So message box showing the last used row number as 14, so our last data used row number is A14 cell.
In this case, since the data is very small, we started the room cell, but when the data is large, we cannot say which cell to take into consideration first. In such cases, we need to employ a different technique.
We need to use CELLS property. Below is an example of the same.
Code:
Sub XLUP_Example2() Dim Last_Row_Number As Long Last_Row_Number = Cells(Rows.Count, 1).End(xlUp).Row MsgBox Last_Row_Number End Sub
Now you can run this code manually or through shortcut key F5 to see the result.
RANGE ऑब्जेक्ट के बजाय, मैंने CELLS प्रॉपर्टी का उपयोग किया है। इसके बारे में आपको विस्तार से बताता हूं।
ROW.COUNT यह गणना करेगा कि कॉलम 1 में कितनी पंक्तियाँ हैं । यह क्या करेगा यह यादृच्छिक सेल पते के बजाय कार्यपत्रक में अंतिम सेल को ध्यान में रखेगा। उपरोक्त मामले में, हमने A14 को यादृच्छिक सेल पते के रूप में उपयोग किया है।
VBA XLUP के बारे में याद रखने योग्य बातें
- एक्सेल में "अप एरो" कुंजी की कार्रवाई को दोहराने के लिए XLUP VBA कोड में प्रयुक्त शब्द है।
- VBA XLUP का उपयोग सक्रिय कोशिकाओं से उपरोक्त सेल या अंतिम प्रयुक्त सेल में जाने के लिए किया जाता है।
- XLUP का उपयोग आम तौर पर VBA में END संपत्ति के साथ किया जाता है।
