تحويل الحروف الصغيرة الى حروف كبيرة (كبتل)

[أحمد علي (أبوعلي)]

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

 

أخواني الأفاضل شهر مبارك عليكم وعلى الأمة الأسلامية ...

 

موضوعي بشكل مختصر:

 

عندي ملف إكسيل وأقوم بإدخال البيانات باللغة الإنجليزية

هل ممكن أن يكون المدخلات بالحروف الكبيرة دون

الحاجة لإستخدام زر [Caps Lock] أي يكون الكتابة

بالحروف الكبيرة إلزامي وليس إختياري ...

 

مع جزيل الشكر

 

[قنديل الصياد]

اخى العزيز

كل عام وانتم بخير

برجاء الالتزام بقواعد المشاركة http://www.officena.net/Tips/Questions.htm

 

بالنسبة لطلبك يمكن ان تستخدم الدالة UPPER لتحويل الحروف من صمول الى كبتل

=UPPER(A8)

مرفق ملف به التطبيق

 

الصياد.rar

 

[ضاحي الغريب]

أخي الكريم //

حل  اخر بجانب حل اخي الاستاذ/ قنديل الصياد بارك الله فيه وجزاه خيرا

استخدم الكود التالي في حدث الصفحة

واكتب حروف صغير سوف تتحول الي حروف كبيرة (كبتل)

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
On Error GoTo ErrTrap
With Target
    If .Count = 1 Then
                   .Value = UCase(.Value)
      
    End If
End With

ErrTrap:
    Application.EnableEvents = True
    
End Sub

التطبيق بالمرفقات

الكتابة بحروف كبيرة.rar

[قنديل الصياد]

لا اجد من الكلمات ما اقول لكى اشكرك واهنيك على ابداعاتك المستمرة استاذنا الكبير

الاستاذ /ضاحى الغريب

كل عام وحضرتك بخير

وجزاك الله هير الجزاء

[ضاحي الغريب]

بارك الله فيك

اخي الحبيب الأستاذ// قنديل الصياد

وكل عام وانتم بخير

تقبل الله منا ومنكم صالح الاعمال

 ورمضان كريم

[sarab1618]

مجهود رائع ... كل رمضان وانتم على طاعة

[حمادة عمر]

الاخ الحبيب / ضاحي الغريب

بارك الله فيك

كود جميل من شخص كريم وحبيب

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

[حمادة عمر]

رمضـــان كـــريـــم