السلام عليكم
Public Sub Rng_Cn()
' D' المدى حسب ملفك العمود
' غيره حسب العمود المراد تطبيق الشروط عليه
Frmt_Cnd "D:D"
End Sub
Private Function Frmt_Cnd(Rn As String) As Variant
Range(Rn).Select
On Error Resume Next
With Range(Rn)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""جديد"""
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1)
.Interior.Color = RGB(253, 233, 217)
End With
'
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""مستعمل"""
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1)
.Interior.Color = RGB(250, 191, 143)
End With
'
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""وارد"""
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1)
.Interior.Color = RGB(196, 215, 155)
End With
'
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""صادر"""
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1)
.Interior.Color = RGB(149, 179, 215)
End With
On Error GoTo 0
End With
End Function