循环填充数字同时填充颜色
如下,Excel中可以使用填充,输入一系列数字。
使用VBA也可以达到如下效果。
下面的一段代码可以实现在A列填充1到56
同时在B列填充颜色。
Private Sub CommandButton1_Click()
For i = 1 To 56
Cells(i, 1) = i
Cells(i, 2).Interior.ColorIndex = i
Next
End Sub
Cell(i,1)指的是第1列第i行,而i从1到56循环。
Cell(i,2)指的是第2列第i行,而i从1到56循环,Interior.colorindex就是单元格填充颜色,用56种颜色的一种颜色进行填充,其中录制一个宏填充单元格颜色,即可以查出此段代码。
而colorindex这个颜色编号最多运行多少个颜色呢?
如果不知道,可以写一段代码,出错时显示当前i的编号,即可以显示最大的值。
如下代码,使用on error goto aa,如果出错跳转到aa对应的代码。显示当前出错时的编号。
Private Sub CommandButton1_Click()
On Error GoTo aa
For i = 1 To 999
Cells(i, 1) = i
Cells(i, 2).Interior.ColorIndex = i
Next
aa:
MsgBox "出错了,当前编号是" & i
End Sub
可以看出,57就出错了,最多支持56
子曰:用之则行,不用则藏。
意思是说,如果你用我的这些建议,就马上行动,知行合一,如果你不用,就赶紧收藏,以绝后患。
赞 (0)