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

माइक्रोसॉफ्ट एक्सेल में टेक्स्ट स्ट्रिंग्स को वाक्य केस में कैसे बदलें?

लेखक: केली अंतिम संशोधित: 2013-11-27

आपको Microsoft Excel में टेक्स्ट स्ट्रिंग को वाक्य केस में बदलने की आवश्यकता हो सकती है। मान लीजिए कि अपरकेस या लोअरकेस में सैकड़ों टेक्स्ट स्ट्रिंग हैं, तो उन्हें मैन्युअल रूप से एक-एक करके बदलना एक अच्छा विकल्प नहीं है। क्या माइक्रोसॉफ्ट एक्सेल में टेक्स्ट स्ट्रिंग्स को वाक्य केस में बदलने की आसान तरकीबें हैं?


तीर नीला दायां बुलबुला वीबीए के साथ एक्सेल में टेक्स्ट स्ट्रिंग्स को वाक्य केस में बदलें

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

चरण 1: नीचे रखें एएलटी + F11 कुंजियाँ, और यह एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलता है।

चरण 2: क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की.

Sub SentenceCase()
'Updateby20131127
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xValue = Rng.Value
    xStart = True
    For i = 1 To VBA.Len(xValue)
        ch = Mid(xValue, i, 1)
        Select Case ch
            Case "."
            xStart = True
            Case "?"
            xStart = True
            Case "a" To "z"
            If xStart Then
                ch = UCase(ch)
                xStart = False
            End If
            Case "A" To "Z"
            If xStart Then
                xStart = False
            Else
                ch = LCase(ch)
            End If
        End Select
        Mid(xValue, i, 1) = ch
    Next
    Rng.Value = xValue
Next
End Sub

चरण 3: दबाएं F5 इस मैक्रो को चलाने के लिए कुंजी, फिर एक श्रेणी का चयन करने के लिए स्क्रीन पर एक संवाद पॉप अप होता है, स्क्रीनशॉट देखें:

दस्तावेज़-परिवर्तन-केस7

चरण 4: क्लिक करें Ok, और आप नीचे दिखाए अनुसार परिणाम देख सकते हैं:


तीर नीला दायां बुलबुला एक्सेल के लिए कुटूल के साथ एक्सेल में टेक्स्ट स्ट्रिंग्स को वाक्य केस में बदलें

एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। अब समझे

VBA मैक्रो Microsoft Excel के स्टार्टर उपयोगकर्ताओं के लिए आसान नहीं हो सकता है। कृपया इसके बारे में चिंता न करें. एक्सेल के लिए कुटूल's बदला हुआ विषय टूल चयन में सभी टेक्स्ट स्ट्रिंग्स को वाक्य केस में तुरंत बदल सकता है।

चरण 1: उस श्रेणी का चयन करें जिसमें आप टेक्स्ट स्ट्रिंग को वाक्य केस में बदलेंगे।

चरण 2: इस पर क्लिक करें कुटूल > पाठ उपकरण > बदला हुआ विषय…. स्क्रीनशॉट देखें:

चरण 3: चेंज केस डायलॉग बॉक्स में, चेक करें वाक्य मामले। विकल्प, और क्लिक करें OK or लागू करें बटन.

फिर आप देखेंगे कि चयन में सभी प्रकार की टेक्स्ट स्ट्रिंग्स को वाक्य केस में बदल दिया गया है। निम्नलिखित चित्र देखें:

एक्सेल के लिए कुटूल's बदला हुआ विषय टूल टेक्स्ट केस को जल्दी से अपर, लोअर, प्रोपर, सेंटेंस केस और टॉगल केस में बदल सकता है। अधिक जानने के लिए क्लिक करें...


सापेक्ष लेख:

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Here is simple way of converting any text with multiple sentences to Sentence Case. The comments on the right show how the text gets transformed at each step. Private Function SentenceConvert(strText As String) As String strText = LCase(strText) 'I GO. i went. --> i go. i went. strText = Replace(Replace(Replace(strText, ". ", ".~"), "? ", "?~"), "! ", "!~") 'i go. i went. --> i go.~i went. strText = Replace(strText, " ", "^") 'i go.~i went. --> i^go.~i^went. strText = Replace(strText, "~", " ") 'i^go.~i^went. --> i^go. i^went. strText = StrConv(strText, vbProperCase) 'i^go. i went. --> I^go. I^went. strText = Replace(strText, "^", " ") 'I^go. I^went. --> I go. I went. strText = Replace(strText, " i ", " I ") SentenceConvert = strText End Function
This comment was minimized by the moderator on the site
OR you could simply copy the selection to MS Word, change to sentence case there and copy back.
This comment was minimized by the moderator on the site
Good macro, but it would help to have all the variables defined.
This comment was minimized by the moderator on the site
Really helpful! Thanks! :lol:
This comment was minimized by the moderator on the site
Thanks for the great tutorial for the macro! I noticed though that any sentences following a sentence ending in an exclamation point did not get capitalized. How do I add this to the macro?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations