تحويل الحروف الإنجليزية الصغيرة ( Small ) إلى حروف كبيرة ( capital )

[ريان أحمد]

السلام عليكم

 

أريد كود يحول كتابة إسم من   Mohamed  إلى MOHAMED

[وليد فتحي]

عليكم السلام ورحمة الله وبركاته

الاخ الفاضل ريان أحمد

اتفضل اخي الفاضل الكود التالي للعلامة الاستاذ عبدالله باقشير

Sub kh_RngProper()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
    Cel.Value = StrConv(CStr(Cel), vbProperCase)
Next
End Sub

بالموضوع التالي

 

http://www.officena.net/ib/index.php?showtopic=52587

[رجب جاويش]

وهذا التعديل لتحويل كل الحروف الى حروف كبيرة

Sub kh_RngProper1()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
    Cel.Value = StrConv(CStr(Cel), vbUpperCase)
Next
End Sub

[ريان أحمد]

السلام عليكم

 

بارك الله فيكم وجزاكم الله كل خير كود قمة فب الروعة

[رجب جاويش]

أخى الفاضل / ريان احمد

جزاك الله كل خير

والشكر موصول للمتفرد فى الإبداع أستاذى الحبيب / عبد الله باقشير