تحويل الاحرف الصغيرة الى كبيرة ضمن مدى معين

[الجزيرة]

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

كيف يمكن تحويل أي حرف انجليزي يتم كتابته داخل مدى معين من ( صغير إلى كبير )

أي عند كتابة حرف أو أكثر سمول يتحول الى كابتال

ياليت يكون بالتنسيق الشرطي إن أمكن أو بالكود وذلك على اكسل 2007

ولكم كل الشكر والتقدير

[بن علية حاجي]

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

أخي الكريم، يمكنك استعمال الكود (للنطاق A1:H50 من الورقة مثلا) التالي :

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1:H50")) Is Nothing Then Target = UCase(Target)

End Sub

أخوك بن علية

[الجزيرة]

أخي بن عليه

بارك الله فيك وفي ذريتك

طريقة موفقة مع أنها تاخذ وقت في التطبيق ولا أعرف السبب !

[الـعيدروس]

السلام عليكم

استخدم هذا الكود بدلا من حدث الصفحة

لسبب حدث الصفحة يسبب بطئ في حال البيانات كثيرة

Sub THOEEL()

   For Each T_ALI In Range("A2:H50")

	  T_ALI.Value = UCase(T_ALI.Value)

   Next

End Sub