इस सरल मैक्रो के साथ एक्सेल में पंक्तियों की कस्टम संख्या डालें

MS Office ऐप्स बहुत डिज़ाइन किए गए हैंसमझदारी से और मैं यह सिर्फ इसलिए नहीं कह रहा हूं क्योंकि वे मेरे काम को असीम रूप से आसान बनाते हैं। मैं यह कह रहा हूँ क्योंकि यह सच है। कुछ दिन पहले हमने Office 2013 में YouTube वीडियो डालने पर एक पोस्ट किया था और नोट किया था कि यह विकल्प केवल एमएस एक्सेल में अनुपस्थित था, क्योंकि इसकी आवश्यकता नहीं थी। यह उस प्रकार की बुद्धिमत्ता है जिसके बारे में मैं बात कर रहा हूँ; यह जानते हुए कि एक विशिष्ट प्रकार के ऐप में किन विशेषताओं की आवश्यकता है। यह सुनिश्चित करता है कि कुछ भी अप्रासंगिक न हो, इसे अंतिम पेशकश में शामिल करता है। उस ने कहा, मुझे यह जानकर आश्चर्य हुआ कि एक्सेल आपको वर्कशीट में अधिक पंक्तियों को सम्मिलित करने की अनुमति देता है, यह आपको उन पंक्तियों की संख्या का चयन नहीं करने देता है जिन्हें आप जोड़ना चाहते हैं। इसे पूरा करने के लिए आपके पास अन्य कार्य हैं जैसे कि आप उन पंक्तियों की संख्या का चयन करना चाहते हैं जो आप मौजूदा से जोड़ना चाहते हैं और फिर सम्मिलित फ़ंक्शन का उपयोग कर रहे हैं। या आप जितनी चाहे उतनी पंक्तियों के लिए सम्मिलित पंक्ति चरण दोहरा सकते हैं। यह दोहरावदार है, लेकिन अगर आप पांच मिनट भी नहीं चाहते हैं, तो यह छोटा मैक्रो आपके लिए नौकरी का ख्याल रख सकता है।

चूंकि इसके लिए मैक्रो की आवश्यकता होती है, इसलिए आपको इसकी आवश्यकता होगीअपनी फ़ाइल को मैक्रो सक्षम एक्सेल फ़ाइल के रूप में सहेजें। ऐसा करने के लिए, विंडो में सहेजें के रूप में 'Save as type' ड्रॉप-डाउन पर क्लिक करें और co Excel Marco Enabled Workbook (* xlsm) चुनें।

अगला, मैक्रो लिखने का समय है। व्यू टैब पर जाएं और नया बनाने के लिए मैक्रोज़ पर क्लिक करें। आपको जो पसंद है उसे नाम दें और and क्रिएट ’पर क्लिक करें। निम्न विंडो अपने आप खुल जाएगी।

यहाँ क्या प्रासंगिक हैं the उप ’और’ एंड सब ’लाइनों। सब लाइन में आपके मैक्रो का नाम होगा, जबकि एंड सब उस मैक्रो में कमोड के अंत को चिह्नित करता है। चूंकि आपने इसे बनाया है, इसलिए ऊपर दी गई स्क्रीनशॉट में उन पंक्तियों के बीच कुछ भी नहीं होना चाहिए। इन दो पंक्तियों के बीच निम्नलिखित चिपकाएँ।

Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet

यह कोड बहुत ऊपर से पाँच पंक्तियाँ डालेगा। इसे A1: A5 के रूप में कोड में संदर्भित किया गया है। अपनी आवश्यकताओं के अनुरूप इसे संपादित करने के लिए, आपको इस सीमा को संपादित करने की आवश्यकता है। पहला मान एक संदर्भ के रूप में कार्य करता है जहां पंक्तियों को डाला जाएगा। यदि आप इसे ए 100 में बदलते हैं, तो पंक्तियों को पहले निन्यानबे पंक्तियों के बाद डाला जाएगा। संदर्भ बिंदु सेट करने के बाद, आपको पंक्तियों की संख्या दर्ज करने की आवश्यकता है।

पंक्ति क्रमांक A1: A5 द्वारा परिभाषित की गई हैं। यह सीमा 5 पंक्तियों को सम्मिलित करेगी। अपनी पंक्तियों की संख्या के लिए सही सीमा खोजने के लिए, उदाहरण के लिए, आप A99 से 25 पंक्तियाँ सम्मिलित करना चाहते हैं, आप संदर्भ बिंदु से 25 जोड़ेंगे ताकि यह A99 हो और उसमें से एक सेल शून्य हो जाए। अर्थात। ए 100 + 99 - 1 = ए 198। आप पंक्तियाँ जोड़ रहे हैं और कॉलम नहीं हैं, इसलिए केवल संख्या बदल जाएगी और स्तंभ पत्र नहीं। मैक्रो को हर बार अपडेट करने की आवश्यकता होती है जब आपको पंक्तियाँ सम्मिलित करनी होती हैं लेकिन यह केवल एक छोटा सा संपादन होता है और यह वास्तव में अच्छी तरह से काम करता है इसलिए यह खर्च किए गए समय के लायक है।

Microsoft समर्थन के माध्यम से मैक्रो