[已解决]关于excel单元格中字体默认的颜色问题

969341591

根据单元格内部字体的颜色填充相应的背景色,如红色字体填充红色的背景色,蓝色字体填充蓝色.但如果是excel字体的l默认颜色(A1:E1为默认颜色)则不能进行想要的相同颜色的填充.郁闷请求帮助(已上传附件).代码如下:
Sub aa()
   Dim x As Integer, y As Integer
   For x = 1 To 4
      For y = 1 To 5
         Cells(x, y).Interior.ColorIndex = Cells(x, y).Font.ColorIndex
      Next y
   Next x
End Sub
用msgbox 返回字体的默认颜色得到的值是-4105,不知是怎么回事,excel字体的默认颜色到底是什么颜色?
代码:
Sub bb()
   For x = 1 To 4
      MsgBox Cells(x, 1).Interior.ColorIndex
   Next x
End Sub

最佳答案

月排行榜 / 总排行榜

sgxb123431380

2013-10-23 08:14

969341591 发表于 2013-10-22 19:41
我想问:用msgbox 返回字体的默认颜色得到的值是-4105,不知是怎么回事,excel字体的默认颜色到底是什么颜色 ...

默认字体就是黑色，不过黑色在系统里也分很多种，但是大致都是同样的效果，而且字体的默认颜色和单元格的默认底色是不一样的，所以你就按照我写的那样如果字体是默认颜色单元格变成黑色就好了

跳转到最佳答案楼层

sgxb123431380

Sub aa()
   Dim x As Integer, y As Integer
   For x = 1 To 4
      For y = 1 To 5
            If Cells(x, y).Font.ColorIndex = -4105 Then
                Cells(x, y).Interior.ColorIndex = 1
            Else
                Cells(x, y).Interior.ColorIndex = Cells(x, y).Font.ColorIndex
            End If
      Next y
   Next x
End Sub

969341591

sgxb123431380 发表于 2013-10-22 12:38
Sub aa()
   Dim x As Integer, y As Integer
   For x = 1 To 4

我想问:用msgbox 返回字体的默认颜色得到的值是-4105,不知是怎么回事,excel字体的默认颜色到底是什么颜色?

sgxb123431380

969341591 发表于 2013-10-22 19:41
我想问:用msgbox 返回字体的默认颜色得到的值是-4105,不知是怎么回事,excel字体的默认颜色到底是什么颜色 ...

默认字体就是黑色，不过黑色在系统里也分很多种，但是大致都是同样的效果，而且字体的默认颜色和单元格的默认底色是不一样的，所以你就按照我写的那样如果字体是默认颜色单元格变成黑色就好了