Cell Formatting

[Mahmoudhamed]

 

السلام عليكم ورحمة الله وبركاته

عندي ملف اكسل لون بعض الخلايا أصفر .. أحتاج طريقة لتلوين الخليتين العلويتين لنفس الخلية الملونة بنفس اللون .. فما هي الطريقة .

 

شكرا لمساعدتكم مقدما.

 

[أبومروان]

وعليكم السلام ورحمه الله وبركاته

ممكن تستخدم الكود التالي لعله المطلوب

Sub ColorCellsAboveYellow()
    Dim ws As Worksheet
    Dim cell As Range
    Dim targetColor As Long
    Dim i As Integer

    Set ws = ThisWorkbook.Sheets("Sheet1")

    
    targetColor = RGB(255, 255, 0)

 
    For Each cell In ws.UsedRange
        If cell.Interior.Color = targetColor Then
            
            For i = 1 To 2
                If cell.Row - i > 0 Then
                    ws.Cells(cell.Row - i, cell.Column).Interior.Color = targetColor
                End If
            Next i
        End If
    Next cell
End Sub

 

Book1.xlsm

[Mahmoudhamed]

نفع الله بك ، شكرا لك على ردك المتميز .. هذا ما كنت أحتاجه💞