落花22 发表于 2017-11-11 22:00:47

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

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

zzyong00 发表于 2017-11-11 23:09:30

excel?
支持

renhaitao_nice 发表于 2017-11-12 16:17:12

不能直接使用到Excel中去吧

落花22 发表于 2017-11-12 18:27:11

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

可以啊。进入excel，快捷键ALT+F11。
插入一个模块，把程序粘进去，按F5运行即可。
页: [1]
查看完整版本: 编一个小小的程序练练手（刚学几天）