荣少记事

在VBA中使用Excel函数

通常的，一些Excel函数很高效的，但是不少函数却不是VBA函数，无法直接在VBA中使用，比如Sum()、Rand()等等，在VBA中直接使用都会出错的。比如：s=Sum(A1:A10)

但我们可以在ＶＢＡ中通过Application.worksheetFunction对象来引用excel函数，而且其运行效率要比使用其他方式快捷得多：

如求工资和的例子：
通常的代码是：
For Each c In Range(″A1:A1000″)
　　 Totalvalue = Totalvalue ＋ c.value
Next

而下面代码程序比上面例子快得多：
　　Totalvalue=Application.WorksheetFunction.Sum(Range(″A1:A1000″))

　　其它函数如Count,Counta,Countif,Match,vLookup等等，都能代替相同功能的VBA程序代码，提高程序的运行速度。

在单元格中插入工作表函数

若要在单元格中插入工作表函数，请指定函数作为相应的 Range 对象的 Formula 属性值。以下示例中，将 RAND 工作表函数（可生成随机数）赋给了活动工作簿中 Sheet1 上 A1:B3 单元格区域的 Formula 属性。

Sub InsertFormula()
    Worksheets("Sheet1").Range("A1:B3").Formula = "=RAND()"
End Sub

\\经zhyzhsh测试，直接使用cells(1,1).value="=rand()"就可以输入函数了。