【Excel VBA】在VBA中调用函数

在VBA代码中直接调用计算数据

EXCEL的表函数也可以直接在VBA中直接调用执行，具体调用格式如下：

调用方法1：变量对象= Application.WorksheetFunction.表函数（表函数参数）

实例：Range('d8') = Application.WorksheetFunction.CountIf(Range('A1:A10'), 'B')

• 1

调用方法2：变量对象=VBA.表函数（表函数参数）

                  实例：Range('d8') = VBA. Ucase(Range('A1:A10'), Value)
1

（1）并非所有表函数都可以在VBA中予以调用，比如trunc，numberstring。表函数if（）在VBA中，用if then或者iff（）替代，而表函数的ROW（）函数，通过单元格属性.row予以替代。

（2）表中使用函数和规则和VBA中使用函数的语法规则不一样。比如单元格中，求和函数sum（A1：A3),在VBA中，通过application或worksheetfunction的调用时就和函数是sum（range（“A1：A3')）。这里，'A1:A3'字符串变为range的一个参数，而range（）作为sum的参数。如果是某个一个单元格，也可以用cell（行号，列号）替代range（）。值得注意的是，使用cells（）时，其行号和列号全部可变为变量，而用range（）参数为字符串，如果涉及变量，就需要进行字符串组合的方式使之变为一个区域参数。当然，range（）参数的字符串也可以通过cells替换，比如range（“A1：B4”）通过range（cells（1,1），cells（4,2））

（3）调用函数可以逐级调用。首先是application，其次是worksheetfunction，最后是application.worksheetfunction方式。

（4）实际的操作中，可能发现，使用内置的工作表函数并不一定是最快，最高效的，但无疑是最直接，最省事的。可以在不精通VBA语言以及相关逻辑规则的前提下，迅速通过调用这些内置函数实现目标。

（5）上述调用方法返回的值可能是一个而错误值，比如vlookup调用返回来没找到结果，如果在VBA中将这个调用函数的值直接返回给一个变量可能报错。在赋给某个变量之前，要判断是否为错误值可以用application.isna（）。

Excel函数和VBA函数的区别：