एक्सेल में अपवादों के साथ टेक्स्ट स्ट्रिंग को उचित केस में कैसे परिवर्तित करें?
एक्सेल में, आप टेक्स्ट स्ट्रिंग्स को आसानी से उचित केस में बदलने के लिए प्रॉपर फ़ंक्शन लागू कर सकते हैं, लेकिन, कभी-कभी, आपको टेक्स्ट स्ट्रिंग्स को उचित केस में कनवर्ट करते समय कुछ विशिष्ट शब्दों को बाहर करने की आवश्यकता होती है, जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है। इस लेख में, मैं एक्सेल में इस कार्य को हल करने के लिए कुछ त्वरित युक्तियों के बारे में बात करूंगा।
सूत्र का उपयोग करके टेक्स्ट स्ट्रिंग्स को अपवादों के साथ उचित केस में बदलें
VBA कोड का उपयोग करके टेक्स्ट स्ट्रिंग्स को अपवादों के साथ उचित केस में बदलें
सूत्र का उपयोग करके टेक्स्ट स्ट्रिंग्स को अपवादों के साथ उचित केस में बदलें
हो सकता है कि निम्नलिखित सूत्र आपको इस कार्य को शीघ्रता से निपटाने में मदद कर सके, कृपया ऐसा करें:
यह सूत्र दर्ज करें:
=UPPER(LEFT(A2))&MID(TRIM(substitute(substitute(substitute(substitute(" "&PROPER(A2)&" "," Of "," of ")," A "," a "),"Is "," है ")," यूएसए "," यूएसए ")),2,LEN(A2)) उस सेल में जहां आप परिणाम प्राप्त करना चाहते हैं, और फिर इस सूत्र को भरने के लिए भरण हैंडल को खींचें, और टेक्स्ट स्ट्रिंग्स को उचित मामले में परिवर्तित कर दिया गया है लेकिन विशिष्ट अपवाद, स्क्रीनशॉट देखें:
नोट: उपरोक्त सूत्र में, A2 वह सेल है जिसे आप कनवर्ट करना चाहते हैं, "का", "ए", "है", "यूएसए" परिवर्तित करने के बाद सामान्य उचित केस शब्द हैं, "का", "ए", "है", "यूएसए" ये वे शब्द हैं जिन्हें आप उचित मामले से बाहर करना चाहते हैं। आप उन्हें अपनी आवश्यकता के अनुसार बदल सकते हैं या SUBSTITUTE फ़ंक्शन के साथ अन्य शब्द जोड़ सकते हैं।
VBA कोड का उपयोग करके टेक्स्ट स्ट्रिंग्स को अपवादों के साथ उचित केस में बदलें
यदि उपरोक्त सूत्र को समझना और आपकी आवश्यकता के अनुसार बदलना कुछ कठिन है, तो यहां, आप इस कार्य को पूरा करने के लिए एक वीबीए कोड भी लागू कर सकते हैं। कृपया निम्नलिखित चरणों को एक-एक करके करें।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: टेक्स्ट स्ट्रिंग्स को अपवादों के साथ उचित केस में बदलें:
Sub CellsValueChange()
'Updateby Extendoffice
Dim xSRg As Range
Dim xDRg As Range
Dim xPRg As Range
Dim xSRgArea As Range
Dim xRgVal As String
Dim xAddress As String
Dim I As Long
Dim K As Long
Dim KK As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Original cells:", "KuTools For Excel", xAddress, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Output cells:", "KuTools For Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
Set xPRg = Application.InputBox("Cells to exclude:", "KuTools For Excel", , , , , , 8)
If xPRg Is Nothing Then Exit Sub
Set xDRg = xDRg(1)
For I = 1 To xSRg.Areas.Count
Set xSRgArea = xSRg.Areas.Item(I)
For K = 1 To xSRgArea.Count
xRgVal = xSRgArea(K).Value
If Not IsNumeric(xRgVal) Then
xRgVal = CorrectCase(xRgVal, xPRg)
xDRg.Offset(KK).Value = xRgVal
End If
KK = KK + 1
Next
Next
End Sub
Function CorrectCase(ByVal xRgVal As String, ByVal xPRg As Range) As String
Dim xArrWords As Variant
Dim I As Integer
Dim xPointer As Integer
Dim xVal As String
xPointer = 1
xVal = xRgVal
xArrWords = WordsOf(xRgVal)
For I = 0 To UBound(xArrWords)
xPointer = InStr(xPointer, " " & xVal, " " & xArrWords(I))
Debug.Print xPointer
Mid(xVal, xPointer) = CorrectCaseOneWord(CStr(xArrWords(I)), xPRg)
Next I
CorrectCase = xVal
End Function
Function WordsOf(xRgVal As String) As Variant
Dim xDelimiters As Variant
Dim xArrRtn As Variant
xDelimiters = Array(",", ".", ";", ":", Chr(34), vbCr, vbLf)
For Each xEachDelimiter In xDelimiters
xRgVal = Application.WorksheetFunction.Substitute(xRgVal, xEachDelimiter, " ")
Next xEachDelimiter
xArrRtn = Split(Trim(xRgVal), " ")
WordsOf = xArrRtn
End Function
Function CorrectCaseOneWord(xArrWord As String, xERg As Range) As String
With xERg
If IsError(Application.Match(xArrWord, .Cells, 0)) Then
CorrectCaseOneWord = Application.Proper(xArrWord)
Else
CorrectCaseOneWord = Application.VLookup(xArrWord, .Cells, 1, 0)
End If
End With
End Function
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उन मूल कोशिकाओं का चयन करने की याद दिलाने के लिए पॉप आउट होता है जिन्हें आप कनवर्ट करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK, उन कक्षों का चयन करें जहां आप पॉप आउट बॉक्स में परिणाम आउटपुट करना चाहते हैं, स्क्रीनशॉट देखें:
5. क्लिक पर जाएं OK, और पॉपअप संवाद बॉक्स में, उन टेक्स्ट का चयन करें जिन्हें आप बाहर करना चाहते हैं, स्क्रीनशॉट देखें:
6। और फिर क्लिक करें OK संवादों से बाहर निकलने के लिए, और सभी टेक्स्ट स्ट्रिंग्स को उचित केस में बदल दिया गया है लेकिन निर्दिष्ट शब्दों को बाहर कर दिया गया है, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!