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
