टेक्स्टबॉक्स में वर्तनी जांच कैसे लागू करें?
हम सेल से टेक्स्ट स्ट्रिंग की वर्तनी जांचने के लिए स्पेलिंग फ़ंक्शन को आसानी से लागू कर सकते हैं, लेकिन यह सुविधा वर्तनी जांच के लिए टेक्स्टबॉक्स पर लागू नहीं होती है। इस लेख में, मैं टेक्स्टबॉक्स में वर्तनी जांच कैसे लागू करें इसके बारे में बात करूंगा।
VBA कोड वाले टेक्स्टबॉक्स में वर्तनी जांच लागू करें
VBA कोड वाले टेक्स्टबॉक्स में वर्तनी जांच लागू करें
टेक्स्ट बॉक्स में टेक्स्ट स्ट्रिंग की वर्तनी जांचने के लिए, नीचे दिया गया VBA कोड आपके काम आ सकता है:
1. सबसे पहले, कृपया क्लिक करके एक टेक्स्टबॉक्स डालें डेवलपर > सम्मिलित करें > टेक्स्ट बॉक्स (एक्टिवएक्स कंट्रोल), और टेक्स्टबॉक्स बनाने के लिए खींचें, स्क्रीनशॉट देखें:
2. फिर, कृपया बाहर निकलें डिजाइन मोड टेक्स्ट स्ट्रिंग को टेक्स्टबॉक्स में आवश्यकतानुसार दर्ज करने के लिए, टेक्स्ट टाइप करने के बाद, सक्षम करते रहें डिजाइन मोड, और चयन करने के लिए टेक्स्टबॉक्स पर राइट क्लिक करें कोड देखें संदर्भ मेनू से, स्क्रीनशॉट देखें:
3. खुले में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया मूल कोड को मॉड्यूल में निम्नलिखित VBA कोड से बदलें।
वीबीए कोड: टेक्स्टबॉक्स में वर्तनी जांच लागू करें:
Sub SpellChkRvw_Click()
Dim xObject As Object
Dim xCell As Range
On Error Resume Next
Set xCell = ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)
If ActiveSheet.OLEObjects.Count > 0 Then
For Each xObject In ActiveSheet.OLEObjects
xCell = xObject.Object.Text
xCell.CheckSpelling , , , 1033
xObject.Object.Text = xCell
Next
End If
End Sub
4. और फिर दबाएं F5 इस कोड को चलाने की कुंजी, वर्तनी डायलॉग बॉक्स तुरंत सक्षम हो जाता है, तो आप इसका उपयोग कर सकते हैं वर्तनी निम्नलिखित स्क्रीनशॉट में दिखाए गए अनुसार टेक्स्टबॉक्स में टेक्स्ट की वर्तनी जांचने का कार्य:
संबंधित आलेख:
Excel में मान के आधार पर टेक्स्टबॉक्स का रंग कैसे बदलें?
टेक्स्ट बॉक्स में चित्र कैसे डालें?
टेक्स्टबॉक्स में डिफ़ॉल्ट मान कैसे सेट करें?
टेक्स्ट बॉक्स में केवल संख्याओं को इनपुट करने की अनुमति कैसे दें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!