[求助]通过宏改变excel一行的字体颜色

cake_super

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

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


这个代码每问题，但是不知如何改变字体颜色

qqmbs

发那么深奥的东西出来,谁回答得了呀,