VBA . में स्वतः भरण
यह आलेख दर्शाता है कि VBA में स्वतः भरण का उपयोग कैसे करें।
एक्सेल में ऑटोफिल एक बेहतरीन टूल है जब डेटा दोहराव होता है या यदि यह अनुक्रमिक होता है (जैसे सप्ताह के दिन, तिथियां, वर्ष के महीने आदि)। हम आम तौर पर आवश्यक डेटा के साथ पहले कुछ सेल भरते हैं, और फिर आवश्यक डेटा को एक चयनित श्रेणी में कॉपी करने के लिए ऑटोफिल का उपयोग करते हैं।
यह सब VBA मैक्रो का उपयोग करके किया जा सकता है।
इंक्रीमेंटिंग नंबरों का उपयोग करके स्वतः भरण
सबसे पहले, हमारे कोड में, हम दो रेंज वैरिएबल घोषित कर सकते हैं।
चयन 1 डेटा के साथ ऑटोफिल की सीमा है - उदाहरण के लिए 1 और 2।
Selection2 है संपूर्ण स्वत: भरण के लिए श्रेणी, इसमें पहली श्रेणी और स्वत: भरण के लिए रिक्त स्थान शामिल हैं।
फिर हम दूसरी चयन श्रेणी को भरने के लिए स्वतः भरण विधि का उपयोग करते हैं।
| 123456789101112131415 | सार्वजनिक उप MyAutoFill ()' easyexcel.net द्वारा''डिक्लेयर रेंज वेरिएबल्स'मंद चयन1 रेंज के रूप मेंमंद चयन2 रेंज के रूप में'सेट रेंज वेरिएबल्स = उनकी संबंधित रेंज'चयन 1 = शीट 1 सेट करें। रेंज ("ए 1: ए 2")चयन २ सेट करें = शीट १। रेंज ("ए १: ए १२")'स्वतः भरण'चयन १.स्वतः भरण गंतव्य:=चयन२अंत उप |
फिर हम मैक्रो को ऑटोफिल रेंज (A1:A12) पर चला सकते हैं।
जब हम स्वतः भरण पद्धति का उपयोग कर रहे होते हैं, तो हम स्वतः भरण के उस प्रकार का चयन कर सकते हैं जिसे हम करना चाहते हैं। उपरोक्त उदाहरण में, हमने ऑटोफिल के प्रकार को निर्दिष्ट नहीं किया, जिसका अर्थ है कि डिफ़ॉल्ट प्रकार का उपयोग किया गया था - इस मामले में, प्रत्येक पंक्ति पर संख्याओं को 1 से बढ़ाना।
महीनों का उपयोग करके स्वतः भरण
महीनों का उपयोग करके स्वतः भरण के लिए मैक्रो एक महत्वपूर्ण अपवाद के साथ, संख्याओं को बढ़ाने के लिए उपयोग किए जाने वाले मैक्रो के लगभग समान है।
| 1234567891011 | सार्वजनिक उप स्वत: भरण माह ()' easyexcel.net द्वारा''डिक्लेयर रेंज वेरिएबल्स'मंद चयन1 रेंज के रूप मेंमंद चयन2 रेंज के रूप में'सेट रेंज वेरिएबल्स = उनकी संबंधित रेंज'चयन 1 = शीट 1 सेट करें। रेंज ("ए 1: ए 2")चयन २ सेट करें = शीट १। रेंज ("ए १: ए १२")'महीने स्वत: भरण'स्वतः भरण गंतव्य:=चयन2, प्रकार:=xlFillMonthsअंत उप |
जब हम ऑटोफिल के प्रकार को भरते हैं, तो हमें चुनने के लिए कई एक्सेल कॉन्स्टेंट दिए जाते हैं। यदि हम इसे छोड़ देते हैं, तो एक्सेल दिए गए मूल डेटा से भरने के लिए डेटा के प्रकार का निर्धारण करेगा।
एक्सेल मानक श्रृंखला जैसे महीनों, सप्ताह के दिनों और वृद्धिशील संख्याओं को चुनने में सक्षम है, हालांकि टाइप तर्क का उपयोग करने की आवश्यकता के बिना।
xlFillCopy का उपयोग करके स्वतः भरण
अगर हम जानकारी को नए सेल में कॉपी करने के लिए ऑटोफिल मैक्रो का उपयोग करना चाहते हैं, तो हम xlFillCopy कॉन्स्टेंट का उपयोग कर सकते हैं।
| 1234567 | पब्लिक सब ऑटोफिलकॉपी ()मंद चयन1 श्रेणी के रूप मेंमंद चयन2 रेंज के रूप मेंचयन 1 = शीट 1 सेट करें। रेंज ("ए 1: ए 1")चयन २ सेट करें = शीट १। रेंज ("ए १: ए १२")Selection1.AutoFill Destination:=Selection2, Type:=xlFillCopyअंत उप |
इस मैक्रो को चलाने से "जनवरी" से बाद के महीनों के साथ कोशिकाओं को स्वतः भरने के बजाय डेटा को रेंज ("ए 1") से नीचे रेंज ("ए 1: ए 12") में कॉपी किया जाएगा।
xlFlashFill का उपयोग करके स्वतः भरण
जब हमें एक्सेल में टेक्स्ट को कॉलम में बदलने की आवश्यकता होती है, तो हम टेक्स्ट टू कॉलम विकल्प का उपयोग कर सकते हैं, या हम फ्लैश फिल नामक विकल्प का उपयोग कर सकते हैं। यह वीबीए में बेहद उपयोगी है।
उदाहरण के लिए निम्नलिखित डेटा लें:
हम सेल बी 2 में उपनाम "टॉली" टाइप कर सकते हैं और फिर शेष डेटा को फ्लैशफिल करने के लिए मैक्रो का उपयोग कर सकते हैं।
| 1234567 | उप फ्लैशफिल ()मंद चयन1 श्रेणी के रूप मेंमंद चयन2 रेंज के रूप मेंचयन 1 = रेंज सेट करें ("बी 2: बी 2")चयन 2 सेट करें = रेंज ("बी 2: बी 15")Selection1.AutoFill गंतव्य:=Selection2, प्रकार:=xlFlashFillअंत उप |
फिर हम शेष डेटा प्राप्त करने के लिए इसे कॉलम सी, डी और ई दोहरा सकते हैं।
| 1234567891011 | चयन 1 = रेंज सेट करें ("सी 2: सी 2")चयन 2 सेट करें = रेंज ("सी 2: सी 15")Selection1.AutoFill गंतव्य:=Selection2, प्रकार:=xlFlashFillचयन 1 = रेंज सेट करें ("डी 2: डी 2")चयन 2 सेट करें = रेंज ("डी 2: डी 15")Selection1.AutoFill गंतव्य:=Selection2, प्रकार:=xlFlashFillचयन 1 = रेंज सेट करें ("ई 2: ई 2")चयन २ = रेंज सेट करें ("ई २: ई १५")Selection1.AutoFill गंतव्य:=Selection2, प्रकार:=xlFlashFill |
फिर प्रत्येक कॉलम पंक्ति 2 में मान के आधार पर उपयुक्त डेटा से भर जाएगा।
