वीबीए: फ़ॉर्मेटिंग के साथ एक लाइन कैसे डालें

आप VBA में उपरोक्त पंक्ति के समान प्रारूप वाली एक पंक्ति सम्मिलित करने के लिए निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 Sub insertRowWithFormatting()

ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End Sub

यह विशेष मैक्रो वर्तमान में चयनित पंक्ति में कोशिकाओं के समान स्वरूपण के साथ वर्तमान में चयनित सेल के नीचे एक पंक्ति सम्मिलित करेगा।

ध्यान दें : एप्लिकेशन.CutCopyMode = गलत लाइन निर्दिष्ट करती है कि मैक्रो निष्पादित होने के बाद कट और कॉपी मोड अक्षम किया जाना चाहिए।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

संबंधित: वीबीए का उपयोग करके एकाधिक पंक्तियाँ कैसे सम्मिलित करें

उदाहरण: VBA में फ़ॉर्मेटिंग के साथ एक पंक्ति डालें

मान लीजिए कि हमारे पास एक्सेल में निम्नलिखित डेटासेट है जिसमें विभिन्न बास्केटबॉल खिलाड़ियों के बारे में जानकारी है:

मान लीजिए कि हम ठीक उसी फ़ॉर्मेटिंग के साथ पंक्ति 2 के नीचे एक पंक्ति सम्मिलित करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub insertRowWithFormatting()

ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End Sub

फिर हम सेल A2 का चयन कर सकते हैं और फिर इस मैक्रो को चला सकते हैं।

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि हमने जो नई पंक्ति डाली है, उसका प्रारूप बिल्कुल पंक्ति 2 की कोशिकाओं के समान है, जिसमें सेल रंग और बॉर्डर शामिल हैं।

यह भी ध्यान दें कि मौजूदा डेटासेट में अन्य सभी पंक्तियों को नीचे धकेल दिया गया है।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: अंतिम प्रयुक्त पंक्ति कैसे खोजें
वीबीए: श्रेणी में पंक्तियों की संख्या कैसे गिनें
वीबीए: उपयोग किए गए कॉलमों की संख्या कैसे गिनें