[求助]怎么解决?谢谢!!!!

linghuwc

怎么解决?谢谢!!!!

方漠

Try below code:

Sub Fillcolor()
Dim I As Byte
For I = 3 To 26
If Sheets("Sheet2").Range("I" & I) = "是" Then
    ActiveSheet.Shapes("Oval " & Sheets("Sheet2").Range("a" & I).Value).Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 50
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
Else
    ActiveSheet.Shapes("Oval " & Sheets("Sheet2").Range("a" & I).Value).Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
End If
Next I
End Sub

linghuwc

谢谢方漠!

可我该加在哪里呢?