如下,Excel中可以使用填充,输入一系列数字。
使用VBA也可以达到如下效果。
下面的一段代码可以实现在A列填充1到56
同时在B列填充颜色。
Private Sub CommandButton1_Click() For i = 1 To 56 Cells(i, 1) = i Cells(i, 2).Interior.ColorIndex = iNextEnd 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 Nextaa: MsgBox "出错了,当前编号是" & iEnd Sub
可以看出,57就出错了,最多支持56
子曰:用之则行,不用则藏。
意思是说,如果你用我的这些建议,就马上行动,知行合一,如果你不用,就赶紧收藏,以绝后患。
领取专属 10元无门槛券
私享最新 技术干货