VBA में एक पंक्ति सम्मिलित करना VBA में एक कॉलम डालने से कुछ अलग है, स्तंभों में हमने संपूर्ण स्तंभ विधि का उपयोग किया है लेकिन उन पंक्तियों को सम्मिलित करने के लिए हम एक पंक्ति सम्मिलित करने के लिए इन्सर्ट कमांड के साथ वर्कशीट विधि का उपयोग करते हैं, हम एक पंक्ति संदर्भ भी प्रदान करते हैं जहाँ हम सम्मिलित करना चाहते हैं कॉलम के समान एक और पंक्ति।
VBA एक्सेल के साथ रो डालें
हम VBA कोडिंग के साथ एक्सेल में किए गए सभी कार्यों को पूरा कर सकते हैं। हम कॉपी कर सकते हैं, हम पेस्ट कर सकते हैं, हम हटा सकते हैं, और हम वीबीए भाषा के माध्यम से कई और चीजें कर सकते हैं। "पंक्ति सम्मिलित करना" एक ऐसी विधि है जिसे हम अक्सर एक्सेल में करते हैं। इस लेख में, हम आपको दिखाएंगे कि वीबीए में इन्सर्ट रो विधि कैसे करें।
एक्सेल VBA में रो कैसे डालें?
एक्सेल में एक पंक्ति सम्मिलित करने के लिए VBA का उपयोग करने के विभिन्न तरीके नीचे दिए गए हैं।
विधि # 1 - आवेषण विधि का उपयोग करना
VBA में, एक पंक्ति सम्मिलित करने के लिए, हमें उसी तरह की तकनीक का उपयोग करने की आवश्यकता है जिसका उपयोग हमने एक्सेल वर्कशीट में किया है। VBA में, हमें पंक्ति सम्मिलित करने के लिए रेंज ऑब्जेक्ट का उपयोग करने की आवश्यकता है।
उदाहरण के लिए, नीचे दिए गए कोड को देखें।
कोड:
उप InsertRow_Example1 () रेंज ("A1")। अंत उप सम्मिलित करें
यह कोड सेल A1 से B1 तक नीचे जाएगा और एकमात्र सेल को सम्मिलित करेगा।
यह डेटा को संभालने के मामले में बहुत सारी समस्याएं पैदा करेगा। यह केवल उल्लिखित सेल को नीचे ले जाएगा, और अन्य सभी संबद्ध स्तंभ समान रहेंगे।
विधि # 2 - संपूर्ण पंक्ति संपत्ति का उपयोग करना
शीर्ष सम्मिलित पंक्ति, हम वास्तव में कई विधियों का उपयोग कर सकते हैं। नीचे दी गई विधि चयनित सेल के ऊपर पूरी पंक्ति को सम्मिलित करेगी।
चरण 1: पहले सेल पते का उल्लेख करें ।
कोड:
सब इन्सट्रॉ__ नमूना 2 () रेंज ("A1")। अंत उप
चरण 2: केवल " संपूर्ण पंक्ति " संपत्ति का उपयोग करने के बजाय ।
कोड:
सब इन्सट्रॉ__ नमूना 2 () रेंज ("A1")। EntireRow। अंत उप
चरण 3: संपूर्ण पंक्ति गुण तक पहुंचने के बाद, सम्मिलित विधि का उपयोग करें ।
कोड:
सब इन्सट्रॉ__ नमूना 2 () रेंज ("A1")। EntireRow.Insert समाप्ति उप
यह सेल A1 के ऊपर की पंक्ति को सम्मिलित करेगा। चूंकि A1 पहली पंक्ति है, यह A1 सेल को B1 तक ले जाएगा।
जैसा कि आप उपरोक्त छवि में कर सकते हैं, इसमें पूरी पंक्ति सम्मिलित करनी है, एकल कक्ष नहीं।
विधि # 3 - पंक्ति संख्याओं का उपयोग करना
उपरोक्त उदाहरण में, हमने केवल एकल-सेल पते का उपयोग किया है और पंक्ति को सम्मिलित किया है। हालाँकि, हम उन्हें पंक्ति संख्याओं का उपयोग करके भी सम्मिलित कर सकते हैं।
मान लें कि आप 5 वीं पंक्ति के नीचे एक पंक्ति सम्मिलित करना चाहते हैं । सबसे पहले, हमें RANGE ऑब्जेक्ट का उपयोग करके पंक्ति संख्याओं का उल्लेख करना होगा।
कोड:
सब इन्सट्रॉ__ नमूना 3 () रेंज ("6: 6")। अंत उप
चूंकि हमने पूरी पंक्ति का उल्लेख 6: 6 के रूप में किया है, इसलिए हमें यहां पूरी पंक्ति की संपत्ति का उपयोग करने की आवश्यकता है। हम सीधे "INSERT" विधि का उपयोग कर सकते हैं।
कोड:
उप InsertRow_Example3 () श्रेणी ("6: 6")। अंत उप सम्मिलित करें
यह एकल पंक्ति नहीं, बल्कि संपूर्ण पंक्ति सम्मिलित करेगा।
यदि आप 5 वीं पंक्ति के नीचे दो पंक्तियों को सम्मिलित करना चाहते हैं , तो हमें पहले 2 पंक्तियों का चयन करना होगा और फिर INSERT पद्धति का उपयोग करना होगा।
सब InsertRow_Example3 () रेंज ("6: 7")। अंत सब सम्मिलित करें
यह 5 वीं पंक्ति के नीचे दो पंक्तियों को सम्मिलित करेगा ।
इस तरह, हम वर्कशीट में अधिक से अधिक पंक्तियों को सम्मिलित कर सकते हैं।
विधि # 4 - सक्रिय सेल संपत्ति का उपयोग करना
हम पंक्तियों को सम्मिलित करने के लिए सक्रिय सेल VBA संपत्ति का उपयोग कर सकते हैं। सक्रिय सेल और कुछ नहीं बल्कि वर्तमान में चयनित सेल है।
मान लें कि आप कक्ष B5 में हैं, और आप ऊपर एक पंक्ति सम्मिलित करना चाहते हैं, तो आप सक्रिय कक्ष गुण का उपयोग कर सकते हैं।
सब इन्सट्रॉ__ नमूना 4 () ActiveCell.EntireRow.Insert समाप्ति उप
यह सक्रिय सेल के ऊपर की पंक्ति को सम्मिलित करेगा।
विधि # 5 - ऑफसेट फ़ंक्शन के साथ सक्रिय सेल संपत्ति का उपयोग करना
मान लें कि आप सक्रिय सेल की 2 पंक्तियों के बाद एक पंक्ति सम्मिलित करना चाहते हैं, हमें पंक्तियों की संख्या को ऑफसेट करने के लिए ऑफसेट फ़ंक्शन का उपयोग करने की आवश्यकता है।
मान लें कि आप B5 सेल में हैं।
यदि आप सक्रिय सेल से 2 एनडी पंक्ति के बाद पंक्ति सम्मिलित करना चाहते हैं , तो हम नीचे दिए गए कोड का उपयोग कर सकते हैं।
कोड:
उप सम्मिलित करें_उपयोग_5 () ActiveCell.Offset (2, 0) .EntireRow.Initory समाप्ति उप
यह 6 वीं पंक्ति के बाद पंक्ति सम्मिलित करेगा ।
वैकल्पिक पंक्तियाँ डालें
वैकल्पिक पंक्तियों को सम्मिलित करना अक्सर मैं कई बार भर आया हूं। नीचे दिए गए डेटा छवि को देखने के लिए।
अब हमें वैकल्पिक पंक्तियों को सम्मिलित करने की आवश्यकता है। हमें हर वैकल्पिक पंक्ति को सम्मिलित करने के लिए छोरों का उपयोग करने की आवश्यकता है।
कोड:
उप InsertRow_Example6 () कश्मीर के पूर्णांक X के रूप में मंद K = 1 के लिए 1 = 4 सेल (X, 1) के लिए 1 .EntireRow.Insert X = X + 2 अगला K अंत उप
यह इस तरह पंक्तियाँ डालेगा।
आप इस VBA इन्सर्ट रो एक्सेल को यहाँ डाउनलोड कर सकते हैं। VBA सम्मिलित पंक्ति एक्सेल टेम्पलेट
