他山之石——使用VBA在单元格中输入公式（Input formula into Range with VBA）

在VBA编程中，时常要利用Excel自带的多种功能强大的函数。

那么，如何在VBA中向单元格中输入公式呢？

看到别人的培训资料里已有所总结，这里借花献佛一下。

代码：

Option Explicit

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

'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