本节课为VBA学习当中的第九课,excel中函数在VBA当中如何来体现以及运用。以sum和countif为例来讲解函数在VBA中运用的基础知识及注意点:
案例一:sum求和函数使用(函数当中不需要加引号的)
效果
代码如下:
' 不需要引号的函数使用
Sub VBAsum函数()
Dim i As Integer
For i = 2 To 10 '定义循环区间为第2-10行
S(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中还是需添加,所以得另外添加一个双引号。