Excel VBA Interior.ColorIndex 色彩列表

使用如下VBA代码取得相应的单元格底色

Sub a()Sub a()

    Range("A1").Select

    For i = 0 To 56 Step 1

        ActiveCell.Interior.ColorIndex = i

        ActiveCell.Offset(0, 1).Value2 = i

        If i Mod 19 = 18 And i <> 0 Then

            ActiveCell.Offset(-18, 2).Select

        Else

            ActiveCell.Offset(1, 0).Select

        End If

    Next    

End Sub

结果如下

无色	0		19		38
	1		20		39
白色	2		21		40
	3		22		41
	4		23		42
	5		24		43
	6		25		44
	7		26		45
	8		27		46
	9		28		47
	10		29		48
	11		30		49
	12		31		50
	13		32		51
	14		33		52
	15		34		53
	16		35		54
	17		36		55
	18		37		56