एक्सेल मैक्रो - डायनामिक कॉलम चयन

  • मुद्दा
  • उपाय
  • ध्यान दें

मुद्दा

मैं अभी एक्सेल मैक्रोज़ सीखना शुरू कर रहा हूं। मैं एक शीट पर काम कर रहा था, जिसमें मुझे एक कॉलम को डायनामिक रूप से चुनना है, जो सिर्फ कॉलम हेडर नाम पर आधारित है। मुझे समझाने दो।

कहते हैं कि एक एक्सेल शीट है जिसमें निम्नलिखित कॉलम हैं (A1 से D1 तक):

 RecNo Cust_ID Cust_Name Contact_Num 

इनके नीचे, ग्राहक डेटा है जो मौजूद है। अब, मैं सभी रिकॉर्ड्स के लिए सिर्फ Cust_ID (कॉलम B से) और Cust_Name (कॉलम C से) निकालना चाहता हूं।

हालाँकि, समस्या यह है कि यह जरूरी नहीं है कि Cust_ID हमेशा Column B में रहेगा। हालांकि हेडिंग हमेशा Cust_ID होगी, लेकिन इसका स्थान Column C में कुछ अन्य शीट में परिवर्तित हो सकता है जो उत्पन्न हो गया है और Cust_Name इसके बजाय में मौजूद हो सकता है। कॉलम बी (जिन दो स्तंभों को निकालने की आवश्यकता है उन्हें आपस में जोड़ा गया है)।

मैच फ़ंक्शन का उपयोग करके, मैं कॉलम की स्थिति निर्धारित करने में सक्षम हूं, लेकिन उसके बाद मैं उस कॉलम का चयन करने में सक्षम नहीं हूं।

स्तंभ संख्या निर्धारित करने के लिए मैंने जो फ़ंक्शन उपयोग किया है, वह नीचे दिया गया है:

 WorksheetFunction.Match ("Cust_ID", रेंज ("A1: D1"), 0) 

उपाय

बस इन का उपयोग करें:

 'डेटशीट सीमा का निर्धारण। लंबे समय के रूप में लंबे समय तक varDataSelect 'वेरिएंट का चयन करें पंक्तियों और स्तंभों को गतिशील रूप से सीमित करें। Selection.End (xlDown) .Select lngLastRowNum = ActiveCell.Row Selection.End (xlToRight) .Select lngLastCol = ActiveCell.Contumn 'कार्यपत्रक का नाम "MonthlyReivedClaims_Data" पंक्ति 1 कॉलम 1 अंत 1 वर्ष के अंत में शुरू करें। "C" & lngLastCol varDataSelect = "MonthlyReceivedClaims_Data! R1C1: R" और lngLastRowNum & "C" & lngLastRol ActiveWorkbook.PivotCaches.Add (SourceType: = xlDatabase, SourceData == = "#:")। = "PivotTable1", DefaultVersion: = _ xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination: = ActiveSheet.Cells (3, 1) 

'इसके अलावा यह टूल के तहत रिकॉर्ड मैक्रो फ़ंक्शन का उपयोग करने में मदद करता है।

'रिकॉर्ड पर क्लिक करें रिपोर्ट या पिवट टेबल बनाएं जैसे आप चाहते हैं।

इसके बाद स्टॉप रिकॉर्ड और आवश्यकतानुसार एडिट पर क्लिक करें।

ध्यान दें

मंच पर इस टिप के लिए एएम को धन्यवाद।

पिछला लेख अगला लेख

शीर्ष युक्तियाँ