VBA中引用工作表函数

在Excel里有很多函数使用起来很方便，譬如：sum、average、min、max。

但是工作表函数是不能在宏代码里直接使用的，它们和vba语言中的函数是不一样的；与之相对应，Vba中的函数例如val，mid在工作表里也不能通用。

所以在vba语言里调用工作表函数，例如：

1. 让一个变量得到单元格A1到B5的总和（变量设为X) X=SUM(RANGE("A1:B5"))的写法明显是行不通的。

2. 正确写法是：

Sub 引用工作表函数()
Dim x%
x = Application.WorksheetFunction.Sum(Range("A1:B5"))
End Sub

也就是说必须通过 Application 对象的 Worksheetfunction 属性来间接调用工作表函数！

以下三种方法都对：

'借用工作表函数
Sub 运用工作表函数()
MsgBox Application.WorksheetFunction.CountIf(range("a1:a10"), "钢笔")
MsgBox WorksheetFunction.CountIf(range("a1:a10"), "钢笔")
MsgBox Application.CountIf(range("a1:a10"), "钢笔")
End Sub

 同时，也可以采用下面的方式：

Sub 带工作表函数的计算()
Dim i As Integer
For i = 1 To 10
    Sheet1.Cells(i, 4) = "=sum(a" & i & ":b" & i & ")"
Next i
End Sub

Sub 公式带引号的计算()
Cells(12, 1) = "=COUNTIF(A1:A10,"">9"")"
Cells(12, 2) = "=sum(INDIRECT(""a1:a10""))"
End Sub