[已解决]宏录制颜色

llplj

问个问题为什么我在用宏录制颜色是 ，看到的颜色代码这么大啊 请参见代码

Sub 宏1()
'
' 宏1 宏
'
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

最佳答案

月排行榜 / 总排行榜

wangyi860214

2012-8-16 11:19

2010版本的OFFICE录制颜色数字大
Sub a()
With Selection.Interior
     .Color=65535
end wth
end a
2003版本录制的标准颜色是1-56
Sub Macro1()
    Range("A1").Select
    With Selection.Interior
        .ColorIndex = 6
    End With
End Sub

跳转到最佳答案楼层

wangyi860214

2010版本的OFFICE录制颜色数字大
Sub a()
With Selection.Interior
     .Color=65535
end wth
end a
2003版本录制的标准颜色是1-56
Sub Macro1()
    Range("A1").Select
    With Selection.Interior
        .ColorIndex = 6
    End With
End Sub

llplj

你这个也不对啊 黄色的代码不是这个吧 我想知道怎么录制才能得到正确的颜色代码

gdsgzhrsh

Range("A1").Interior.ColorIndex = 6
这个是黄色

梅一枝

Sub 颜色()
    Dim i As Integer
        For i = 2 To 57
        Range("A" & i) = i - 1
        Range("b" & i).Interior.ColorIndex = i - 1
    Next i
End Sub
可以查颜色代码。你试试

llplj

不好意思 我可能没说清楚我的问题 我的问题是我录制宏的时候应该得到的color的代码应该是在56之内的啊 为什么会有6万多啊

gdsgzhrsh

llplj 发表于 2012-8-16 11:41
不好意思 我可能没说清楚我的问题 我的问题是我录制宏的时候应该得到的color的代码应该是在56之内的啊 为什 ...

color 应该是与系统的颜色有关

lucking551

是不是颜色没选准????