1、画图--随便画个方块
2、在方块上右键==》指定宏
3、以后每次运行宏的话 请左键点击此方块
ps：随让不是很简便，但是比点运行要强，另附不知下面的宏有用没。
Sub one()
'PS:请在A1，B1，C1三个单元格中输入三个颜色的数字（0—255），此宏可给出256种接近的颜色。
Dim A, B, C
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
For i = 0 To 255
A = (Cells(1, 1) + i) Mod 256
B = (Cells(1, 2) + i) Mod 256
C = (Cells(1, 3) + i) Mod 256
Cells(i + 2, 1) = A
Cells(i + 2, 2) = B
Cells(i + 2, 3) = C
Cells(i + 2, 4).Interior.Color = RGB(A, 0, 0)
Cells(i + 2, 5).Interior.Color = RGB(0, B, 0)
Cells(i + 2, 6).Interior.Color = RGB(0, 0, C)
Cells(i + 2, 7).Interior.Color = RGB(A, B, C)
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024