在EXCEL2010工作表中经常会遇到查找最大值的问题,例如要查找销售量中的最大值等,而且当查找的范围内含有多个相同的最大值时,为便于查看,可为查找到的最大值设置特殊的字体颜色等,以使其能够突出显示。下面讲述以下使用VBA代码实现将最大值突出显示的方法。
首先在VBA代码窗口中,新插入一个模块,并从中输出如下代码:
Sub 突出显示最大值()
Dim WorkRange As Range
Dim MaxVal As Double
Dim Num As Variant
If TypeName(Selection) <> "Range" Then '判断所选区域是否为Range对象
Exit Sub
End If
If Selection.Count = 1 Then '如果所选区域的单元格个数为1,则执行下一条语句
Set WorkRange = Cells '当选中单个单元格时,系统会自动选择整个工作表
Else
Set WorkRange = Selection
End If
MaxVal = Application.Max(WorkRange) '获取该选区的最大值
For Each Num In WorkRange
If Num.Value = MaxVal Then
Num.Font.ColorIndex = 3 '将最大值字体颜色设置为红色
End If
Next Num
End Sub
当返回EXCEL2010工作表,选中要查找的单元格区域,再运行该程序,即可将所选区域中的最大值以红色字体显示出来。执行该代码时,我建议选中要查找范围的单元格区域,这样便于代码的快速运行。如果选中单个单元格时系统自动选择整个工作表,当运行VBA代码时,系统会在整个EXCEL2010工作表中进行查找。