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

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

قام بنشر

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

ماهي طريقة جعل النص في الخلية او الخلايا التي أقوم بتحديدها في حالة الأحرف الكبيرة او الصغيرة (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الى المدى الذى تريده وبالتوفيق

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

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

احترامى

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information