编一个小小的程序练练手（刚学几天）

落花22

Sub test()
Dim x As Integer
For x = 1 To 56
Cells(x, 1).Font.ColorIndex = x
Next
End Sub

zzyong00

excel?
支持

renhaitao_nice

不能直接使用到Excel中去吧

落花22

renhaitao_nice 发表于 2017-11-12 16:17
不能直接使用到Excel中去吧

可以啊。进入excel，快捷键ALT+F11。
插入一个模块，把程序粘进去，按F5运行即可。