有关EXCEL中COLOR index 的研究.

p123456789

非常棒,

daina1009

谢谢楼主分享

wangym

谢谢搂住分享

liyan12325

不知道对挖坟有没有惩罚   不过东西确实不错  谢谢

andysky

精减一下代码

Sub Main()
    Dim rng As Range, i As Long
    On Error Resume Next
    ActiveCell.Resize(7, 8) = [{1,53,52,51,49,11,55,56;9,46,12,10,14,5,47,16;3,45,43,50,42,41,13,48;7,44,6,4,8,33,54,15;38,40,36,35,34,37,39,2;17,18,19,20,21,22,23,24;25,26,27,28,29,30,31,32}]
    ActiveCell.Offset(9, 0).Resize(7, 8) = ActiveCell.Resize(7, 8).Value:  ActiveCell.Offset(9, 0) = "ColorIndex "
    For Each rng In ActiveCell.Resize(7, 8)
        rng.Interior.ColorIndex = rng: i = rng.Interior.Color
        With rng.Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
            .InputMessage = i Mod 256 & "," & Int((i - (Int(i / 65536) * 65536)) / 256) & "," & Int(i / 65536)
        End With
    Next rng
    ActiveCell.Resize(7, 8) = ""
End Sub

[ 本帖最后由 andysky 于 2009-11-9 14:32 编辑 ]

科科

没弄明白

mausser

真的非常方便了

枫桥夜泊lwb

呵呵顶一下

soc66

谢谢分享。学习，学习。研究，研究。

yaozong

好用,谢谢分享