VBA AutoFill (स्टेप बाय स्टेप गाइड) - एक्सेल VBA में ऑटोफिल का उपयोग करने के उदाहरण

एक्सेल VBA में ऑटोफिल क्या करता है?

हमने वर्कशीट में ऑटोफिल को देखा है, जहां कोशिकाओं को स्वचालित रूप से इसके ऊपर की पिछली कोशिकाओं के मूल्यों के आधार पर भरा जाता है, हम VBA का उपयोग कर सकते हैं ताकि एक्सेल हमारे लिए कार्य करता है, ऐसा करने के लिए हम Selection.Autofill विधि का उपयोग करते हैं और हम प्रदान करते हैं गंतव्य यानी उन कोशिकाओं तक, जिनमें मूल्यों को भरने की आवश्यकता होती है।

वीबीए ऑटोफिल का सबसे अच्छा उपयोग तब होता है जब हमें स्तंभ के सेल में पहले सेल के सूत्र को भरने की आवश्यकता होती है। हम आमतौर पर पहले सेल में सूत्र लागू करते हैं। या तो हम अंतिम सेल में कॉपी और पेस्ट करते हैं, या हम बस छोटे तीर कुंजी पर डबल क्लिक करके ऑटो-फिल करते हैं। एक्सेल में ऑटोफिल का उपयोग करने का एक और सबसे अच्छा उदाहरण है जब हमें सीरियल नंबर डालने की आवश्यकता होती है। हम आमतौर पर पहले तीन नंबर टाइप करते हैं; फिर, हम आवश्यक अंतिम सेल तक नीचे खींचते हैं।

VBA में, हम AutoFill विधि का कार्य कर सकते हैं। इस लेख में, हम आपको दिखाएंगे कि हम कोड लिखने के लिए ऑटोफिल विधि और तरीकों का उपयोग कैसे कर सकते हैं। अब हम देखेंगे कि हम VBA कोडिंग में इस टूल का उपयोग कैसे कर सकते हैं।

वीबीए में ऑटोफिल का उपयोग कैसे करें?

VBA में ऑटोफिल का उपयोग करने के लिए, हमें ऑटोफिल विधि के वाक्यविन्यास को समझने की आवश्यकता है। नीचे ऑटोफिल का सिंटैक्स है।

  • रेंज ("ए 1"): भरण श्रृंखला के पैटर्न की पहचान करने के लिए कोशिकाएं क्या हैं।
  • गंतव्य: जब तक आप भरना चाहते हैं, तब तक कौन सी श्रृंखला भरना है। यहां हमें कोशिकाओं की पूरी श्रृंखला का उल्लेख करने की आवश्यकता है।
  • XlAutoFillType के रूप में टाइप करें: यहां हम श्रृंखला भरण प्रकार का चयन कर सकते हैं। इस पैरामीटर में आइटमों की सूची नीचे दी गई है - xlFillCopy, xlFillDays, xlFillDefault, xlFillFormats, xlFillMonths, xlFillSeries, xlFillVeekues, xlFillWeekdays, xlFillDears, xlFillDearx, xlFillDays

एक्सेल VBA में ऑटोफिल के उदाहरण

आइए देखें एक्सेल में वीबीए ऑटोफिल के उन्नत उदाहरणों के कुछ सरल।

उदाहरण # 1 - xlFillDefault

सबसे पहले, पहले तीन कोशिकाओं में 3 सीरियल नंबर दर्ज करें।

VBA उप-प्रक्रिया में, रेंज के रूप में VBA श्रेणी का उल्लेख करें ("A1: A3")

कोड:

उप AutoFill_Example1 () रेंज ("A1: A3")। अंत उप  

अब AutoFill विधि का उपयोग करें।

श्रेणी के रूप में गंतव्य दर्ज करें ("A1: A10")

कोड:

रेंज ("A1: A3")। ऑटोफ़िल गंतव्य: = रेंज ("A1: A10") 

प्रकार का चयन करें xlFillDefault

कोड:

रेंज ("A1: A3")। ऑटोफिल डेस्टिनेशन: = रेंज ("A1: A10"), टाइप करें: = xlFillDefault 

अब कोड रन करें हम 1 से 10 तक सीरियल नंबर प्राप्त करेंगे।

चूंकि हमने ए 10 के रूप में अंतिम गंतव्य सेल का उल्लेख किया है, इसलिए यह वहां बंद हो गया है, और हम एक्सेल के अंतिम सेल के रूप में गंतव्य सेल में प्रवेश कर सकते हैं।

उदाहरण # 2 - xlFillCopy

समान संख्याओं के लिए, हम xlFillCopy के रूप में उपयोग करेंगे

कोड:

उप AutoFill_Example1 () श्रेणी ("A1: A3")। AutoFill गंतव्य: = श्रेणी ("A1: A10"), प्रकार: = xlFillCopy समाप्ति उप

मेरे पास शेष कोशिकाओं के लिए पहले तीन कोशिकाओं की एक प्रति है।

उदाहरण # 3 - xlFillMonths

इस उदाहरण के लिए, मैंने पहले 3 महीनों में पहले तीन महीनों में प्रवेश किया है।

स्वतः भरण प्रकार को xlFillMonths में बदलें

कोड:

उप AutoFill_Example1 () श्रेणी ("A1: A3")। AutoFill गंतव्य: = श्रेणी ("A1: A10"), प्रकार: = xlFillMonths समाप्ति उप  

यह महीने की श्रृंखला को भरेगा।

उदाहरण # 4 - xlFillFormats

इस उदाहरण के लिए, मैंने उन कक्षों में संख्याएँ और लागू स्वरूपण प्रविष्ट कर दिए हैं।

अब मैं टाइप को xlFillFormats में बदलूंगा।

कोड:

उप AutoFill_Example1 () श्रेणी ("A1: A3")। AutoFill गंतव्य: = श्रेणी ("A1: A10"), प्रकार: = xlFillFormats समाप्ति उप  

इस कोड को चलाएं और देखें कि क्या होता है।

इसमें पहली तीन कोशिकाओं के अगले तीन सेल और फिर से, अगले तीन सेल और इतने पर के फॉर्मेट भरे गए हैं।

उदाहरण # 5 - xlFlashFill

इस उदाहरण के लिए, मैंने सेल A1 से A10 तक कुछ मान दर्ज किए हैं, जैसा कि नीचे दी गई छवि में दिखाया गया है।

इस सूची से, मैं संख्यात्मक भाग निकालना चाहता हूं। पैटर्न के बारे में एक्सल बताने के लिए, पहले सेल में, मैं पहले सेल के संख्यात्मक भाग को मैन्युअल रूप से दर्ज करूँगा।

अब मैं हमेशा की तरह कोड लिखूंगा और टाइप को xlFlashFill में बदलूंगा। इस बार हम B कॉलम रेंज का उपयोग करेंगे।

कोड:

उप AutoFill_Example1 () श्रेणी ("B1")। AutoFill गंतव्य: = श्रेणी ("B1: B10"), प्रकार: = xlFlashFill समाप्ति उप  

यदि मैं इस कोड को चलाता हूं, तो हमें नीचे जैसा परिणाम मिलेगा।

यह VBA AutoFill विधि का अवलोकन है। मुझे उम्मीद है कि आपको अच्छा लगा होगा।

आप इस VBA AutoFill Excel टेम्पलेट को यहाँ से डाउनलोड कर सकते हैं - VBA AutoFill Excel टेम्पलेट

दिलचस्प लेख...