मुख्य सामग्री पर जाएं

Excel में किसी टेक्स्टबॉक्स के चयनित होने पर उसके टेक्स्ट का स्वत: चयन कैसे करें?

लेखक: सिलुविया अंतिम संशोधित: 2020-09-11

टेक्स्टबॉक्स (एक्टिवएक्स कंट्रोल) में टेक्स्ट हटाने के लिए, सबसे पहले, आपको टेक्स्टबॉक्स के अंदर सभी टेक्स्ट का चयन करना होगा। यह आलेख एक्सेल में टेक्स्टबॉक्स पर क्लिक करने पर टेक्स्टबॉक्स के सभी टेक्स्ट को स्वचालित रूप से चुनने के बारे में बात कर रहा है।

जब किसी टेक्स्टबॉक्स को VBA कोड के साथ चुना जाता है तो टेक्स्ट का स्वतः चयन करें


जब किसी टेक्स्टबॉक्स को VBA कोड के साथ चुना जाता है तो टेक्स्ट का स्वतः चयन करें

एक्सेल में टेक्स्टबॉक्स का चयन करते समय टेक्स्टबॉक्स के सभी टेक्स्ट को स्वचालित रूप से चुनने के लिए कृपया नीचे दिए गए VBA कोड को लागू करें।

1. जिस वर्कशीट में टेक्स्टबॉक्स है, उसके लिए आप उसके टेक्स्ट को स्वत: चयनित कर देंगे, कृपया क्लिक करके डिज़ाइन मोड चालू करें डेवलपर > डिजाइन मोड. स्क्रीनशॉट देखें:

या आप क्लिक करके टेक्स्टबॉक्स भी डाल सकते हैं डेवलपर > सम्मिलित करें > टेक्स्ट बॉक्स (एक्टिवएक्स कंट्रोल). स्क्रीनशॉट देखें:

2. टेक्स्टबॉक्स पर राइट-क्लिक करें और क्लिक करें कोड देखें संदर्भ मेनू से. स्क्रीनशॉट देखें:

3. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया कोड विंडो में मूल VBA कोड को नीचे दिए गए VBA कोड से बदलें।

वीबीए कोड: किसी टेक्स्टबॉक्स पर क्लिक करने पर स्वचालित रूप से उसके टेक्स्ट का चयन करें

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox1.Object)
End Sub

Sub SelTextBox(xTextBox As Object)
    With xTextBox
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

नोट्स:

1. कोड में, टेक्स्टबॉक्स1 यह उस टेक्स्टबॉक्स का नाम है जिससे आप सामग्री साफ़ करेंगे। कृपया इसे अपने अनुसार बदलें।

2. एकाधिक टेक्स्टबॉक्स पर क्लिक करते समय उनके टेक्स्ट को स्वचालित रूप से चुनने के लिए, कृपया उपरोक्त कोड में दो अनुभागों के बीच नीचे VBA कोड जोड़ें। और TextBox2 को अपने आवश्यक टेक्स्टबॉक्स के नाम में बदलें।

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox2.Object)
End Sub

4। दबाएं ऑल्ट + Q बाहर निकलने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

5. डिज़ाइन मोड बंद करें.

अब से, टेक्स्टबॉक्स पर क्लिक करने पर, टेक्स्टबॉक्स के अंदर के सभी टेक्स्ट स्वचालित रूप से चयनित हो जाएंगे।


संबंधित आलेख:

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
can change color of the automatically selected text inside textbox?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations