직사각형의 색상을 다른 직사각형의 클릭으로 변경하십시오.

Question

색상을 제어해야하는 빨간색 직사각형 10 개와 파란색 1 개 - UP가 있습니다. 사각형 번호 1은 항상 녹색입니다. UP 사각형을 클릭하면 사각형 2의 색이 녹색으로 바뀌고 UP을 다시 클릭하면 사각형 3의 색이 녹색으로 변경되고 9 번 클릭하면 모든 사각형이 녹색이됩니다. 내가 만든 코드는 단지 한 걸음 만 간다. 어떤 도움을 환영합니다. 고맙습니다.

public i as long 
Sub test() 
Dim x As Long, y As Long 
i = 2 
    ActiveSheet.Shapes.Range(Array("Rectangle " & i)).Select 
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 240, 0) 
i = i + 1 

    Debug.Print i 

End Sub 

Answer 1

A는 단순히 For Loop는 일을 할 것입니다.

Sub test() 
    Dim sh As Shape 
    Dim i As Long 
    For i = 2 To 10 
     On Error Resume Next 
     Set sh = ActiveSheet.Shapes("Rectangle " & i) 
     On Error GoTo 0 

     If Not sh Is Nothing Then 
      If sh.Fill.ForeColor.RGB <> RGB(0, 240, 0) Then 
       sh.Fill.ForeColor.RGB = RGB(0, 240, 0) 
       Exit For 
      End If 
     End If 
    Next 
End Sub 

Sub Test2() 
    Dim sh As Shape 
    Dim v As Variant 

    For Each v In Array("Rectangle 2", "Rectangle 3", "Rectangle 4", "Rectangle 5", "Rectangle 6", "Rectangle 7", "Rectangle 8", "Rectangle 9", "Rectangle 10") 
     On Error Resume Next 
     Set sh = ActiveSheet.Shapes(v) 
     On Error GoTo 0 

     If Not sh Is Nothing Then 
      If sh.Fill.ForeColor.RGB <> RGB(0, 240, 0) Then 
       sh.Fill.ForeColor.RGB = RGB(0, 240, 0) 
       Exit For 
      End If 
     End If 
    Next 
End Sub