Office中国论坛/Access中国论坛

标题: [求助]怎么解决?谢谢!!!! [打印本页]

---

作者: linghuwc    时间: 2007-1-10 03:29
标题: [求助]怎么解决?谢谢!!!!
怎么解决?谢谢!!!![attach]22552[/attach]

---

作者: 方漠    时间: 2007-1-10 05:31
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    时间: 2007-1-10 07:29
谢谢方漠!

可我该加在哪里呢?

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3