用另一个矩形的点击改变矩形的颜色excel vba

Question

我有10个红色的矩形和另一个蓝色的UP - 应该控制它们的颜色。矩形号码1始终为绿色。如果我点击向上矩形，矩形2应该改变颜色为绿色，如果我再次点击向上，矩形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

一个简单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