/ / एक्सेल वीबीए में रिवर्स स्ट्रिंग्स

एक्सेल वीबीए में रिवर्स स्ट्रिंग्स

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA कर सकते हैं रिवर्स स्ट्रिंग्स.

परिस्थिति:

एक्सेल वीबीए में रिवर्स स्ट्रिंग

अपने वर्कशीट पर कमांड बटन रखें और निम्न कोड लाइनें जोड़ें:

1. सबसे पहले, हम चार चर घोषित करते हैं। एक वैरिएबल जिसे टाइप स्ट्रिंग का टेक्स्ट कहा जाता है, एक वैरिएबल जिसे स्ट्रिंगेड टेक्स्ट भी स्ट्रिंग टाइप किया जाता है, एक वैरिएबल जिसे टाइप इंटीजर कहा जाता है, और एक वैरिएबल जिसे टाइप इंटीजर कहा जाता है।

Dim text As String, reversedText As String, length As Integer, i As Integer

2. हम दो चर शुरू करते हैं। हम उपयोगकर्ता से टेक्स्ट स्ट्रिंग प्राप्त करने के लिए इनपुटबॉक्स फ़ंक्शन का उपयोग करते हैं। हम एक स्ट्रिंग की लंबाई प्राप्त करने के लिए एक्सेल वीबीए में लेन फ़ंक्शन का उपयोग करते हैं।

text = InputBox("Enter the text you want to reverse")
length = Len(text)

लिखना प्रारम्भ करें

3. हम फॉर नेक्स्ट लूप शुरू करते हैं।

For i = 0 To length - 1

4. अब सरल चाल आता है। हम पाठ से अंतिम चरित्र लेते हैं और इसे रिवर्ड्सटेक्स्ट के सामने रखते हैं। हम एक स्ट्रिंग से एक चरित्र निकालने के लिए एक्सेल वीबीए में मिड फ़ंक्शन का उपयोग कर सकते हैं। हम दो स्ट्रिंग्स को जोड़ने (शामिल) करने के लिए ऑपरेटर का उपयोग करते हैं।

reversedText = reversedText & Mid(text, (length - i), 1)

5. लूप बंद करने के लिए मत भूलना।

Next i

उदाहरण: पाठ = "कार"। पाठ की लंबाई 3 है। I = 0 से 2 के लिए, हम स्थिति की लंबाई से शुरू होने वाले टेक्स्ट के सबस्ट्रिंग को निकालें - मैं लंबाई 1 के साथ। इस प्रकार, i = 0 के लिए, मध्य (पाठ, 3, 1) आर के बराबर है। हम reversedText की पहली स्थिति में आर जगह। I = 1 के लिए, मध्य (पाठ, 2, 1) एक बराबर है। हम एक उलटा हुआ पाठ जोड़ने के लिए जो आरए बन जाता है। I = 2 के लिए, मध्य (पाठ, 1, 1) सी के बराबर है। हम सी को उलटा करने के लिए सी जोड़ते हैं जो आरएसी बन जाता है।

6. अंत में, हम एक MsgBox का उपयोग कर reversedText प्रदर्शित करते हैं।

msgbox reversedText

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

परिणाम:

रिवर्स स्ट्रिंग परिणाम

यह भी पढ़ें: