excel生成色卡

Sub 生成色卡()

Dim hh, ii, jj, kk As Integer

For hh = 0 To 1

        For ii = 0 To 2

                For jj = 0 To 5

                        For kk = 0 To 5

                                Cells(hh * 6 + kk + 1, jj + ii * 6 + 1).Interior.Color = RGB(hh * 153 + ii * 51, jj * 51, kk * 51)

                        Next kk

                Next jj

        Next ii

Next hh

End Sub