Office中国论坛/Access中国论坛

标题: [求助]通过宏改变excel一行的字体颜色 [打印本页]

作者: cake_super 时间: 2007-2-28 01:06
标题: [求助]通过宏改变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

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

作者: qqmbs 时间: 2007-2-28 18:48
发那么深奥的东西出来,谁回答得了呀,

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