首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

通过宏改变excel一行的字体颜色解决办法

2012-03-07 
通过宏改变excel一行的字体颜色主要问题是我如果把这行改为黑色背景,那一定要把原先的黑色字体该为白色,改

通过宏改变excel一行的字体颜色
主要问题是我如果把这行改为黑色背景,那一定要把原先的黑色字体该为白色,改背景色已经参考过了,但是该字体不行,大家帮我改改代码

Sub   color()
Dim   index   As   Integer  
        Dim   strRange   As   String  
            For   index   =   1   To   10000
                strRange   =   "E "   +   CStr(index)  
                srtIndex   =   CStr(index)   +   ": "   +   CStr(index)
                If   (Range(strRange).Value   =   "1 ")   Then
                        Rows(srtIndex).Select
                        With   Selection.Interior
                                .ColorIndex   =   1       '1为黑色
                                .Pattern   =   xlSolid
                    End   With
                End   If
        Next
End   Sub
这个代码每问题,但是不知如何改变字体颜色


[解决办法]
Selection.Font.ColorIndex = 2

热点排行