实用VBA小脚本

设置单元格背景色

Sub sbPrintColorIndexColors()
Dim iCntr
For iCntr = 1 To 56
Cells(iCntr, 1).Interior.ColorIndex = iCntr
Cells(iCntr, 1) = iCntr
Next iCntr
End Sub
本站公众号
   欢迎关注本站公众号,获取更多程序园信息
开发小院