Excel Tips : एक्सेल में टेक्स्ट को आटोमेटिक प्रॉपर केस में कन्वर्ट करे |
अगर आप चाहते की एक्सेल में टाइप करते ही कोई भी टेक्स्ट आटोमेटिक प्रॉपर केस में कन्वर्ट हो जाये तो निचे दिए गए स्टेप्स फॉलो कीजिये |
दरसल एक्सेल के अंदर किसी भी टेक्स्ट एक केस से दूसरे केस में कन्वर्ट करना है याने स्माल लेटर्स से कैपिटल तो हम फार्मूला यूज़ करते है | वैसी अगर आप एम्प्लोयी के नाम के लिस्ट टाइप कर रहे हो और आप चाहते उसमे जो नाम लिखे है उसका पहला लेटर मतला नाम और सुर्नामे का पहला अल्फाबेट कैपिटल हो जाये तो आप प्रॉपर केस (=PROPER()) ये वाला फार्मूला यूज़ करते है पर अब मैंने इससे भी आपको छुटकारा दे दिया है बस आप टाइप करो और एंटर करो और फिर आटोमेटिक प्रॉपर केस में कन्वर्ट होगा |
स्टेप्स :
१) एक्सेल की फाइल को ओपन कीजिये और उसमे ALT + F11 प्रेस कीजिये , फिर VBA स्क्रीन आएगी उसमे नया MODULE इन्सर्ट कीजिये |
२) अब निचे दिया गया कोड कॉपी करके उस MODULE में पेस्ट कीजिये |
Sub PCASE()
Application.ScreenUpdating = False
ActiveCell.Select
On Error Resume Next
Dim rng As Range, cell As Range
Set rng = ActiveCell.Offset(-1, 0).Select
Set rng = Selection
For Each cell In rng
If Not cell.HasFormula Then
cell.Value = WorksheetFunction.Proper(cell.Value)
End If
Next cell
Range(“A1048576“).End(xlUp).Select
Application.ScreenUpdating = True
End Sub
३) उसके बाद उसमे लेफ्ट साइड में आपक शीट्१ दिखाई देगा यदि आप शीट में कोड एक्टिवटे करना चाहते है तो उसपे राइट क्लिक करके व्यू कोड कीजिये और फिर निचे दिया गया कोड उसमे पेस्ट कीजिये |
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Call PCASE
End If
End Sub
४) और फिर A कॉलम में नाम टाइप करके एंटर बटन प्रेस करके देखिये |
५) अच्छा अगर आप ा की जगह B , या C कॉलम में चाहते है तो ऊपर कोड में थोडासा चेंज कीजिये जहाँपे मैंने उसे बोल्ड हाईलाइट किया है वहाँपे | जैसे TARGET.COLUMN = 2 कीजिये B COLUMN के लिए और B1048576 कीजिये
khoupc chaan sir