VBA代码中两种调用Excel函数的设置办法

本节课为VBA学习当中的第九课，excel中函数在VBA当中如何来体现以及运用。以SUM和countif为例来讲解函数在VBA中运用的基础知识及注意点：

案例一：sum求和函数使用（函数当中不需要加引号的）

效果

代码如下：

' 不需要引号的函数使用

Sub VBAsum函数()

Dim i As Integer

For i = 2 To 10 '定义循环区间为第2-10行

Sheet1.Cells(i, 3) = "=sum(a" & i & ":b" & i & ")" '用双引号“”将计算值以函数来体现。C2=sum(A2:b2)

Next

End Sub

注意点：与上节将的VBA公式的使用一样，本节函数使用主要为用双引号“”将计算值以函数来体现。从而表格中可以执行此函数。

案例二：countif&sum+indirect函数使用（函数当中需要使用到双引号）

效果

代码如下：

'公式需要带引号的函数使用

Sub 公式带引号的计算()

Cells(11, 1) = "=COUNTIF(A2:A10,"">5"")" '函数解析为=countif(A2:A10,">5"），

Cells(11, 2) = "=sum(INDIRECT(""B2:B10""))" '函数解析为=sum(indirect(B2:B10))，

End Sub

注意点：

1、函数解析为=countif(A2:A10,">5"），因为判断区域本身就需要用到双引号，为了避免双引号被VBA解析，所以双引号前后还需要加个双引号；

2、 同上，函数解析为=sum(indirect(B2:B10))，表格中原本Indirect引用的区域不需要加双引号，但是在VBA中还是需添加，所以得另外添加一个双引号。