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