اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

سؤالين الأول كيف يمكن تحويل المعادلة إلى كود


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

أول سؤال

أريد طريقة تحويل مجموعة معادلات إلى كود

شرح عام لمحاولة تطبيقه على ملف للتجربة

ثانى سؤال

بخصوص التنسيق الشرطى

عند تنسيق التظليل فى خلية بحيث لو بها رقم أكبر من كذا تتلون بلون كذا ولو الرقم أصغر من كذا تتلون بلون كذا

الأرقام دى بنحطها يدوى وده الطبيعى

هل يمكن أن نحدد الخلايا المرجعية التى بها الأرقام بدلاً من كتابة قيمها فى التنسيق الشرطى

زى كدة النهاية الصغرى والكبرى للمواد الدراسية فى شيت رصد الدرجات أو شيت النتيجة

أتعشم سؤالى يكون واضح

وأرجو أن أجد الرد

مشكورين على مروركم

رابط هذا التعليق
شارك

السلام عليكم

أخي يوسف

حياك الله بالسلام

بالنسبة للسؤال الثاني

بخصوص التنسيق الشرطى

حدد الخلية الأولى التي تريد عمل التنسيق الشرطي لها

من قائمة تنسيق ...تنسيق شرطي...... الداله هي:

FORMAT>>>>>CONDITIONAL FORMATING>>>>>>FORMULA IS

واكتب الدالة التالية:

=E13>$E$12

ثم قم بنسخ الدالة لكل العمود بداية من E13 و حتى آخر العمود

على فرض أن الخليةE12 هي الخلية التي بها النهاية الصغرى للمادة

أتمنى أن أكون وضحت الأمر

تحياتي

أيسم إبراهيم

تم تعديل بواسطه aysam
رابط هذا التعليق
شارك

السلام عليكم

ألف شكر أستاذ يوسف على هذا السؤال الفي المليان

ألف شكر استاذ أيسم على هذه الافادة القيمة

ألف شكر دكتور أبو تامر (( اسمح لي باضافة هذا اللقب الى اسمك أخي أبو تامر فهو أهلاً لك وأنت أهلاً له ))

جزاكم الله خيرا وزادكم من نعيمه فقد تعلمنا منكم ما لم نتعلمه من مدارسنا وجامعاتنا

اللهم أكرم بهذا المنتدى وأرفع شأنه

رابط هذا التعليق
شارك

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

الاخ m_127899

شكرا اخى هذا اكثر مما نستحق

الاخ خالد القدس

شكرا لك اخى وايضا كثيرا علينا اخى

الاخ سالم شباني

كان شعارى اخى سالم سابقا و مازال

السهولة واليسر

فى هذه الحالة التى اشرت اليها

يتم تعطيل او حذف السطر التالى ( Code_wh1_1 )

من الروتين ( Private Sub Worksheet_Change ) او حذف هذا الروتين بالكامل

الخاص بالورقة المراد التعديل عليها

وها هو الروتين الاصلى

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
Code_wh1_1
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
وها هو بعد حذف السطر المشار اليه
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

ولا تكلف نفسك بحذف كل الاكواد

فنعد تشغيل الاداة مرة اخرى

ستعمل على حذف الاكواد وانتاج الاكواد الجديدة بعد التعديل

تم تعديل بواسطه أبو تامر
رابط هذا التعليق
شارك

الأخ العزيز الغالى أبو تامر

بارك الله فيك وأرضاك

وجعل السعادة دائماً فى مرادك

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

ندعو لك بالخير يا محب الخير

الأخ العزيز أيسم

الف شكر

ربنا يزيدك علم

تم تعديل بواسطه يوسف عطا
رابط هذا التعليق
شارك

  • 5 years later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information