请大侠指点一下

解决方案 »

  1.   

    改变字体颜色
        cells(1,1).Select
        With Selection.Font
            .Color = -16776961
            .TintAndShade = 0
        End With
    改变背景颜色
        cells(1,1).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    Excel VBA的代码都可以通过录制宏来获取 
      

  2.   

    录制宏,再excel中操作一遍,就可以得到代码了