他の矩形からのクリックで四角形の色を変えてください。

Question

色を制御する必要がある赤い四角形と青色のUPを10個持っています。矩形番号1は常に緑です。 UP矩形をクリックすると長方形2が緑色に変わり、UPを再度クリックすると長方形3が緑色に変わり、9回クリックするとすべての長方形が緑色になります。私が作ったコードは1ステップしか進まない。どんな助けも歓迎されます。ありがとうございました。

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