اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

ماهي طريقة جعل النص في الخلية او الخلايا التي أقوم بتحديدها في حالة الأحرف الكبيرة او الصغيرة (Upper Case / Lower Case )

قام بنشر

السلام عليكم

هذا الكود في حدث الصفحه

اذا كنت تريد الكلمة بمجملها

بمجرد الخروج من الخليه يغير الخط من اسمول الى كبتل


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:F1")) Is Nothing Then

	  Target.Value = UCase(Target.Value)

End If

End Sub

وهذا الكود بمودويل يغير نطاق تحدده في الكود من اسمول الى كبتل

Sub THOEEL()

   For Each CEL In Range("A3:F3")

	  CEL.Value = UCase(CEL.Value)

   Next

End Sub

قام بنشر

اخى

قم بفتح الفاجول بيزك altوf11

اختر الصفحة التى تريد بها التنفيذ

الصق بها اول كود وغير المدى منa1:f1الى المدى الذى تريده وبالتوفيق

استاذ ابو نصار زادك الله علما وكرما

بارك الله فيك كود ولا اروع

احترامى

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information