根据单元格内部字体的颜色填充相应的背景色,如红色字体填充红色的背景色,蓝色字体填充蓝色.但如果是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
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