[sm44ms]

On Error Resume Next

' تبديل الألوان لحقل TT
If [TT] = "استقالة" Then
If [TT].ForeColor = vbRed Then
[TT].ForeColor = vbBlack
[TT].BackColor = vbBlack
Else
[TT].ForeColor = vbRed
[TT].BackColor = vbBlack
End If
Else
[TT].ForeColor = vbBlack
[TT].BackColor = vbWhite
End If

' تبديل الألوان لحقل pp
If [pp] = "قيمة معينة" Then ' قم بتغيير "قيمة معينة" إلى القيمة التي تريد
If [pp].ForeColor = vbRed Then
[pp].ForeColor = vbBlack
[pp].BackColor = vbBlack
Else
[pp].ForeColor = vbRed
[pp].BackColor = vbBlack
End If
Else
[pp].ForeColor = vbBlack
[pp].BackColor = vbWhite
End If

اشكرك ضبط معي هذا الكود