下面我们就来看一个程序在Excel VBA是色彩动态范围的最大值。

现状:

每次我们增加一个号码,我们单击命令按钮,我们希望Excel VBA上色这些数字的最大值。

Dynamic Range in Excel VBA

将工作表上的一个命令按钮并添加以下代码行:

1.首先,我们声明一个变量和两个Range对象。 Double类型的一个变量我们称之为最大。我们呼吁Range对象RNG以及细胞。

Dim maximum As Double, rng As Range, cell As Range

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

Cells.Interior.ColorIndex = 0

CurrentRegion属性用于此。当我们不知道一个范围的确切边界提前CurrentRegion是非常有用的。

Set rng = Range("A1").CurrentRegion

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

maximum = WorksheetFunction.Max(rng)

5.最后,我们颜色的最大值。我们使用For Each Next循环。

For Each cell In rng

If cell.Value = maximum Then cell.Interior.ColorIndex = 22

Next cell

注:代替ColorIndex 22号(红色),你可以使用任何ColorIndex数量。

6.添加一个数字。

结果当您单击工作表上的命令按钮:

Dynamic Range Result