[已解决]录制了一段程序有点不懂

fcyxiaoyuer

选中单元格 变红再变黑

1. Range("A1:B6").Select
   
2.     With Selection.Font
   
3.         .Color = -16776961
   
4.         .TintAndShade = 0
   
5.     End With
   
6.     With Selection.Font
   
7.         .ColorIndex = xlAutomatic
   
8.         .TintAndShade = 0
   
9.     End With

复制代码

为什么我自己做宏设置 range("A1:B6").colorindex=xlautomatic
却没有用了呢

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-5-16 11:45

背景色 range("A1:B6").interior.colorindex=3　（3是红色，改变数字改变颜色）
字体颜色range("A1:B6").font.colorindex=3 （3是红色，改变数字，改变颜色）

跳转到最佳答案楼层

ligh1298

背景色 range("A1:B6").interior.colorindex=3　（3是红色，改变数字改变颜色）
字体颜色range("A1:B6").font.colorindex=3 （3是红色，改变数字，改变颜色）

那么的帅

range("A1:B6").Font.colorindex=xlautomatic

少了 FONT

ligh1298

例如：
Sub 背景与字体颜色()
Range("A1:B6").Interior.ColorIndex = 33
Range("A1:B6").Font.ColorIndex = 5
End Sub

fcyxiaoyuer

那录制出来的宏为什么那么奇怪呢
没有问题喽  谢谢各位