سـامي 169 قام بنشر يوليو 15, 2015 قام بنشر يوليو 15, 2015 تنسيق شرطي بالكود من المبدع اسلام رجب اذا تغير الرقم يتغير اللون في عده صفحات كما تريد 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
عبد العزيز البسكري قام بنشر يوليو 16, 2015 قام بنشر يوليو 16, 2015 بارك الله فيكما و زادها بميزان حسناتكما
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.