动态范围

下面我们将看看Excel VBA中的一个程序，该程序为动态范围的最大值着色。

情况：

每次添加数字并单击命令按钮时，我们都希望Excel VBA为这些数字的最大值着色。

在您的工作表上放置一个命令按钮，并添加以下代码行：

1.首先，我们声明一个变量和两个Range对象。类型为Double的一个变量称为最大。我们将Range对象称为rng和cell。

2.我们添加了将所有单元格的背景色更改为“无填充”的行。

3.我们用数字初始化rng。为此，我们使用CurrentRegion属性。当我们事先不知道范围的确切边界时，CurrentRegion很有用。

4.我们用数字的最大值初始化最大值。我们使用工作表函数Max来找到最大值。

5.最后，我们为最大值着色。我们使用一个For Each Next循环。

注意：您可以使用任何ColorIndex编号代替ColorIndex编号22（红色）。

6.添加一个号码。

单击工作表上的命令按钮时的结果：