تظليل تاريخ الاجازة

[الطـاير]

السلام عليكم 

اخواني عندي جدل اجازات الموظفين 

وكل ما اريده هو تظليل الخلايا التي تقع بين التاريخين 

وجزاكم الله خير 
 

m.rar

تم تعديل مايو 24, 2015 بواسطه الطـاير

[علاء رسلان]

السلام عليكم

المرفق مساعدة فى الحل  ليس هو الحل الأمثل .

M.rar

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

 جرب هذا الشيء

m.rar

[الطـاير]

جزاكم الله خير اخواني 

علاء رسلان

 

سليم حاصبيا

 

على مساعدتكم ، طريقة التنسيق الشرطي تتطلب عمل كبير جدا يعني لو عندي 700 موظف اضطر اعمل 700 شرط في التنسيق الشرطي 

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

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

الأخ الفاضل الطاير

إليك حل الأستاذ الكبير سليم مع حذف التنسيق الشرطي الغير مطلوب ..

ولن يكون هناك إرهاق في حالة زيادة عدد الموظفين ..فقط ستغير نطاق Applies to في التنسيق الشرطي

طبق على الملف الأصلي وشوف النتائج

Highlight Vacation Periods.rar

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

الأخ الكريم الطاير

إذا لم يكن يعجبك الحل بالتنسيق الشرطي (رغم أنه أفضل في هذه الحالة) إليك الحل بالأكواد عله ينال إعجابك

Sub HighlightBetweenTwoDates()
'يقوم الكود بتظليل الخلايا طبقاً لتاريخين : تاريخ بداية وتاريخ نهاية
'------------------------------------
    Dim R As Range
'إعلان المتغير من النوع ثابت ليمثل بداية التاريخ المراد التعامل معه
    Const myDate As Date = #6/1/2015#
'بدء التعامل مع النطاق المستخدم بدايةً من الصف الخامس لنهاية الصفوف المستخدمة
    With Intersect(ActiveSheet.UsedRange, Rows("5:" & Rows.Count))
'إزالة خلفية الألوان بدايةً من العمود السابع وحتى آخر عمود في النطاق المستخدم
        .Columns("G").Resize(, .Columns.Count).Interior.ColorIndex = xlNone
'حلقة تكرارية لكل خلية من خلايا العمود الخامس
        For Each R In .Columns("E").Cells
'إذا كانت الخلية داخل الحلقة التكرارية عبارة عن تاريخ وكذلك الخلية المجاورة لها في العمود السادس
            If (IsDate(R.Value)) * (IsDate(R(, 2).Value)) Then
'R(, DateDiff("D", myDate, R.Value) + 3)
'يمثل هذا الجزء بداية النطاق المراد تظليله ، ويتم حساب فرق الأيام بين تاريخ الخلية والتاريخ الثابت مضافاً إليه 3 ليبدأ من العمود السابع
'Resize(, DateDiff("D", R.Value, R(, 2).Value) + 1)
'يمثل هذا الجزء الامتداد لنقطة البداية بحساب فرق الأيام بين التاريخ في العمود السادس والتاريخ في العمود الخامس
                R(, DateDiff("D", myDate, R.Value) + 3).Resize(, DateDiff("D", R.Value, R(, 2).Value) + 1).Interior.ColorIndex = 14
            Else
'سطر للخروج من الحلقة التكرارية
                Exit For
            End If
'الانتقال للخلية التالية في العمود الخامس
        Next
    End With
End Sub

تقبل تحياتي

Highlight Vacation Periods.rar

[الطـاير]

جزاك الله اخي الحبيب 

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

 

بالفعل مثال الاستاذ سليم حاصبيا ظبط معايا بعد عدة محاولات ووفى بالغرض ولله الحمد 

 

جزاكم الله خير جميعا اخواني الاحباب

علاء رسلان

 

سليم حاصبيا

 

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

 

 

وجعلها الله في ميزان حسناتكم 

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

الأخ الفاضل الطاير

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

بالنسبة للتنسيق الشرطي فيه مشكلة إن لو كانت فترة الأجازة يوم واحد سيتم تلوين خليتين معاً (وجب التنبيه)

 

تقبلوا تحياتي

[الطـاير]

الأخ الفاضل الطاير

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

بالنسبة للتنسيق الشرطي فيه مشكلة إن لو كانت فترة الأجازة يوم واحد سيتم تلوين خليتين معاً (وجب التنبيه)

 

تقبلوا تحياتي

تسلم يا ابو البراء 

الحمد تمت على خير والتظليل شغال على خليه واحدة في حال الاجازة يوم ولله الحمد 

 

لكن باقي عندي شي تاني وهي مشاركة الملف على الشبكة 

 

وطبعا الموظفين لهم اقسام مختلفة المطلوب : فتح كل قسم يشوف موظفينه فقط ولا يرا باقي الموظفين 

 

تنفع في الاكسيل الطريقة دي ولا لأ 

 

وجزاك الله خير 

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

 

باقي عندي شي تاني وهي مشاركة الملف على الشبكة 

 

وطبعا الموظفين لهم اقسام مختلفة المطلوب : فتح كل قسم يشوف موظفينه فقط ولا يرا باقي الموظفين 

 

تنفع في الاكسيل الطريقة دي ولا لأ

اطرح طلبك الجديد في موضوع مستقل ليساعدك الأخوة الأعضاء

تقبل تحياتي

[الطـاير]

جزاك الله خير يا استاذ ياسر