ممكن كود ليتغير حجم الخط مع الخليه

[abuhanen10]

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

الاساتذه الكرام

قمت بتصميم برنامج لقوائم الفصول

ولكن عندما يكون هناك طالب اسمه طويل قليلا

يظهر فى الظباعه سئ جدا

اذا ممكن كود عندما يطول الاسم يقل حجم الخط ليناسب الخليه

وشكرا لكم جميعا

 

 

 

تم تعديل يوليو 14, 2017 بواسطه abuhanen10
خطأ فى حرف

[سليم حاصبيا]

58 دقائق مضت, abuhanen10 said:

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

الاساتذه الكرام

قمت بتصميم برنامج لقوائم الفصول

ولكن عندما يكون هناك طالب اسمه طويل قليلا

يظهر فى الظباعه سئ جدا

اذا ممكن كود عندما يطول الاسم يقل حجم الخط ليناسب الخليه

وشكرا لكم جميعا

 

 

 

ما هو رقم العامود حيث الاسماء

[فايز فراج]

2 ساعات مضت, سليم حاصبيا said:

ما هو رقم العامود حيث الاسماء

نفترض على سبيل المثال  .. العمود  m7  

داخل ورقة  .. إضافة أسماء الطلاب  .. 

لكن بشرط  .. أن يكون من الممكن تطبيقه على ورقة أخرى 

لأن المشكلة دى موجودة بالفعل بخصوص طول الأسماء 

الصف الأول -تجربة.rar

[سليم حاصبيا]

14 دقائق مضت, فايز فراج said:

نفترض على سبيل المثال  .. العمود  m7  

داخل ورقة  .. إضافة أسماء الطلاب  .. 

لكن بشرط  .. أن يكون من الممكن تطبيقه على ورقة أخرى 

لأن المشكلة دى موجودة بالفعل بخصوص طول الأسماء 

الصف الأول -تجربة.rar

جرب هذا الكود و ضعه في حدث الصفحة(إضافة أسماء الطلاب)

يمكن نسخه الى باقي الصقحات مع التعديل على رقم العامود المطلوب

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Column = 13 And Target.Row >= 7 And Target.Cells.Count = 1 Then
ActiveSheet.Columns("M").AutoFit
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[ياسر خليل أبو البراء]

وعليكم السلام أخي أبو حنين

[abuhanen10]

الف الف شكر لكم جميعا 

اساتذتى الكرام

واسف جداااا لتأخرى فى الرد

اكثر من حل

جعلكم الله دائما عونا لكل محتاج للعلم

[ياسر خليل أبو البراء]

أجمل حاجة فيك أبو حنين إنك مش بتحب تزعل حد

صحيح فيه حلول مختلفة بس أكيد فيه حل فيهم هو الأنسب ليك .. ونحب نعرف الأنسب (مش عشان نعرف مين أفضل .. لكن عشان يكون الموضوع مرجع للي بيقوم بعملية البحث بعد كدا)

وأخيراً مشكور على دعائك الطيب ..

وبعد كدا متتأخرش .. عشان بزعل ، وأنا زعلي وحش .. طبعاً بهزر : أنا بس أحب إن اللي يطرح موضوع يتواصل معاه لحد ما يخلص عشان الموضوع يشارك فيه الجميع بفعالية أكبر

تقبل تحياتي