How to Use 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 करना चाहते है जैसे की लोअर मोड से अपर मोड या अपर मोड से लोअर मोड या प्रॉपर मोड तो आपको फंक्शन या फार्मूला का इतेमाल करना होगा |

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

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

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

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

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

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

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

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

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

click here to download VB Script

Please follow and like us:
YouTube
YouTube
Follow by Email