एक्सेल VBA में टेबल रेफरेंसिंग में महारत: 20 सिद्ध तकनीकें

बड़े डेटासेट वाली एक्सेल वर्कबुक में, पूरे रेंज के बजाय उसके नाम से टेबल को संदर्भित करना सुविधाजनक हो सकता है। एक्सेल में VBA का उपयोग करना किसी भी ऑपरेशन को करने का सबसे तेज़, सबसे विश्वसनीय और सबसे कुशल तरीका है। यदि आप "एक्सेल VBA के साथ टेबल को कैसे संदर्भित करें" जानने के लिए विशेष तरकीबें ढूंढ रहे हैं, तो आप सही जगह पर आए हैं। एक्सेल में टेबल को संदर्भित करने के कई तरीके हैं। यह लेख इन विधियों के विवरण पर चर्चा करेगा। यह सब सीखने के लिए पूरी गाइड का पालन करें।

ListObject प्रॉपर्टी के साथ टेबल को संदर्भित करें

VBA कोड लिखते समय, एक्सेल टेबल को संदर्भित करने के लिए ListObjects का उपयोग किया जाता है। VBA LISTOBJECTS की मदद से एक्सेल टेबल बनाए और हटाए जा सकते हैं। हालांकि, एक्सेल टेबल का उपयोग शुरुआती लोगों के लिए चुनौतीपूर्ण हो सकता है, और कुछ हद तक मध्यवर्ती उपयोगकर्ताओं के लिए भी। इस तथ्य के कारण कि यह लेख एक्सेल टेबल को संदर्भित करने पर चर्चा करता है। VBA कोडिंग करते समय एक्सेल में टेबल की अच्छी समझ होना महत्वपूर्ण है।

उदाहरण के लिए, एक्सेल वर्कशीट में पूरे टेबल का चयन करने के लिए आपको निम्नलिखित VBA कोड लिखना होगा।

ActiveSheet.ListObjects("Table_ref_1").Range.Select

कोड की यह लाइन टेबल का चयन करेगी ("Table_ref_1" हमारे डेटासेट में टेबल का नाम है)।

VBA कोड के साथ एक्सेल में टेबल संदर्भ का उपयोग करने के 20 उपयुक्त उदाहरण

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

1. संपूर्ण टेबल का चयन करें

यहां, हम प्रदर्शित करेंगे कि संपूर्ण टेबल का चयन कैसे करें। सबसे पहले, एक्सेल में पहले से बने टेबल को संदर्भित करने के लिए, आपको पहले टेबल को ListObject के रूप में घोषित करना होगा। फिर एक्सेल में उपलब्ध नाम के साथ टेबल को संदर्भित करें। प्रदर्शन उद्देश्यों के लिए, हम निम्नलिखित डेटासेट का उपयोग करेंगे।

इसे करने के लिए, आपको निम्नलिखित प्रक्रिया का पालन करना होगा।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub Select_whole_Table() ActiveSheet.ListObjects("Table_ref_1").Range.Select End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार संपूर्ण टेबल का चयन करेगा।

2. संपूर्ण टेबल कॉपी करें

इस विधि में, हम आपको दिखाएंगे कि संपूर्ण टेबल कैसे कॉपी करें। एक्सेल VBA के साथ टेबल को संदर्भित करने के लिए हमारे बिंदु को प्रदर्शित करने के लिए निम्नलिखित डेटासेट है।

एक्सेल में संपूर्ण टेबल को कॉपी करने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub copy_whole_Table() ActiveSheet.ListObjects("Table_ref_18").Range.Copy End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार संपूर्ण टेबल को कॉपी करेगा।

3. टेबल के एक कॉलम को संदर्भित करना

यहां, हम प्रदर्शित करेंगे कि टेबल के एक कॉलम को कैसे संदर्भित करें। एक्सेल VBA के साथ टेबल को संदर्भित करने के लिए हमारे बिंदु को प्रदर्शित करने के लिए निम्नलिखित डेटासेट है।

एक्सेल में टेबल के एक कॉलम को संदर्भित करने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub ReferenceEntireColumn() ActiveSheet.ListObjects("Table_ref").ListColumns("Seller").Range.Select End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार टेबल के संपूर्ण कॉलम का चयन करेगा।

4. टेबल से एक सेल से मान प्राप्त करें

यहां, हम प्रदर्शित करेंगे कि टेबल से एक सेल से मान कैसे प्राप्त करें। हमारे बिंदु को प्रदर्शित करने के उद्देश्य से, हमने नीचे एक डेटासेट प्रदान किया है।

एक्सेल में टेबल से एक सेल से मान प्राप्त करने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub get_Value() Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("Table_ref_2") Set Value = Table1.DataBodyRange.Columns(1).Find("Sam", LookAt:=xlWhole) MsgBox Value End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार टेबल से एक सेल से मान प्राप्त करेगा।

5. एक पंक्ति दर्ज करना

अब, हम एक मौजूदा टेबल में एक नई पंक्ति दर्ज करने का तरीका दिखाएंगे। प्रदर्शन उद्देश्यों के लिए, हम निम्नलिखित डेटासेट का उपयोग करेंगे।

एक्सेल में मौजूदा टेबल में एक नई पंक्ति दर्ज करने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub Entering_row() Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("Table_ref_3") Table1.ListRows.Add End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

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

6. एक कॉलम दर्ज करना

निम्नलिखित प्रदर्शन में एक मौजूदा टेबल में एक नया कॉलम जोड़ा जाएगा। प्रदर्शन उद्देश्यों के लिए, हम निम्नलिखित डेटासेट का उपयोग करेंगे।

मौजूदा टेबल में एक नया कॉलम दर्ज करने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub Entering_Column() Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("Table_ref_4") Table1.ListColumns.Add End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार मौजूदा टेबल में एक नया कॉलम दर्ज करेगा।

7. टेबल फ़िल्टर करना

निम्न उदाहरण दर्शाता है कि एक्सेल में टेबल को कैसे फ़िल्टर करें। हमारे बिंदु को प्रदर्शित करने के उद्देश्य से, हमने नीचे एक डेटासेट प्रदान किया है।

एक्सेल में टेबल को फ़िल्टर करने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub Select_AutoFiltered_VisibleRows_NewSheet() ActiveSheet.ListObjects("Table_25").Range.AutoFilter _ Field:=2, Criteria1:="=Texas" End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार "टेक्सास" टेक्स्ट के आधार पर टेबल को फ़िल्टर करेगा।

8. टेबल से पंक्तियों और कॉलम को हटाना

हम यहां टेबल से पंक्तियों और कॉलम को हटाने का तरीका दिखाएंगे। निम्नलिखित डेटासेट का उपयोग करके, हम अपने बिंदु को प्रदर्शित करेंगे।

एक्सेल में टेबल से पंक्तियों और कॉलम को हटाने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub delete_row_column() ActiveSheet.ListObjects("Table_ref_9").ListRows(2).Delete ActiveSheet.ListObjects("Table_ref_9").ListColumns(2).Delete End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार टेबल से पंक्तियों और कॉलम को हटाएगा।

9. कॉलम हेडर के बिना टेबल से डेटा चुनना

यहां, हम प्रदर्शित करेंगे कि कॉलम हेडर के बिना टेबल से डेटा कैसे चुनें। डेटासेट ऐसा दिखता है:

एक्सेल में कॉलम हेडर के बिना टेबल से डेटा चुनने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub ReferenceEntireColumnWithoutHeader() ActiveSheet.ListObjects("Table_ref_6").ListColumns("Seller").DataBodyRange.Select End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार कॉलम हेडर के बिना टेबल से डेटा चुनेगा।

10. कॉलम हेडर का चयन करना

इस खंड में, हम आपको दिखाएंगे कि कॉलम हेडर कैसे चुनें। हमारे बिंदु को प्रदर्शित करने के लिए, हमने नीचे डेटासेट प्रदान किया है।

एक्सेल में कॉलम हेडर चुनने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub Selecting_Column_Header() ActiveSheet.ListObjects("Table_ref_7").HeaderRowRange(4).Select End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार कॉलम हेडर का चयन करेगा।

11. संपूर्ण पंक्ति का चयन करें

यहां, हम प्रदर्शित करेंगे कि संपूर्ण पंक्ति कैसे चुनें। एक्सेल VBA के साथ टेबल को संदर्भित करने के लिए हमारे बिंदु को प्रदर्शित करने के लिए निम्नलिखित डेटासेट है।

एक्सेल में संपूर्ण पंक्ति चुनने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub Selecting_row_entire() ActiveSheet.ListObjects("Table_ref_8").ListRows(3).Range.Select End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार संपूर्ण पंक्ति का चयन करेगा।

12. टेबल की रेंज का आकार बदलें

अब, हम दिखाएंगे कि टेबल की रेंज का आकार कैसे बदलें। हमारे बिंदु को प्रदर्शित करने के उद्देश्य से, हमने नीचे एक डेटासेट प्रदान किया है।

एक्सेल में टेबल की रेंज का आकार बदलने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub resize() Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("Table_ref_5") Dim Rng As Range Set Rng = Range("B4:C8") Table1.Resize Rng End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार टेबल की रेंज का आकार बदलेगा।

13. टेबल स्टाइल बदलना

हम यहां टेबल की स्टाइल बदलने का तरीका दिखाएंगे। एक्सेल VBA के साथ टेबल को संदर्भित करने के लिए हमारे बिंदु को प्रदर्शित करने के लिए निम्नलिखित डेटासेट है।

एक्सेल में टेबल स्टाइल बदलने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub ChangingTable1_Style() ActiveSheet.ListObjects("Table_ref_12").TableStyle = "TableStyleLight15" End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार टेबल स्टाइल बदलेगा।

14. डिफ़ॉल्ट टेबल स्टाइल सेट करें

डिफ़ॉल्ट टेबल स्टाइल यहां प्रदर्शित की जाएगी। एक्सेल VBA के साथ टेबल को संदर्भित करने के लिए हमारे बिंदु को प्रदर्शित करने के लिए निम्नलिखित डेटासेट है।

एक्सेल में डिफ़ॉल्ट टेबल स्टाइल सेट करने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub Setting_Default_Table1_Style() ActiveWorkbook.DefaultTableStyle = "TableStyleMedium2" End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार डिफ़ॉल्ट टेबल स्टाइल सेट करेगा।

15. टेबल में सभी सेल के माध्यम से लूप

इस उदाहरण में, हम दिखाएंगे कि टेबल में सभी सेल के माध्यम से कैसे लूप करें। VBA के साथ टेबल की प्रत्येक पंक्ति के माध्यम से लूप करने के लिए, ListRows.Count प्रॉपर्टी का उपयोग करें। एक्सेल VBA के साथ टेबल को संदर्भित करने के लिए हमारे बिंदु को प्रदर्शित करने के उद्देश्य से, हमने नीचे एक डेटासेट प्रदान किया है।

एक्सेल में टेबल में सभी सेल के माध्यम से लूप करने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub Loopingthrough() Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("Table_ref_14") For i = 1 To Table1.ListRows.Count Table1.ListRows(i).Range.Select Next i End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

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

16. टेबल हेडर को दृश्यमान बनाएं

अब, हम दिखाएंगे कि टेबल हेडर को दृश्यमान कैसे बनाएं। एक्सेल VBA के साथ टेबल को संदर्भित करने के लिए हमारे बिंदु को प्रदर्शित करने के उद्देश्य से, हमने नीचे एक डेटासेट प्रदान किया है।

एक्सेल में टेबल हेडर को दृश्यमान बनाने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub Table_header_visible() ActiveSheet.ListObjects("Table_ref_15").ShowHeaders = True End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार टेबल हेडर को दृश्यमान बनाएगा।

17. पंक्तियों और कॉलम की गिनती

हमारा अगला कदम टेबल से पंक्तियों और कॉलम की गिनती करने का तरीका दिखाना है। एक्सेल VBA के साथ टेबल को संदर्भित करने के लिए हमारे बिंदु को प्रदर्शित करने के लिए निम्नलिखित डेटासेट है।

एक्सेल में टेबल से पंक्तियों और कॉलम की गिनती करने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub counting_rows_columns() rowNumber = ActiveSheet.ListObjects("Table_ref_16").ListRows.Count columnNumber = ActiveSheet.ListObjects("Table_ref_16").ListColumns.Count MsgBox "पंक्तियों की संख्या: " & rowNumber & vbCrLf & _ "कॉलम की संख्या: " & columnNumber End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

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

18. जांचें कि क्या वर्कशीट में कोई टेबल है

यहां, हम प्रदर्शित करेंगे कि वर्कशीट में कोई टेबल है या नहीं, इसकी जांच कैसे करें। एक्सेल VBA के साथ टेबल को संदर्भित करने के लिए हमारे बिंदु को प्रदर्शित करने के उद्देश्य से, हमने नीचे एक डेटासेट प्रदान किया है।

एक्सेल में वर्कशीट में कोई टेबल है या नहीं, इसकी जांच करने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub Checking_If1_Table1_Exists() Dim ws1 As Worksheet Dim tbl1 As ListObject Dim tbl1Name As String Dim tbl1Exists As Boolean tbl1Name = "Table_ref_17" For Each ws1 In ActiveWorkbook.Worksheets For Each tbl1 In ws1.ListObjects If tbl1.Name = tbl1Name Then tbl1Exists = True End If Next tbl1 Next ws1 If tbl1Exists = True Then MsgBox "टेबल " & tbl1Name & " मौजूद है।" Else MsgBox "टेबल " & tbl1Name & " मौजूद नहीं है।" End If End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार वर्कशीट में कोई टेबल है या नहीं, इसकी जांच करेगा।

19. टेबल को सामान्य रेंज में बदलें

यहां एक उदाहरण है कि टेबल को सामान्य रेंज में कैसे बदला जा सकता है। एक्सेल VBA के साथ टेबल को संदर्भित करने के लिए हमारे बिंदु को प्रदर्शित करने के लिए निम्नलिखित डेटासेट है।

एक्सेल में टेबल को सामान्य रेंज में बदलने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub Converting_Table1_To_NormalRange() ActiveSheet.ListObjects("Table_ref_11").Unlist End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

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

20. टेबल हटाएं

यहां, हम प्रदर्शित करेंगे कि टेबल कैसे हटाएं। एक्सेल VBA के साथ टेबल को संदर्भित करने के लिए हमारे बिंदु को प्रदर्शित करने के लिए निम्नलिखित डेटासेट है।

VBA कोड के साथ एक्सेल में टेबल हटाने के लिए निम्नलिखित चरणों का पालन करें।

📌 चरण:

• VBA की अपनी अलग विंडो होती है जिसमें काम करना होता है। आपको इस विंडो में भी कोड डालना होगा। VBA विंडो खोलने के लिए, अपने रिबन पर डेवलपर टैब पर जाएं। फिर कोड समूह से विजुअल बेसिक चुनें।

• VBA मॉड्यूल विजुअल बेसिक एडिटर में कोड रखते हैं। इसका .bcf फ़ाइल एक्सटेंशन होता है। हम VBA एडिटर विंडो के माध्यम से आसानी से एक बना या संपादित कर सकते हैं। कोड के लिए एक मॉड्यूल डालने के लिए, VBA एडिटर पर इन्सर्ट टैब पर जाएं। फिर ड्रॉप-डाउन से मॉड्यूल पर क्लिक करें।

• परिणामस्वरूप, एक नया मॉड्यूल बनाया जाएगा। अब मॉड्यूल का चयन करें यदि यह पहले से चयनित नहीं है। फिर इसमें निम्न कोड लिखें।

Sub delete_table_entire() Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("Table_ref_10") Table1.Delete End Sub

• अगला, कोड सहेजें।
• अब, अपने कीबोर्ड पर F5 दबाएं, या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

• इसलिए, यह नीचे दिखाए अनुसार टेबल हटाएगा।

निष्कर्ष

आज का सत्र यहीं समाप्त होता है। मुझे दृढ़ता से विश्वास है कि अब से, आप एक्सेल VBA के साथ टेबल को संदर्भित करने में सक्षम हो सकते हैं। यदि आपके कोई प्रश्न या सिफारिशें हैं, तो कृपया उन्हें नीचे टिप्पणी अनुभाग में साझा करें।

विभिन्न एक्सेल-संबंधी समस्याओं और समाधानों के लिए हमारी वेबसाइट Exceldemy.com देखना न भूलें। नई विधियां सीखते रहें और बढ़ते रहें!

और पढ़ें…

वर्कशीट फ़ंक्शन और एक्सेल VBA का उपयोग करके केस बदलना

[8 टिप्स] एक्सेल टेबल को अच्छा कैसे बनाएं!