动态范围在Excel VBA
下面我们就来看一个程序在Excel VBA是色彩动态范围的最大值。
现状:
每次我们增加一个号码,我们单击命令按钮,我们希望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.添加一个数字。
结果当您单击工作表上的命令按钮: