Object required .Interior.Color

Question

나는 vba 멍청한 놈이다. 그래서 나에게 쉽게 가야한다. 나는 녹색으로 일치하면 배열을 반복하고 범위 배경색을 대체하려고한다.

그러나 내 코드에서 개체 오류가 발생했습니다.이 문제가 발생하는 이유는 무엇인지 알아 내려고했기 때문에 interior.color를 사용할 때 개체 참조가 있어야하지만 사용하지는 않았 음을 알고 있습니다. set loop_target = loop_over.interior.color 정확히 이거? 나는 단순히

Sub change_color() 

Dim loop_over As Variant 
Dim loop_target As Range 
Dim i As Long 
Dim j As Long 
Dim color_range As Long 

loop_over = Range("B4:L22") 

For i = 1 To UBound(loop_over, 1) 
    For j = 1 To UBound(loop_over, 2) 
     Set loop_target = loop_over.Interior.Color 
' If statement here -> If interior.color = green Then 
' new interior.color = red or something 


    Next j 
Next i 

End Sub 

Answer 1

Sub change_color() 

Dim c as Range, rng As Range, clr as long 

Set rng = ActiveSheet.Range("B4:L22") 

    For i = 1 To rng.Rows.Count 
     For j = 1 To rng.Columns.Count 
      clr = rng.Cells(i,j).Interior.Color 
      If clr = vbGreen Then 
       rng.Cells(i,j).Interior.Color = vbRed 
      End If 
     Next j 
    Next i 

End Sub 

Answer 2

당신은 당신의 범위에 For Each Cell를 사용하여 간단하게하고 당신은 범위를 설정하는 Cell.Interior.Color

Sub change_color()  
Set MyRng = Range("B4:L22") 
    For Each Cell In MyRng.Cells 
    Debug.Print Cell.Interior.Color & "-" & Cell.Value 
    If (Cell.Interior.Color = 456752) Then Cell.Interior.Color = 1234567 
    Next Cell 

End Sub