المطلوب كود تلوين نطاق خلايا معينة

[mohmod zedan]

المطلوب كود تلوين نطاق خلايا معينة  باللون الاصفر حتى الخط باللون الاصفر اذا كانت  مودجودة داخل اللخلية كلمة اصفر -  باللون الازرق حتى الخط باللون الازرق اذا كانت  مودجودة داخل اللخلية كلمة الازرق

باللون الاحمرحتى الخط باللون الاحمر اذا كانت  مودجودة داخل اللخلية كلمة الاحمر-باللون الاخضرحتى الخط باللون الاخضراذا كانت  مودجودة داخل اللخلية كلمة الاخضر

 

 

تلوين.xlsx

[محمد هشام.]

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 بواسطه محمد هشام.

[mohmod zedan]

شكرا أخي الغالي والله مبدع وفنان