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

माइक्रोसॉफ्ट एक्सेल में टेक्स्ट को अपरकेस में जल्दी से कैसे बदलें/बदलें?

लेखक: केली अंतिम संशोधित: 2014-07-01

यह आलेख Microsoft Excel में टेक्स्ट स्ट्रिंग्स को सभी बड़े अक्षरों में आसानी से बदलने के तरीके के बारे में कुछ युक्तियों के बारे में बात करने जा रहा है।

मान लीजिए कि आपको A1:A5 में टेक्स्ट स्ट्रिंग्स को बड़े अक्षरों में बदलने की आवश्यकता है, तो निम्नलिखित स्क्रीन शॉट्स देखें:


तीर नीला दायां बुलबुला एक्सेल में अपरकेस फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग्स को अपरकेस में बदलें

माइक्रोसॉफ्ट एक्सेल के अपर फ़ंक्शन का उपयोग करके टेक्स्ट स्ट्रिंग्स को एक सेल में अपरकेस अक्षरों में बदलना आसान है।

दर्ज = ऊपरी (A1) सेल C1 में, और Enter कुंजी दबाएँ। फिर सेल A1 में "चेंज केस" की सामग्री को कॉपी किया जाता है और सेल C1 में "चेंज केस" में बदल दिया जाता है। स्क्रीन शॉट देखें:

सेल C1 का चयन करें, और आप नीचे-दाएं कोने पर खींचकर और अन्य कोशिकाओं पर छोड़ कर सूत्र को अन्य कोशिकाओं में कॉपी कर सकते हैं।


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

एक VBA कोड है जो एक्सेल में टेक्स्ट स्ट्रिंग को अपरकेस में बदलने में आपकी मदद कर सकता है।

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

2. विंडो में क्लिक करें सम्मिलित करें > मॉड्यूल एक नई मॉड्यूल विंडो दिखाने के लिए, फिर निम्नलिखित VBA कोड को मॉड्यूल विंडो में कॉपी करें।

वीबीए: एक्सेल में टेक्स्ट स्ट्रिंग को अपरकेस में बदलें।

Sub UCase()
'Upadateby20140701
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
    Rng.Value = VBA.UCase(Rng.Value)
Next
End Sub

3। तब दबायें रन बटन, और टेक्स्ट स्ट्रिंग को अपरकेस में बदलने के लिए एक श्रेणी का चयन करने के लिए एक संवाद पॉप आउट होता है। स्क्रीनशॉट देखें:

4. सेलेक्ट करने के बाद क्लिक करें OK. चयन में सभी टेक्स्ट स्ट्रिंग को अपरकेस में बदल दिया जाएगा।


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

एक्सेल के लिए कुटूल's बदला हुआ विषय यह टूल आपको Microsoft Excel की श्रेणी में सभी टेक्स्ट स्ट्रिंग्स या अक्षरों से लेकर बड़े अक्षरों तक की मदद कर सकता है।

एक्सेल के लिए कुटूल इसमें 100 से अधिक उपयोगी एक्सेल टूल शामिल हैं। 30 दिनों में बिना किसी सीमा के प्रयास करने के लिए निःशुल्क। अब समझे.

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

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

चरण 3: में बदला हुआ विषय संवाद बॉक्स में, चेक करें अपरकेस विकल्प, और क्लिक करें OK or लागू करें बटन। स्क्रीन शॉट देखें:

फिर आप देखेंगे कि चयन में सभी टेक्स्ट स्ट्रिंग्स बड़े अक्षरों में बदल गई हैं। स्क्रीनशॉट देखें:

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


सापेक्ष लेख:

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

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

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

Description


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

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

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA was freaking awesome thanks a lot :lol: .
This comment was minimized by the moderator on the site
This is one the ways that i know it could be done with VBA Sub UPPER () Dim Addrr As Atring Addr = Intersect(ActiveSheet.UsedRange, Selection).Address Range(Addr) = _ Evaluate("IF(LEN(" & Addr & "),UPPER(" & Addr & "),"""")") End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations