mohmod zedan قام بنشر ديسمبر 22, 2023 مشاركة قام بنشر ديسمبر 22, 2023 المطلوب كود تلوين نطاق خلايا معينة باللون الاصفر حتى الخط باللون الاصفر اذا كانت مودجودة داخل اللخلية كلمة اصفر - باللون الازرق حتى الخط باللون الازرق اذا كانت مودجودة داخل اللخلية كلمة الازرق باللون الاحمرحتى الخط باللون الاحمر اذا كانت مودجودة داخل اللخلية كلمة الاحمر-باللون الاخضرحتى الخط باللون الاخضراذا كانت مودجودة داخل اللخلية كلمة الاخضر تلوين.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر ديسمبر 22, 2023 أفضل إجابة مشاركة قام بنشر ديسمبر 22, 2023 (معدل) Option Explicit Public Sub ColourChange() Dim Clé As Range For Each Clé In ActiveWorkbook.ActiveSheet.Range("C5:N400") Application.ScreenUpdating = False If Not IsError(Clé) Then With Clé .Interior.ColorIndex = xlColorIndexNone Select Case .Value2 Case "اخضر" .Interior.Color = RGB(0, 204, 0): .Font.Color = RGB(0, 204, 0) Case "ازرق" .Interior.Color = RGB(0, 0, 255): .Font.Color = RGB(0, 0, 255) Case "اصفر" .Interior.Color = RGB(255, 255, 0): .Font.Color = RGB(255, 255, 0) Case "احمر" .Interior.Color = RGB(255, 0, 0): .Font.Color = RGB(255, 0, 0) End Select End With End If Next Application.ScreenUpdating = True End Sub تلوين.xlsm تم تعديل ديسمبر 22, 2023 بواسطه محمد هشام. 3 1 رابط هذا التعليق شارك More sharing options...
mohmod zedan قام بنشر ديسمبر 22, 2023 الكاتب مشاركة قام بنشر ديسمبر 22, 2023 شكرا أخي الغالي والله مبدع وفنان رابط هذا التعليق شارك More sharing options...
الردود الموصى بها