المساعدة فى جعل الحروف الاولى فى الجمل capital

[أبــو حبيبـــة]

السلام عليكم

برجاء المساعدة فى طريقه تحويل الكلام المكتوب small  يتحول الى الحرف الاول فى  كل كلمه الى حرف capital

طريقه شامله للشيت كامل مرة واحدة وليس معادلة تحول خانه خانه لان البيانات كثيرة

مرفق مثال صغير من البيانات المطلوب تحويلها

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

Book2.rar

[عبدالله باقشير]

السلام عليكم

 

جرب الكود التالي

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

تحياتي

[أبــو حبيبـــة]

السلام عليكم استاذ / عبد الله

جزاكم الله خيرا على هذا الحل الجميل

هل لى ان اطمع ببعض الاستفسارات بخصوص هذا الموضوع

 

1 - هل من كود يحول الشيت كامل من small الى capital  و العكس

 

2 - هل من كود يخص اى من هذه الحالات بعمود او صف معين فقط بان اجعل هذا العمود يطبق فقط حالة تحويل اول الكلام الى حروف capital و العمود الاخر يتم تحويل الحروف small الى  capital

[أم عبد الله]

الأستاذ / أبو حبيبة

 

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

 

كود أستاذنا القدير العلاّمة / عبد الله باقشير  جزاه الله خيراً وجعله في ميزان حسناته شامل على جميع الخلايا ومرسل ملف حضرتك عليه التطبيق.

 

Book4.rar

[أبــو حبيبـــة]

السلام عليكم استاذة / ام عبد الله

اشكر لك هذا المرور الطيب

و لكنى اطمع من استاذنا / عبدالله فى المزيد و هو كما طلبت سابقا

1 - هل من كود يحول الشيت كامل من حروف small الى حروف capital  و العكس

 

2 - هل من كود ان اجعل عامود او صف معين فقط  يطبق فقط حالة تحويل اول الكلام الى حروف capital و العامود الاخر يتم تحويل الحروف من small الى حروف  capital و العكس

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

تم تعديل مارس 21, 2014 بواسطه أبــو حبيبـــة

[عبدالله باقشير]

السلام عليكم

الشكر واصل لاختي الفاضلة / أم عبدالله

 

تفضل هذه الاكواد استخدم منها ماتشاء

'تحويل الاحرف الصغيرة في بداية الكلمة الى كبيرة
Sub kh_RngProper()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
    Cel.Value = StrConv(CStr(Cel), vbProperCase)
Next
End Sub

'  احرف كبيرة
Sub kh_RngUpper()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
    Cel.Value = StrConv(CStr(Cel), vbUpperCase)
Next
End Sub

'  احرف صغيرة
Sub kh_RngLower()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
    Cel.Value = StrConv(CStr(Cel), vbLowerCase)
Next
End Sub

هذه الاكواد لجميع الخلايا في الشيت النشط

 

اما اذا تريد تغير الى خلايا معينة

 

استبدل في الكود

ActiveSheet.UsedRange

الى اي نطاق تريده مثلا

Range ("A1:A1000")

تحياتي

[حمادة باشا]

أستاذنا الكبير/ عبدالله باقشير

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

لم تترك مجال لسؤال بعد المشاركة السابقة - جزاكم الله كل خير

تقبل تحياتي

تم تعديل مارس 22, 2014 بواسطه حمادة باشا

[أبــو حبيبـــة]

الســلام عليكــم

لا اجد من كلامات الشكر التى توافيك حقك استاذ باقشير

ازادك الله علما و حسنات

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

[pippo1]

الســلام عليكــم...

جزاك الله خيرا  استاذ باقشير