وضع قيمة بالخلايا بناءً على تنسيق شرطى

[يوسف السيد]

السلام عليكم:
فى المرفق يوجد تنسيق شرطى لتلوين ايام الجمعة فى الشهور المختلفة ويتم تحديد الشهر عن طريق الخلايا a1 والسنةa2

وجدير بالذكر ان معادلة التنسيق الشرطى بالاعلى من ابداعات الاستاذ عبدالله باقشير
ما اطلبة من الاخوة والزملاء بالمنتدى هو وضع "ج" فى الخلايا التى يتم تلوينها عن طريق التنسيق الشرطى

قيمة بواسطة تنسيق شرطى.rar

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

السلام عليكم

 

استخدم الكود التالي في حدث الورقة

وهو عند تغيير الشهر في الخلية A1 يتم تشغيل الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Target.Address = Range("A1").Address Then
    For Each Cel In Range("H1:BQ1")
        If Weekday(Cel.Value) = 6 Then
            Range(Cells(3, Cel.Column), Cells(252, Cel.Column)).Resize(, 2).Value = "ج"
        End If
    Next
End If
End Sub

تحياتي

قيمة بواسطة تنسيق شرطى.rar

[يوسف السيد]

ابداعاتك لا تنتهى 
اسال الله العلى القدير رب العرش العظيم ان يغفر لك ويرزقك من العلم حتى ترضى