1、ExcelVBA函数使用DOC函数的使用技巧1调用工作表函数求和在对工作表的单元格区域进行求和计算时， 使用工作表Sum函数比使用VBA代码遍历单元格进行累加求和效率要高得多，代码如下所示。#001 Sub rngSum()#002Dim rng As Range#003Dim d As Double#004Set rng = Range(A1:F7)#005d = Application.WorksheetFunction.Sum(rng)#006MsgBox rng.Address(0, 0) & 单元格的和为& d#007 End Sub代码解析：rngSum过程调用工作表 Sum函数对
2、工作表的单元格区域进行求和计算。在VBA中调用工作表函数需要在工作表函数前加上 WorksheetFunction 属性。应用于Application 对象的 WorksheetFunction 属性返回 WorksheetFunction 对象，作为 VBA 中调 用工作表函数的容器，在实际应用中可省略 Application对象识别符。技巧2查找最大、最小值在VBA中没有内置的函数可以进行最大、最小值的查找，借助工作表 Max、Min函数可以快速地在工作表区域中查找最大、最小值，如下面的代码所示。#001 Sub seeks()#002Dim rng As Range#003Dim myR
3、ng As Range#004Dim k1 As Integer, k2 As Integer#005Dim max As Double, min As Double#006Set myRng = Sheet1.Range(A1:F30)#007For Each rng In myRng#008If rng.Value = WorksheetFunction.max(myRng) Then#009rng .In terior.Colorlndex = 3#010k1 = k1 + 1#011max = rng.Value#012ElseIf rng.Value = WorksheetFunct
4、ion.min(myRng) Then#013rng .In terior.Colorlndex = 5#014k2 = k2 + 1#015min = rng.Value#016Else#017rng .In terior.ColorIndex = 0#018End If#019Next#020MsgBox 最大值是:& max & 共有& k1 & 个_#021& Chr(13) & 最小值是:& min & 共有& k2 & 个#022End Sub代码解析：seeks过程在工作表单元格区域中查找最大、 最小值，并将其所在的单元格底色分别设置为红色和蓝色。第2行到第5行代码声明变量类型。
5、第6行代码使用关键字 Set将单元格引用赋给变量 myRng。第7行到第19行代码遍历单元格区域，使用工作表 Max、Min函数判断单元格数值是否是所在区域的最大、最小值，如果是，将其所在的单元格底色设置为红色或蓝色，并保存 其数值和数量。第20、21行代码使用消息框显示最大、最小值数值和数量。运行seeks过程后将工作表区域最大、最小值所在的单元格的底色设置为红色或蓝色 并用消息框显示其数值和数量，如图 2-1所示。图2-1 查找最大、最小值技巧3不重复值的录入在工作表中录入数据时，有时希望能限制重复值的录入，比如在示例的 A列单元格只能录入唯一的人员编号，此时可以利用工作表的 Change
6、事件结合工作表的 Countlf函数来 判断所录入的人员编号是否重复，示例代码如下。#001 Private Sub Worksheet_Change(ByVal Target As Range)#002With Target#003If .Column 1 Or .Count 1 Then Exit Sub#004If Application.Countlf(Range(A:A), .Value) 1 Then#005.Select#006MsgBox 不能输入重复的人员编号!, 64#007Application.EnableEvents = False#008.Value =#009Ap
7、plication.EnableEvents = True#010 End If#011 End With#012 End Sub代码解析：工作表的Change事件过程，使 A列单元格只能录入唯一的人员编号。第4行代码使用工作表的 Countlf函数来判断在 A列单元格输入的人员编号是否重复。 工作表的Countlf函数计算区域中满足给定条件的单元格的个数，语法如下：COUNTIF(range, criteria)参数range为需要计算其中满足条件的单元格数目的单元格区域。参数criteria为确定哪些单元格将被计算在内的条件，其形式可以为数字、表达式、单 元格引用或文本。在示例中以所录入的
8、人员编号与 A列单元格区域进行比较，如果 Countlf函数的返回值大于1，说明录入的是重复编号。第5行代码，重新选择该单元格便于下一步清空后重新录入。第7、8、9行代码，清除录入的重复编号，在清除前将 Application对象的EnableEvents 属性设置为False，禁用事件。因为如果不禁用事件，那么在清除重复值的过程中会不断地 触发工作表的Change事件，从而造成代码运行的死循环。经过以上的设置，在工作表的 A列中只能录入唯一的人员编号，如果录入重复值会进行提示，如图 3-1所示，点击确定后自动清除录入的重复编号。图3-1 限制重复值的录入技巧4获得当月的最后一天在实际工作中经
9、常需要根据给定的日期计算其所属月份的最后一天，此时可以使用DateSerial函数完成计算，如下面的代码所示。#001 Sub Serial()#002 Dim DateStr As Byte#003 DateStr = Day(DateSerial(Year(Date), Month(Date) + 1,0)#004 MsgBox 本月的最后一天是 & Month(Date) & 月& DateStr & 号#005 End Sub代码解析：Serial过程配合使用了 4个VBA内置函数 Year、Mon th、Day和DateSerial完成计算 并使用消息框显示当月最后一天的日期。Yea
10、r、Mo nth和Day函数分别返回代表指定日期的年、月、日的整数，语法如下：Year(Date)Month(Date)Day(Date)其中参数Date可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。DateSerial函数返回包含指定的年、月、日的 Variant (Date)，语法如下：DateSerial(year, month, day)其中参数year、 mo nth、day分别表示指定的年、月、日。为了指定某个日期， DateSerial函数中的每个参数的取值范围应该是可接受的，即日的取值范围应在1-31之间，而月的取值范围应在 1-12之间。但是
11、，当一个数值表达式表示某日之前或其后的年、月、日数时，也可以为每个使用这个数值表达式的参数指定相对日期。 当任何一个参数的取值超出可接受的范围时， 它会自动地在可接受的时间单位进行调整， 例如本例中的 day参数设置为 0,则被解释成 month参数指定月的前一天，即表达式Mon th(Date) + 1 指定的下一个月的前一天，也就是本月的最后一天。运行Serial过程结果如图 4-1所示。图4-1 获得当月的最后一天技巧5四舍五入运算在实际工作中经常需要对数值或计算结果进行四舍五入运算，此时可以使用 VBA内置的Round函数。Round函数返回一个数值，该数值是按照指定的小数位数进行四舍
12、五入运 算的结果，语法如下：Round(expression ,numdecimalplaces)参数expression是必需的，要进行四舍五入运算的数值表达式。参数numdecimalplaces 是可选的，数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则 Round函数返回整数。但是VBA内置的Round函数在对数值进行四舍五入运算时实行的是 Bankre舍入，而不是算术舍入。按 Bankre舍入规则，如果保留位数的下一个数字正好是 5则其后没有其他有效数字，则按保留位最后一位“偶舍奇入”的方法进行处理。比如 Round(1.5)的保留位最后为1，是奇数，小数位的 5
13、入上去，因此 Round(1.5)的运算结果是 2 ;而Round(4.5)的保留位最后为 4,是偶数，小数位的5舍去，因此Round(4.5)的运算结果是4而不是5。Bankre舍入规则虽然有其合理性，但不符合实际工作的需要。在实际应用中使用以下 两种方法避免Bankre舍入：5-1极小值修正法在使用Round函数时对需要舍入的数值先加上极小值再调用 VBA内置的Round函数，如下面的代码所示。#001 Sub aTestRound()#002 MsgBox Round(4.5)= & Round(4.5) & Chr(13) & Round(4.5)= &Round(4.5 + 0.00
14、00001)#003 End Sub代码解析：aTestRound过程分别调用 VBA内置的Round函数和加上极小值再调用 VBA内置的Round函数在洗染店框中显示两者运算结果，如图 5-1所示。图5-1 加上极小值进行运算结果从运算结果中可以发现，加上极小值后 Round(4.5)已正确运算为5而不是4。5-2调用工作表函数法还可以使用工作表函数 Round代替VBA内置的Round函数。工作表函数 Round和VBA内置的Round函数的用法相同，但它采用算术舍入而不是 Bankre舍入，所以不会有“偶舍奇入”的问题，如下面的代码所示。#001 Sub bTestRound()#002 MsgBox Round(4.5)= & Round(4.5) & Chr(13) & Round(4.5)= &Application.Round (4.5, 0)#003 End Sub代码解析：bTestRound过程分别调用 VBA内置的Round函数和工作表 Round函数在消息框中显 示两者运算结果，如图 5-2所示。图5-2 工作表函数运算结果从运算结果中可以发现， 使用工作表Round函数后Round(4.5)已正确运算为5而不是4。技巧6使用字符串函数使用VBA的字符串函数可以对字符串进行各种操作，如下面的代码所示。
