西小西|xixiaoxi.com

遇到事情要靠自己(2008-10-07 21:00)

哈哈

先小得意哈子。。。

今天西小西解决了一个大难题，在Excel2003中突破条件格式三个的限制，

成功设置了12个条件格式， 根据数值填充单元格的颜色，用的VBA，嘿嘿，其实是在录制的宏的基础上修改实现的。赞！

在逼近成功的时候有一种喜悦，好久没有这样的感觉啦，哈哈

国庆假期里，西小西还学了点VBA，学习VBA先从录制简单的宏开始。

Alt + F8 打开宏

Sub Colour()
‘把单元格内所有值为a的单元格用颜色36填充，值的颜色也为36.
    With Application.ReplaceFormat.Font
        .Subscript = False
        .ColorIndex = 36
    End With
    Application.ReplaceFormat.Interior.ColorIndex = 36
    Cells.Replace What:=”a”, Replacement:=””, LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
   
End Sub