公公公式与函函函数

'一、在单元格中输入公式

'1、用VBA在单元格中输入普通公式

Sub t1()

Range('d2') = '=b2*c2'

End Sub

Sub t2()

Dim x As Integer

For x = 2 To 6

Cells(x, 4) = '=b' & x & '*c' & x

Next x

End Sub

'2、用VBA在单元格输入带引号的公式

Sub t3()

Range('c16') = '=SUMIF(A2:A6,''b'',B2:B6)' '遇到单引号就把单引号加倍

End Sub

'3、用VBA在单元格中输入数组公式

Sub t4()

Range('c9').FormulaArray = '=SUM(B2:B6*C2:C6)'

End Sub

'二、利用单元格公式返回值

Sub t5()

Range('d16') = Evaluate('=SUMIF(A2:A6,''b'',B2:B6)')

Range('d9') = Evaluate('=SUM(B2:B6*C2:C6)')

End Sub

'三、借用工作表函数

Sub t6()

Range('d8') = Application.WorksheeFunction.CountIf(Range('A1:A10'), 'B')

End Sub

'四、利用VBA函数

Sub t7()

Range('C20') = VBA.InStr(Range('a20'), 'E')

End Sub

'五、编写自定义函数

Function wn()

wn = Application.Caller.Parent.Name

End Function