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

Excel में टेक्स्ट स्ट्रिंग को अपरकेस/लोअरकेस/उचित केस में कैसे बाध्य करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-05-08

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

डेटा सत्यापन के साथ टेक्स्ट स्ट्रिंग्स को अपरकेस/लोअरकेस/उचित केस में बाध्य करें

वीबीए कोड के साथ टेक्स्ट स्ट्रिंग्स को अपरकेस/लोअरकेस/उचित केस में बाध्य करें

एक्सेल के लिए कुटूल के साथ टेक्स्ट को अपरकेस/लोअरकेस/प्रॉपर केस में बदलें अच्छा विचार3

एक्सेल में डेटा वैलिडेशन एक शक्तिशाली टूल है, यह हमें कई ऑपरेशन करने में मदद कर सकता है, इसकी मदद से हम टाइप करते समय टेक्स्ट स्ट्रिंग्स के अपरकेस, लोअरकेस या उचित केस को भी मजबूर कर सकते हैं, कृपया निम्नानुसार करें:

1. क्लिक करने के लिए जाएं जानकारी > डेटा मान्यता > डेटा मान्यता, स्क्रीनशॉट देखें:

दस्तावेज़-बल-अपरकेस-1

2. में डेटा मान्यता संवाद, के तहत सेटिंग टैब पर क्लिक करें अनुमति देना सूची ड्रॉप करें और चुनें रिवाज विकल्प, फिर में सूत्र टेक्स्ट बॉक्स में यह सूत्र दर्ज करें =सटीक(ऊपरी(ए1),ए1)(A1 एक कॉलम का मतलब है कि आप इस सुविधा को लागू करेंगे, आप इसे अपनी आवश्यकता के अनुसार बदल सकते हैं), स्क्रीनशॉट देखें:

दस्तावेज़-बल-अपरकेस-1

3. फिर आप आवश्यकतानुसार अलर्ट बना सकते हैं, कृपया क्लिक करें त्रुटि चेतावनी टैब, और चयन रुकें से अंदाज ड्रॉप डाउन सूची, के दाहिने कोने पर त्रुटि संदेश टेक्स्ट बॉक्स में अपना स्वयं का चेतावनी संदेश दर्ज करें, स्क्रीनशॉट देखें:

दस्तावेज़-बल-अपरकेस-1

4। और फिर क्लिक करें OK संवाद को बंद करने के लिए, अब जब आप कॉलम ए में अपरकेस में नहीं टेक्स्ट स्ट्रिंग दर्ज करते हैं, तो एक चेतावनी बॉक्स आपको अपरकेस अक्षरों को दर्ज करने की याद दिलाने के लिए पॉप अप हो जाएगा।

दस्तावेज़-बल-अपरकेस-1

नोट:

यदि आपको टेक्स्ट स्ट्रिंग्स को लोअरकेस या उचित केस में बाध्य करने की आवश्यकता है, तो कृपया निम्नलिखित सूत्रों को इसमें लागू करें डेटा मान्यता चरण 2 में

लोअरकेस करने के लिए बल: =सटीक(लोअर(A1),A1);

उचित मामले पर बल: =सटीक(PROPER(A1),A1)

निम्नलिखित वीबीए कोड के साथ, जब आप किसी सेल में लोअरकेस शब्द दर्ज करते हैं, तो लोअरकेस टेक्स्ट स्वचालित रूप से अपरकेस अक्षरों में बदल जाएगा।

1. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.

2. फिर बाईं ओर से अपनी प्रयुक्त वर्कशीट चुनें प्रोजेक्ट एक्सप्लोरर, खोलने के लिए इसे डबल क्लिक करें मॉड्यूल, और फिर निम्नलिखित VBA कोड को कॉपी करके रिक्त मॉड्यूल में पेस्ट करें:

वीबीए कोड: टेक्स्ट स्ट्रिंग को अपरकेस में बाध्य करें

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.UCase(Target.Value)
End Sub

दस्तावेज़-बल-अपरकेस-1

3. फिर वर्कशीट पर लौटने के लिए इस कोड को सेव करें और बंद करें, अब जब आप टेक्स्ट स्ट्रिंग को लोअरकेस या उचित केस में दर्ज करते हैं, तो टैप करने के बाद यह अपरकेस बन जाएगा। दर्ज कुंजी स्वचालित रूप से.

टिप्पणियाँ:

1. यह कोड पूरी वर्कशीट पर लागू होता है।

2. यदि आपको पी नहीं मिल रहा हैप्रोजेक्ट एक्सप्लोरर फलक विंडो में, आप क्लिक कर सकते हैं देखें > प्रोजेक्ट एक्सप्लोरर इसे खोलने के लिए

3. शब्दों को लोअरकेस या उचित केस में बाध्य करने के लिए, आप निम्नलिखित VBA कोड लागू कर सकते हैं: (प्रक्रिया उपरोक्त के समान है)

वीबीए कोड: टेक्स्ट स्ट्रिंग को लोअरकेस में बाध्य करें

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.LCase(Target.Value)
End Sub

वीबीए कोड: टेक्स्ट स्ट्रिंग को उचित केस में बाध्य करें

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub

यदि आप कुछ विशिष्ट टेक्स्ट को अपरकेस, लोअरकेस या प्रॉपर केस में बदलना चाहते हैं, तो आप इसे लागू कर सकते हैं बदला हुआ विषय की उपयोगिता एक्सेल के लिए कुटूल इसे जल्दी से पूरा करने के लिए.

एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। 
मुफ्त डाउनलोड
30 दिनों में निःशुल्क पूर्ण-विशेषीकृत

बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:

1. उन टेक्स्ट का चयन करें जिन्हें आप केस बदलना चाहते हैं और क्लिक करें कुटूल > टेक्स्ट > बदला हुआ विषय. स्क्रीनशॉट देखें:
दस्तावेज़ परिवर्तन मामला 6

2। में बदला हुआ विषय संवाद, अपनी आवश्यकतानुसार ऑपरेशन विकल्प की जाँच करें, और आप परिणाम का पूर्वावलोकन कर सकते हैं पूर्वावलोकन फलक. स्क्रीनशॉट देखें:
दस्तावेज़ परिवर्तन मामला 2

3। क्लिक करें Ok or लागू करें और पाठ परिवर्तन का मामला रहा है.

 अपरकेस में बदलें  उचित मामले में बदलें  सज़ा मामले में बदलाव
 दस्तावेज़ परिवर्तन मामला 3  दस्तावेज़ परिवर्तन मामला 4 दस्तावेज़ परिवर्तन मामला 5 

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

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

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

Description

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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (10)
No ratings yet. Be the first to rate!
DS
DS
This comment was minimized by the moderator on the site
Please suggest modifications in the VBA code to force the text strings to change to the desired format (Upper/Lower/Proper case) in selected/specified cells only rather than changing the Case of the text strings in the entire worksheet.
Reply
0
0
skyyang
skyyang     DS
This comment was minimized by the moderator on the site
Hello, DS,
To apply the code to a specified range instead of entire worksheet, please apply the following code:
VBA code: Force text string to uppercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to lowercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.LCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to propercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


Please have a try, thank you!
Reply
Report
0
0
Spencer
Spencer
This comment was minimized by the moderator on the site
Use: On Error Resume Next

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
On Error Resume Next
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub
Reply
0
0
wilson
wilson
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
Reply
0
0
Thomas Reid
Thomas Reid
This comment was minimized by the moderator on the site
This worked for me, however if you went to delete the contents of the cell then a "runtime error '13': type mismatch" came up

Any ideas?
Reply
0
0
Miguel Neves
Miguel Neves     Thomas Reid
This comment was minimized by the moderator on the site
i have the same problem. if you know how to deal with it please tell me!
Reply
0
0
Sunny
Sunny     Miguel Neves
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
Reply
Report
0
0
Russ Maurer
Russ Maurer
This comment was minimized by the moderator on the site
Like your VBA solution, but how could I limit it to a single column and format other columns differently, e.g., columns A and C force uppercase, column B force proper case?
Reply
0
0
Sunny
Sunny     Russ Maurer
This comment was minimized by the moderator on the site
I do not know which VBA can handle your job (some columns in uppercase, some in proper case), but the data validation can solve it, why do not use it?
Reply
Report
0
0
Patrick
Patrick
This comment was minimized by the moderator on the site
thanks for the macro to convert all entries to capital letters, but is there something i need to do to stop the macro from crashing excel every fe minutes? Appreciate the help!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations