एक्सेल VBA में एक पंक्ति की प्रतिलिपि कैसे करें

एक्सेल को प्रोग्राम करने के लिए VBA का उपयोग करना उतना लोकप्रिय नहीं है जितना कि एक बार था। हालांकि, अभी भी बहुत सारे प्रोग्रामर हैं जो एक्सेल के साथ काम करते समय इसे पसंद करते हैं। यदि आप उन लोगों में से एक हैं, तो यह लेख आपके लिए है।

एक्सेल में एक पंक्ति की प्रतिलिपि बनाना VBA एक्सेल VBA के लिए वास्तव में उपयोगी है। उदाहरण के लिए, आप अपनी सभी प्राप्तियों की एक फ़ाइल तिथि, खाता, श्रेणी, प्रदाता के साथ रखना चाहते हैं। उत्पाद / सेवा, और लागत एक बार में एक पंक्ति में प्रवेश करते हैं, जैसे कि वे होते हैं - बजाय लेखांकन विकसित करने का एक उदाहरण स्थिर लेखांकन। ऐसा करने के लिए, आपको एक वर्कशीट से दूसरे में एक पंक्ति को कॉपी करने में सक्षम होना चाहिए।

एक नमूना एक्सेल VBA प्रोग्राम जो एक वर्कशीट से दूसरे में एक पंक्ति को कॉपी करता है — सादगी के लिए केवल तीन कॉलम का उपयोग करते हुए - इसमें शामिल हैं:

• के लिए एक अल्फा कॉलम टेक्स्ट
• एक संख्यात्मक स्तंभ - लक्ष्य वर्कशीट पर एक स्वचालित योग बनाया जाता है
• एक तिथि स्तंभ - वर्तमान तिथि और समय अपने आप भर जाता है

पंक्ति को कॉपी करने वाली घटना को ट्रिगर करने के लिए, मानक के साथ जाएं - एक बटन फॉर्म नियंत्रण। Excel में, डेवलपर टैब पर सम्मिलित करें पर क्लिक करें। फिर, बटन फ़ॉर्म नियंत्रण चुनें और उस बटन को ड्रा करें जहाँ आप इसे चाहते हैं। एक्सेल स्वचालित रूप से आपको एक का चयन करने का मौका देने के लिए एक संवाद प्रदर्शित करता है

लक्ष्य वर्कशीट में अंतिम पंक्ति को खोजने के कई तरीके हैं ताकि प्रोग्राम नीचे एक पंक्ति को कॉपी कर सके। यह उदाहरण कार्यपत्रक में अंतिम पंक्ति की संख्या बनाए रखने का विकल्प चुनता है। अंतिम पंक्ति की संख्या बनाए रखने के लिए, आपको उस नंबर को कहीं स्टोर करना होगा। यह एक समस्या हो सकती है क्योंकि उपयोगकर्ता संख्या बदल सकता है या हटा सकता है। इसके चारों ओर पाने के लिए, इसे सेल में सीधे फॉर्म बटन के नीचे रखें। इस तरह, यह उपयोगकर्ता के लिए दुर्गम है। (करने के लिए सबसे आसान काम सेल में एक मूल्य दर्ज करना है और फिर उस पर बटन को स्थानांतरित करना है।)

सब Add_The_Line () Dim currentRow As Integer Sheets ("Sheet1")। currentRow = Range ("C2") चुनें। मूल्य पंक्तियाँ (7)। चयन चुनें। शीट की प्रतिलिपि बनाएँ ("Sheet2")। चुनें पंक्तियों (वर्तमान) डिम डेट को दिनांक के रूप में पेस्ट करें। अब () (सेल) (करेंट्रीम, 4)। वेल्यू = सीएसटीआर (डीटेट) सेल (करेंटRR + 1, 3) को सक्रिय करें। डिम rTotalcell को रेंज सेट rTotalCell = _ Sheets ("Sheet2") (Cells) के रूप में सेट करें। पंक्तियाँ। गिनें, "C")। अंत (xlUp) ।Offset (1, 0) rTotalCell = WorksheetFunction। Sum _ (रेंज ("C7"), rTotalCell ऑफसेट (-1, 0)) शीट्स ("शीट 1")। रेंज ("सी 2")। मान = करंट = 1 एंड सब उप 

यह कोड xlUp का उपयोग करता है, जो एक "जादू की संख्या," या अधिक तकनीकी रूप से एक एनुमरेटेड स्थिरांक है, जिसे अंतिम विधि द्वारा मान्यता प्राप्त है। ऑफसेट (1,0) बस एक ही कॉलम में एक पंक्ति को ऊपर ले जाता है, इसलिए शुद्ध प्रभाव कॉलम सी में अंतिम सेल का चयन करना है।

शब्दों में, कथन कहता है:

• कॉलम C में अंतिम सेल पर जाएं (एंड + डाउन एरो के बराबर)।
• फिर, अंतिम अप्रयुक्त सेल (एंड + अप एरो के बराबर) पर वापस जाएं।
• फिर, एक और सेल ऊपर जाएं।

अंतिम कथन अंतिम पंक्ति के स्थान को अद्यतन करता है।

VBA शायद VB.NET की तुलना में कठिन है क्योंकि आपको VB और Excel VBA दोनों वस्तुओं को जानना होगा। XlUP का उपयोग उस विशिष्ट ज्ञान का एक अच्छा उदाहरण है जो आपके द्वारा दिए गए प्रत्येक कथन के लिए तीन अलग-अलग चीजों को देखे बिना VBA मैक्रोज़ लिखने में सक्षम होने के लिए महत्वपूर्ण है। Microsoft ने सही सिंटैक्स का पता लगाने में आपकी मदद करने के लिए Visual Studio एडिटर को अपग्रेड करने में बहुत प्रगति की है, लेकिन VBA एडिटर में बहुत बदलाव नहीं हुआ है।