Change Case in Excel in the Same Cell without Formula or Function

How to Use Change Case in Excel in the Same Cell without Formula or Function

Excel में change Case आसन नहीं है , अगर आप अपने टेक्स्ट का Case change करना चाहते है
जैसे की लोअर मोड से अपर मोड या अपर मोड से लोअर मोड या प्रॉपर मोड तो आपको फंक्शन या फार्मूला का इतेमाल करना होगा |

Change Case in Excel पुराना तरीका

लेकिन सिर्फ फंक्शन या फार्मूला के प्रयोग कर लेने मात्र से ही आपकी समस्या का समाधान नहीं हो जायेगा|
क्योकि फंक्शन प्रयोग करने के लिए आपको एक नए सेल की जरुरत होगी और हाँ बात यही ख़त्म नहीं होती अगर आप अपने पुराने सेल जिस में आपका पुराना टेक्स्ट लिखा हुवा था जिसका रिफरेन्स आपने Upper, Lower or Proper function के प्रयोग करते समय किया था अगर उसे मिटा देते है तो वह नया सेल जिस में आपने फंक्शन का प्रयोग किया है वह भी डिलीट हो जायेगा |

अब आप एक नए मुसीबत में फंस जाते है जिस में आप अपने पुराने सेल को भी नहीं मिटा सकते और न ही उसको उस मोड में ही छोड़ सकते हैं क्योकी आपको तो उसका मोड़ चेंज करना है |

खैर कोई बात नहीं
इसका भी समाधान है
लेकिन इसके लिए आपको अपने नए डाटा को जो की आपको उस सेल में मिलेगा जिस में आप ने फंक्शन का प्रयोग किया था, से कॉपी करना होगा और किसी नए सेल में पेस्ट करना होगा

पेस्ट स्पेसल का प्रयोग करना

किन्तु पेस्ट नार्मल मोड़ में नहीं करना हैं
Paste पेस्ट स्पेसल मोड के पेस्ट वैल्यू मोड के द्वारा करना है |
इसके बाद आपको उन दोनों सेल के डाटा को डिलीट कर देना है जिस में आप ने फंक्शन का प्रयोग किया था और सब से पहले सेल को भी , जिसमे आपका पुराना डाटा था |

फिर जो डाटा आपने पेस्ट वैल्यू मोड से प्राप्त किया है उसको कॉपी कर के सब से पहले वाले सेल में आपको नार्मल पेस्ट कर देना है |

लेकिन अगर हम उसी सेल में change case का प्रयोग करना चाहे जिस में हमारा टेक्स्ट लिखा हुवा है तो यह किसी फंक्शन से संभव नहीं है |

नया तरीका (VB script)

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

निचे लिए VB स्क्रिप्ट को कॉपी कर ले और एक नया माइक्रो बना कर उसे एडिट मोड में ओपन करें और उस में पेस्ट कर दे |

Download

Sub ChangeTextCase()
Dim strChange As String
strChange = InputBox(“Visit: https://www.youtube.com/Gseasytech” & vbCr & vbLf & vbCr & vbLf & “Type l, u, or p to change case:” & vbCr & vbLf & vbCr & vbLf & _
“Lowercase = l, uppercase = u, proper case = p”, “Change case of selected cells”, “”)
Select Case strChange
Case “l”, “L”
For Each x In Application.Selection
x.Value = LCase(x.Value)
Next
Case “u”, “U”
For Each x In Application.Selection
x.Value = UCase(x.Value)
Next
Case “p”, “P”
For Each x In Application.Selection
x.Value = WorksheetFunction.Proper(x.Value)
Next
Case Else
MsgBox “Type l, u, or p.” & vbCr & vbLf & vbCr & vbLf & “Click OK to start over.” & vbCr & vbLf & vbCr & vbLf & “Visit Gseasytech.com for Excel Tips & Tricks”
End Select
End Sub