टेबल एक्सेल में सबसे महत्वपूर्ण और व्यापक रूप से उपयोग किए जाने वाले ऑब्जेक्ट्स में से एक है जिसका उपयोग हम VBA के साथ काम करते समय करते हैं। इस लेख में, मैं आपको दिखाऊंगा कि एक्सेल टेबल का उपयोग VBA के साथ कैसे किया जा सकता है।
VBA के साथ एक्सेल टेबल का उपयोग करने के 9 तरीके
एक टेबल एक्सेल में एक विशेष प्रकार का डेटा सेट है जहां पहली पंक्ति में हेडर्स होते हैं।
VBA में, यह ListObject श्रेणी के अंतर्गत आता है। यहां वे तरीके हैं जिनसे आप VBA में एक्सेल टेबल का उपयोग कर सकते हैं।
1. VBA के साथ एक्सेल में टेबल बनाना
सबसे पहले, हम सीखेंगे कि VBA के साथ एक्सेल में टेबल कैसे बनाया जाए।
VBA के साथ एक्सेल में टेबल बनाने के लिए, पहले आपको टेबल को ListObject के रूप में घोषित करना होगा।
फिर आपको टेबल को अपनी वांछित रेंज में डालना होगा।
Dim Table1 as ListObject Set Table1 = ActiveSheet.ListObjects.Add(xlSrcRange, Range("B4:D13"), , xlYes)
यह कोड चलाएं। यह आपकी सक्रिय वर्कशीट की रेंज B4:D13 में एक टेबल बनाएगा।
अब यदि आप चाहें, तो आप टेबल का नाम अपनी पसंद के अनुसार बदल सकते हैं।
Table1.Name = "MyTable"
यह टेबल का नाम MyTable में बदल देगा।
और पढ़ें: शॉर्टकट का उपयोग करके एक्सेल में टेबल बनाएं
2. VBA के साथ एक्सेल टेबल को संदर्भित करना
हमने VBA के साथ एक्सेल में टेबल बनाना सीखा।
अब एक्सेल में पहले से बने टेबल को संदर्भित करने के लिए, आपको पहले टेबल को ListObject के रूप में घोषित करना होगा।
फिर एक्सेल में उपलब्ध नाम के साथ टेबल को संदर्भित करें।
Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("MyTable")
यह एक्सेल में "MyTable" टेबल को Table1 नाम से संदर्भित करता है।
और पढ़ें: एक्सेल टेबल रेफरेंस का उपयोग कैसे करें
3. VBA के साथ एक्सेल में टेबल में मान दर्ज करना
टेबल के अंदर मान दर्ज करने के लिए, पहले आपको टेबल को संदर्भित करना होगा।
फिर आपको VBA के Range.Cells गुण का उपयोग करके सेल में मान दर्ज करना होगा।
Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("MyTable") Table1.Range.Cells(2, 1) = "A Tale of Two Cities"
यह कोड चलाएं। यह सक्रिय वर्कशीट के MyTable टेबल की दूसरी पंक्ति और पहले कॉलम में स्ट्रिंग "A Tale of Two Cities" दर्ज करेगा।
4. VBA के साथ एक्सेल में टेबल में पंक्तियाँ और कॉलम डालना
VBA के साथ टेबल में एक पंक्ति या कॉलम डालने के लिए, पहले टेबल को संदर्भित करें।
फिर एक पंक्ति जोड़ने के लिए ListRows.Add गुण डालें।
Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("MyTable") Table1.ListRows.Add
यह MyTable टेबल के अंत में एक नई पंक्ति जोड़ता है।
या एक कॉलम जोड़ने के लिए, ListColumns.Add गुण डालें।
Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("MyTable") Table1.ListColumns.Add
यह MyTable टेबल के दाईं ओर एक नया कॉलम जोड़ेगा।
फिर से, टेबल की विशिष्ट स्थिति में एक पंक्ति या कॉलम जोड़ने के लिए, ListRows.Add या ListColumns.Add गुण के भीतर स्थिति निर्दिष्ट करें।
Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("MyTable") Table1.ListRows.Add (4)
यह MyTable टेबल की चौथी पंक्ति के रूप में एक नई पंक्ति जोड़ता है।
नए कॉलम को जोड़ने के लिए भी यही प्रक्रिया है।
और पढ़ें: एक्सेल टेबल से पंक्तियाँ और कॉलम कैसे डालें या हटाएं
5. VBA के साथ टेबल से डेटा पढ़ना
VBA के साथ टेबल से कोई भी डेटा पढ़ने के लिए, VBA के Range.Cells गुण का उपयोग करें।
Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("MyTable") MsgBox Table1.Range.Cells(3, 1)
कोड चलाएं, यह MyTable टेबल की तीसरी पंक्ति और पहले कॉलम से मान प्रदर्शित करेगा। यह The Forty Rules of Love है।
समान लेख:
- VBA से एक्सेल में पिवट टेबल रिफ्रेश करें (5 उदाहरण)
- VBA के साथ सभी पिवट टेबल्स रिफ्रेश कैसे करें (4 तरीके)
- एक्सेल में पिवट टेबल संपादित करें (5 विधियां)
- पिवट टेबल रेंज कैसे अपडेट करें (5 उपयुक्त विधियां)
6. VBA के साथ टेबल की पंक्तियों या कॉलम्स के माध्यम से लूप करना
VBA के साथ टेबल की प्रत्येक पंक्ति के माध्यम से लूप करने के लिए, ListRows.Count गुण का उपयोग करें।
Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("MyTable") For i = 1 To Table1.ListRows.Count Table1.ListRows(i).Range.Select Next i
यह Table1 टेबल की प्रत्येक पंक्ति के माध्यम से पुनरावृति करेगा और उसे चुनेगा।
इसी तरह, टेबल के प्रत्येक कॉलम के माध्यम से पुनरावृति करने के लिए, ListColumns.Count गुण का उपयोग करें।
7. टेबल में विशिष्ट मान खोजना
VBA के साथ टेबल की पंक्ति या कॉलम में किसी विशिष्ट मान को खोजने के लिए, DataBodyRange.Rows.Find या VBA के DataBodyRange.Columns.Find गुण का उपयोग करें।
Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("MyTable") Set Value = Table1.DataBodyRange.Columns(1).Find("Mother", LookAt:=xlWhole) MsgBox Value
यह MyTable टेबल के पहले कॉलम में मान "Mother" को खोजेगा, और यदि मिल जाए तो मान लौटाएगा।
8. VBA के साथ एक्सेल में टेबल का आकार बदलना
टेबल को नए आकार में बदलने के लिए, पहले उस Range को सेट करें जिस पर Table का आकार बदला जाएगा।
फिर Table का आकार उस Range में बदलें।
Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("MyTable") Dim Rng As Range Set Rng = Range("B4:C8") Table1.Resize Rng
यह पहले Range को B4:C8 के रूप में सेट करता है, फिर MyTable टेबल का आकार उस नए Range में बदलता है।
9. VBA के साथ एक्सेल में टेबल हटाना
VBA के साथ टेबल हटाने के लिए, VBA के Delete गुण का उपयोग करें।
Dim Table1 As ListObject Set Table1 = ActiveSheet.ListObjects("MyTable") Table1.Delete
यह सक्रिय वर्कशीट से MyTable टेबल को हटा देगा।
याद रखने योग्य बातें
VBA में एक टेबल ListObject है। लेकिन यदि आप इसे एक साधारण Range ऑब्जेक्ट के रूप में एक्सेस करना चाहते हैं, तो VBA के Table.Range गुण का उपयोग करें। यह टेबल को Range ऑब्जेक्ट के रूप में लौटाएगा, और आप VBA के Range ऑब्जेक्ट के सभी गुणों तक पहुंच पाएंगे।
निष्कर्ष
इन विधियों का उपयोग करके, आप VBA के साथ एक टेबल का उपयोग कर सकते हैं। क्या आपके कोई प्रश्न हैं? बेझिझक हमसे पूछें।
आगे पढ़ें
- एक्सेल में पिवट टेबल ऑटो रिफ्रेश कैसे करें (2 विधियां)
- एक्सेल पिवट टेबल में कॉलम ग्रुप करें (2 विधियां)
- पिवट टेबल कस्टम ग्रुपिंग: 3 मानदंडों के साथ
- एक्सेल टेबल में फॉर्मूला का प्रभावी उपयोग करें (4 उदाहरणों के साथ)
