循环填充数字同时填充颜色

如下,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    NextEnd 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

子曰:用之则行,不用则藏。

意思是说,如果你用我的这些建议,就马上行动,知行合一,如果你不用,就赶紧收藏,以绝后患。

(0)

相关推荐