一, 在单元格中输入公式的3种方法:
1) 用VBA在单元格中输入普通公式
Sub formula_1() Range("d2") = ("=B2 * C2") End Sub
运行程序后,在D2的单元格内显示的是公式 =B2 * C2 ,并非程序返回值.下文(二)中会介绍另外一种直接返回值的方式
想要通过程序一次计算完所有D列金额,只要运行上一篇文章循环语句,即可一次性完成计算. 具体代码如下:
Sub fomula_t2() Dim x As Integer For x = 2 To 4 Cells(x, 4) = "=b" & x & "*" & "c" & x Next x End Sub
2)用VBA在单元格中输入带引号的公,以Sumif公式举例,函数Sumif参数:(Range,Criteria,sum_rangge)即(判断范围,判断条件,求和区域). 其中判断条件可以为单元格也可以是文本,而文本在函数参数中是需要加上引号的.
在单元格用公式的方式实现方式:
如果需要用VBA代码的方式实现 , 需要特别主要的是:公式中用到引号的地方,VBA代码中需要使用双重引号: 见下放代码中的""刀轮""
Sub fumula_t3() Range("B10") = "= sumif(A2:A5,""刀轮"",d2:d5)" End Sub
3)在Excel中我们时常会使用到数组来帮助计算, 使用数组的方式计算上图中的D列合计金额计算方法: = sum(B2:B5 * C2:C5).
*Excel小知识: 特别注意在计算前需要首先选中D2:D5,然后输入公式.最后同时按下Ctrl + Shift + Enter
如果使用VBA的方式,则需要调用一个Range新的属性Formulaarray可实现相同的效果:
Sub formula_t4() Range("D2").FormulaArray = "=sum(B2:B6 * C2:C6)" End Sub
-----------------------------------
二,利用单元格公式返回值,不显示公式
在公式之前加上Evaluate后, 单元格只显示公式的返回值,而不会显示公式.
Sub formula_1() Range("d2") = Evaluate("=B2 * C2") End Sub
------------------------------------
三,调用Excel公式
调用方法:Application.worksheetfunction
注意事项:单元格表示方式与公式不同, 上述方法的单元格表示方式均为单元格加引号("D2"),如果使用调用的方式,则需要表示为range("D2")
Sub fomula_t6() Range("b10") = Application.WorksheetFunction.Sum(Range("d2:d5")) End Sub
-------------------------------
四,调用VBA函数
VBA函数与工作表函的数有一些重叠的部分,有些功能类似但是参数的顺序不同.鉴于函数太多,大家在使用的时候可以通过F1查看帮助以便更好地使用.这里我们只说明一下调用地方法. 我们使用VBA.Instr 函数举例,实现在C9单元格中显示"金"字在B9单元格中首次出现地位置
Instr:指定一个字符串在另一个字符串中首次出现的位置 ,
Sub fomula_t7() Range("C9") = VBA.InStr(Range("B9"), "金") End Sub
运行后,得到地结果是 3.
除了以上4中方法,还有一个就是自定义函数了,这部分我们在后面的Function功能会再次重点讲解,这里就不再赘述了~
关键字: 双引号 , Formulaarray , evaluate , worksheetfunction, VBA函数
今天的内容就是这些了,快动手试一试吧~
