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

[سـامي 169]

تنسيق شرطي بالكود

من المبدع اسلام رجب

اذا تغير الرقم يتغير اللون في عده صفحات كما تريد

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

[قصي]

 

جزاكما الله كل خير

[عبد العزيز البسكري]

بارك الله فيكما و زادها بميزان حسناتكما