تنسيق شرطي بالكود
من المبدع اسلام رجب
اذا تغير الرقم يتغير اللون في عده صفحات كما تريد
Private Sub Worksheet_Change(ByVal Target As Range)
x = [m1].Value
If x > 56 Then
MsgBox ("يرجى التأكد من الرقم")
Else
Sheets(1).Range("a1:BM50").Interior.ColorIndex = x + 42
Sheets(2).Range("a1:BM50").Interior.ColorIndex = x + 32
Sheets(3).Range("a1:BM50").Interior.ColorIndex = x + 32
Sheets(5).Range("a1:BM50").Interior.ColorIndex = x + 32
End If
End Sub
المرفق
تنسيق شرطي.rar