Wednesday, March 3, 2021

Excel Tips : एक्सेल में टेक्स्ट को आटोमेटिक प्रॉपर केस में कन्वर्ट करे

Excel Tips : एक्सेल में टेक्स्ट को  आटोमेटिक प्रॉपर केस में कन्वर्ट करे |

excel proper case tips

अगर आप चाहते की एक्सेल में टाइप करते ही कोई भी टेक्स्ट आटोमेटिक प्रॉपर केस में कन्वर्ट हो जाये तो निचे दिए गए स्टेप्स फॉलो कीजिये |

दरसल एक्सेल के अंदर किसी भी टेक्स्ट एक केस से दूसरे केस में कन्वर्ट करना है याने स्माल लेटर्स से कैपिटल तो हम फार्मूला यूज़ करते है | वैसी अगर आप एम्प्लोयी के नाम के लिस्ट टाइप कर रहे हो और आप चाहते उसमे जो नाम लिखे है उसका पहला लेटर मतला नाम और सुर्नामे का पहला अल्फाबेट कैपिटल हो जाये तो आप प्रॉपर केस (=PROPER()) ये वाला फार्मूला यूज़ करते है पर अब मैंने इससे भी आपको छुटकारा दे दिया है बस आप टाइप करो और एंटर करो और फिर आटोमेटिक प्रॉपर केस में कन्वर्ट होगा |

excel tips in hindi

स्टेप्स :

१) एक्सेल की फाइल को ओपन कीजिये और उसमे  ALT + F11  प्रेस कीजिये , फिर VBA स्क्रीन आएगी उसमे नया MODULE  इन्सर्ट कीजिये |

- Advertisement -

२) अब निचे दिया गया कोड कॉपी करके उस 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

- Advertisement -

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

३) उसके बाद उसमे लेफ्ट साइड में आपक शीट्१ दिखाई देगा यदि आप शीट में कोड एक्टिवटे करना चाहते है तो उसपे राइट क्लिक करके व्यू कोड कीजिये और फिर निचे दिया गया कोड उसमे पेस्ट कीजिये |

- Advertisement -

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 कीजिये

- Advertisement -

Related Articles

1 COMMENT

LEAVE A REPLY

Please enter your comment!
Please enter your name here

Stay Connected

7,690FansLike
3,476FollowersFollow
853,982SubscribersSubscribe
- Advertisement -

Latest Articles