(تمت الاجابة) عمل تنسيق شرطي لمجموعة اعمدة عند مصادفة يوم الجمعة

[دكتور الحب]

مساء الخير على الجميع

اريد مساعدتكم بعمل تنسيق شرطي للعامود عند مصادفة التاريخ يوم الجمعة

ملاحظة نجحت معي اذا قمت بكتابته يدويا لكن اريده ان يعتمد على التاريخ المذكور

مرفقا مثال ليكون اسهل

تنسيق شرطي.zip

[الـعيدروس]

السلام عليكم

جرب هذا الكود

في حدث ThisworkbooK

Private Sub Workbook_Open()

Sheets(1).Select

Dim A As String

AA = Format(Now(), "[$-1170000]ddd;@")

If Not AA = "الجمعة" Then

Else

For C = 1 To 32

A = Cells(2, C).Text

If A = AA Then

Range(Cells(1, C), Cells(30, C)).Interior.Color = RGB(166, 166, 166)

End If

Next

End If

End Sub

تم تعديل مايو 2, 2012 بواسطه alidroos

[عبدالله باقشير]

السلام عليكم

الشكر واصل لاخي ابو انصار

استخدم المعادلة التالية في التنسيق الشرطي

=TEXT(A1;"[$-1060000]B2dddd;@")="الجمعة"

ان شاء الله تعمل معاك

ودمتم

[أبو أنس حاجب]

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

ما شاء الله تمكن وأبداع من أساتذة أفذاذ

حفظكم الله من كل شر

أبو أنس

[دكتور الحب]

أستاذ أبو نصار ألف شكر لك لكن لم يعمل الكود معي

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

تنسيق شرطي.zip

[عبدالله المجرب]

السلام عليكم

انا جربت الملف واللون الازرق تم على خلايا يوم الجمعة

[طارق محمود]

السلام عليكم

بعد إذن الأساتذة الأفاضل

ممكن استخدام المعادلة التالية في التنسيق الشرطي

=WEEKDAY(A$1)=6

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

تنسيق شرطي.rar

[دكتور الحب]

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

تمنياتي لك بيوم سعيد

تم تعديل مايو 3, 2012 بواسطه دكتور الحب