/ / एक्सेल वीबीए में शब्दों की गणना करें

एक्सेल वीबीए में शब्दों की गणना करें

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA उस शब्दों की संख्या की गणना करता है एक चयनित सीमा में। एक या अधिक रिक्त स्थान अलग शब्दों के लिए माना जाता है।

परिस्थिति:

एक्सेल वीबीए में शब्दों की गणना करें

1। सबसे पहले, हम दो रेंज ऑब्जेक्ट्स और तीन चर घोषित करते हैं। हम रेंज ऑब्जेक्ट्स आरएनजी और सेल कहते हैं। एक इंटीजर वेरिएबल जिसे हम सेलैड कहते हैं, एक इंटीजर वैरिएबल जिसे हम कुल शब्द कहते हैं, और एक स्ट्रिंग वैरिएबल जिसे हम सामग्री कहते हैं।

Dim rng As Range, cell As Range
Dim cellWords, totalWords As Integer, content As String

2. हम चयनित श्रेणी के साथ श्रेणी ऑब्जेक्ट आरएनजी शुरू करते हैं और टाइप 0 के साथ प्रकार इंटीजर के दो चर।

Set rng = Selection
cellWords = 0
totalWords = 0

3. हम प्रत्येक सेल को यादृच्छिक रूप से चयनित श्रेणी में देखना चाहते हैं (यह रेंज किसी भी आकार का हो सकती है)। एक्सेल वीबीए में, आप इसके लिए प्रत्येक अगला लूप का उपयोग कर सकते हैं। निम्नलिखित कोड लाइन जोड़ें:

For Each cell In rng

Next cell

नोट: आरएनजी और सेल यादृच्छिक रूप से यहां चुने गए हैं, आप किसी भी नाम का उपयोग कर सकते हैं। इन नामों को अपने शेष कोड में संदर्भित करना याद रखें।

4। इसके बाद, हम इस श्रेणी में प्रत्येक सेल के लिए निर्धारित करते हैं कि इसमें कितने शब्द हैं। एक सूत्र को अनदेखा करने के लिए जिसमें सूत्र शामिल है, प्रत्येक और अगले के लिए निम्न कोड पंक्ति जोड़ें (केवल तभी सेल। हासफॉर्मुला झूठा है हम जारी रखते हैं)।

If Not cell.HasFormula Then

End If

5। सबसे पहले, हम सेल की सामग्री को परिवर्तनीय सामग्री में लिखते हैं। इसके बाद, हम शुरुआत और अंत में रिक्त स्थान हटाते हैं (यदि कोई है तो)। एक्सेल वीबीए में, आप इसके लिए ट्रिम फ़ंक्शन का उपयोग कर सकते हैं। उदाहरण के लिए, "एक्सेल वीबीए" को "एक्सेल वीबीए" में परिवर्तित कर दिया जाएगा। अपने अगर कथन में निम्नलिखित कोड लाइन जोड़ें।

content = cell.Value
content = Trim(content)

नोट: एक्सेल वीबीए में ट्रिम फ़ंक्शन शब्दों के बीच अतिरिक्त रिक्त स्थान नहीं हटाता है, लेकिन यह इस उदाहरण में ठीक है।

6. इस बिंदु पर, एक सेल अभी भी खाली हो सकता है। यदि सेल खाली है, तो हम वैरिएबल सेल वर्ड को वैल्यू 0 असाइन करते हैं। यदि नहीं, तो इसमें कम से कम एक शब्द होता है और हम वैरिएबल सेल वर्ड को मान 1 आवंटित करते हैं। अपने अगर कथन में निम्नलिखित कोड लाइन जोड़ें।

If content = "" Then
    cellWords = 0
Else
    cellWords = 1
End If

एक सेल में पाठ्यक्रम के एक से अधिक शब्द हो सकते हैं। यह वही है जो हम अभी खोजना चाहते हैं। उदाहरण के तौर पर हम यह कहते हैं: "एक्सेल वीबीए"। यदि इस चरण में एक सेल में कम से कम एक स्थान होता है, तो इसमें कम से कम एक और शब्द होता है। आप इंस्ट्र फ़ंक्शन का उपयोग कर सकते हैं एक्सेल वीबीए एक स्पेस को देखने के लिए। Instr (content, "") सामग्री में पहली जगह की स्थिति पाता है।

7। हम डू एंड लूप संरचना का उपयोग करेंगे। इन शब्दों के बीच रखा गया कोड (चरण 8, 9 और 10 पर) तब तक दोहराया जाएगा जब तक कि कार्य के दौरान भाग सही हो। हम इन चरणों को दोहराना चाहते हैं जब तक कि Instr (content, "")> 0 सत्य है (जब तक सामग्री में एक स्थान होता है और इस प्रकार अधिक शब्द होते हैं)। अपने अगर कथन में डू लूप जोड़ें।

Do While InStr(content, " ") > 0

Loop

8. अगला, हम पहली जगह की स्थिति से शुरू होने वाली सामग्री का हिस्सा लेते हैं। हम इसके लिए मिड फ़ंक्शन का उपयोग करते हैं।

content = Mid(content, InStr(content, " "))

उदाहरण के लिए: मिड ("एक्सेल वीबीए", इनएसआरटी ("एक्सेल वीबीए", "")) "वीबीए" देगा।

9. हम स्ट्रिंग को दोबारा ट्रिम करते हैं।

content = Trim(content)

परिणाम: "वीबीए"

10. हम 1 से सेल वर्डप्रेस बढ़ाते हैं।

cellWords = cellWords + 1

यह तब तक लूप को तब तक दोहराया जाएगा जब तकसामग्री में एक स्थान होता है और इस प्रकार अधिक शब्द होते हैं। हमारे उदाहरण में, हम डू एंड लूप से बाहर निकलें क्योंकि "vba" में अब कोई स्थान नहीं है! परिणाम: इस सेल में 2 शब्द हैं।

11. एक सेल की जांच करने के बाद, हम चर शब्दकोष में सेलWords जोड़ते हैं। यह कोड लाइन डू लूप के बाहर रखी जानी चाहिए लेकिन अगर कथन में।

totalWords = totalWords + cellWords

पूरी प्रक्रिया तब तक शुरू होती है जब तक कि सभी कोशिकाओं की जांच नहीं की जाती है।

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

MsgBox totalWords & " words found in the selected range."

13. कार्यक्रम का परीक्षण करें।

परिणाम:

शब्दों का परिणाम गिनें

यह भी पढ़ें: