विषय - सूची
एक स्ट्रिंग में शब्दों की संख्या गिनें
निम्नलिखित वीबीए फ़ंक्शन स्ट्रिंग के भीतर रिक्त स्थान की खोज करके स्ट्रिंग में शब्दों की संख्या की गणना करता है। यह MID फ़ंक्शन का उपयोग करता है। आप खोज या खोज कार्यों के साथ कुछ ऐसा ही हासिल कर सकते हैं।
| 1234567891011121314151617 | फ़ंक्शन Number_of_Words (Text_String स्ट्रिंग के रूप में) पूर्णांक के रूप में'फ़ंक्शन एक स्ट्रिंग में शब्दों की संख्या की गणना करता है''प्रत्येक वर्ण को देखकर और देखें कि यह एक स्थान है या नहीं'Number_of_Words = 0मंद स्ट्रिंग_लंबाई पूर्णांक के रूप मेंडिम करंट_कैरेक्टर अस इंटीजरString_Length = लेन (Text_String)Current_Character = 1 से String_Length . के लिएअगर (मध्य (पाठ_स्ट्रिंग, करंट_चरित्र, 1)) = "" तोNumber_of_Words = Number_of_Words + 1अगर अंतअगला वर्तमान_चरित्रअंत समारोह |
यह कुछ बिंदुओं पर ध्यान देने योग्य है:
• यह कोड वर्कबुक मॉड्यूल में डाला जाना चाहिए - वीबीए फलक से, सम्मिलित करें और फिर मॉड्यूल पर क्लिक करें
• फ़ंक्शन को एक्सेल वर्कबुक सेल से या तो स्पष्ट टेक्स्ट या सेल संदर्भ के साथ तर्क के रूप में बुलाया जा सकता है:
A3 = Number_of_Words ("सुअर डॉग कैट")
A4 = Number_of_Words(D1)
फ़ंक्शन एक स्ट्रिंग की लंबाई को ट्रेस करके काम करता है और यह देखता है कि अगला वर्ण एक स्थान है या नहीं और यदि ऐसा है तो यह स्ट्रिंग में रिक्त स्थान की संख्या में एक जोड़ता है।
