(ExcelVBA函数使用.doc

函数的使用 调用工作表函数求和 在对工作表的单元格区域进行求和计算时，使用工作表Sum函数比使用VBA代码遍历单元格进行累加求和效率要高得多，代码如下所示。 #001 Sub rngSum() #002 Dim rng As Range #003 Dim d As Double #004 Set rng = Range(A1:F7) #005 d = Application.WorksheetFunction.Sum(rng) #006 MsgBox rng.Address(0, 0) 单元格的和为 d #007 End Sub 代码解析： rngSum过程调用工作表Sum函数对工作表的单元格区域进行求和计算。 在VBA中调用工作表函数需要在工作表函数前加上WorksheetFunction属性。应用于Application对象的WorksheetFunction属性返回WorksheetFunction对象，作为VBA中调用工作表函数的容器Application对象识别符。 查找最大、最小值 在VBA中没有内置的函数可以进行最大、最小值的查找，借助工作表Max、Min函数可以快速地在工作表区域中查找最大、最小值，如下面的代码所示。 #001 Sub seeks() #002 Dim rng As Range #003 Dim myRng As Range #004 Dim k1 As Integer, k2 As Integer #005 Dim max As Double, min As Double #006 Set myRng = Sheet1.Range(A1:F30) #007 For Each rng In myRng #008 If rng.Value = WorksheetFunction.max(myRng) Then #009 rng.Interior.ColorIndex = 3 #010 k1 = k1 + 1 #011 max = rng.Value #012 ElseIf rng.Value = WorksheetFunction.min(myRng) Then #013 rng.Interior.ColorIndex = 5 #014 k2 = k2 + 1 #015 min = rng.Value #016 Else #017 rng.Interior.ColorIndex = 0 #018 End If #019 Next #020 MsgBox 最大值是: max 共有 k1 个 _ #021 Chr(13) 最小值是: min 共有 k2 个 #022 End Sub 代码解析： seeks过程在工作表单元格区域中查找最大、最小值，并将其所在的单元格底色分别设置为红色和蓝色。 第2行到第5行代码声明变量类型。 第6行代码使用关键字Set将单元格引用赋给变量myRng。 第7行到第19行代码遍历单元格区域，使用工作表Max、Min函数判断单元格数值是否是所在区域的最大、最小值，如果是，将其所在的单元格底色设置为红色或蓝色，并保存其数值和数量。 第20、21行代码使用消息框显示最大、最小值数值和数量。 运行seeks过程后将工作表区域最大、最小值所在的单元格的底色设置为红色或蓝色并用消息框显示其数值和数量，如图 1541所示。 图 1541 查找最大、最小值 不重复值的录入 在工作表中录入数据时，有时希望能限制重复值的录入，比如在示例的A列单元格只能录入唯一的人员编号，此时可以利用工作表的Change事件结合工作表的CountIf 函数来判断所录入的人员编号是否重复，示例代码如下。 #001 Private Sub Worksheet_Change(ByVal Target As Range) #002 With Target #003 If .Column 1 Or .Count 1 Then Exit Sub #004 If Application.CountIf(Range(A:A), .Value) 1 Then #005 .Select #006