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

علي السحيب

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    991

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

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

    Conditional Formatting

    في منتدى الاكسيل Excel

    قام بنشر

    أتمنى أن أكون قد توصلت إلى ما تريد،

    Private Sub Worksheet_Change(ByVal Target As Range)

TC = Target.Column
TR = Target.Row

If TC > 1 And TC < 7 And TR < 5 Then

If Target > Cells(TR, 1) Then
Target.Interior.ColorIndex = xlNone
Target.Font.ColorIndex = 10

ElseIf Target < Cells(TR, 1) Then
Target.Interior.ColorIndex = 34
Target.Font.ColorIndex = 3

ElseIf Target > Cells(TR, TC - 1) Then
Target.Interior.ColorIndex = 19
Target.Font.ColorIndex = 10

ElseIf Target < Cells(TR, TC - 1) Then
Target.Interior.ColorIndex = xlNone
Target.Font.ColorIndex = 3

End If
End If
End Sub

    شاهد المرفق،

    Conditional_Formatting.rar

    التحكم في أوراق العمل وخصائصها عن طريق الكود

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه علي السحيب

    لو افترضنا ان هذه الورقه تمثل حسابات كانون الثاني , هل من الممكن عند ادراج ورقه جديده ان يكون اسمها ( شباط) تلقائيا وعند ادراج ثالثه اسمها (اذار)

    شاهد المرفق،

    ___________________________.rar

    هل يمكن عمل شرط فى قائمة التحقق من الصحة

    في منتدى الاكسيل Excel

    قام بنشر

    طريقة الإنشاء تكون كالتالي:

    1- إنشاء القوام المطلوبة ووضع عنوان لكل قائمة مكون من كلمة أو أكثر حسب الرغبة. (كما في العمودين B و C) من المرفق الموجود في مشاركتي السابقة.

    2- اختيار بيانات القائمة الأولى (البيانات فقط دون العنوان) ثم الذهاب إلى القائمة إدراج ثم اسم ثم تعريف .. ويتم هناك وضع اسم تعريف للقائمة ويكون نفس العنوان الرئيسي للقائمة التي تم اختيارها .. مع ملاحظة إضافة شرطة سفلية كهذه _ بين الكلمات عندما يكون الاسم مكون من أكثر من كلمة .. ثم الضغط على موافق.

    3- تطبيق نفس الخطوات بالنسبة لبقية القوائم.

    4- اختيار أي خلية لوضع قائمة بأسماء القوائم الرئيسية داخلها ثم الذهاب إلى القائمة بيانات ثم التحقق من الصحة ثم قائمة ثم اختيار عناوين القوائم الرئيسية كمصدر بيانات للقائمة الجديدة. (كما في الخلية (E6) من المرفق الموجود في مشاركتي السابقة.

    5- اختيار خلية أخرى ليتم إنشاء قائمة تضاف إليها البيانات حسب ما يتم اختياره من الخلية السابقة (E6) .. ثم الذهاب إلى القائمة بيانات ثم التحقق من الصحة ثم قائمة ثم كتابة الصيغة التالية بها .. مع مراعاة أن (E6) في الصيغة تمثل الخلية التي تحتوي على القائمة المشتملة عناوين القوائم الرئيسية:

    الصيغة التالية تستخدم إذا كانت أسماء القوام الرئيسية مكونه من كلمة واحدة فقط:

    =INDIRECT(E6)
    أما هذه الصيغة فتستخدم إذا كانت أسماء القوائم الرئيسية مكونه من أكثر من كلمة: 
    =INDIRECT(SUBSTITUTE(E6," ","_"))
    وإذا رغبت يمكنك وضع الكود التالي في الموديول الخاص بالصفحة المعنية .. وهو يعمل على إضافة جملة معينة بعد إختيار قائمة جديدة: 
    Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$6" Then [G6] = "أختر المدينة من القائمة"
End Sub

    آمل أن يكون الشرح واضحاً،

×
×
  • اضف...

Important Information

  I accept