显示公式的VBA宏（Excel）

Question

我的宏中有一个代码，可以将我的Cell（A5）结果返回给我，例如#name ？

Range("A5").Select
ActiveCell.FormulaR1C1 = "=Application.Sum(Range(Cells(1, 5), Cells(20, 5)))"
End Sub

#name? 在我的VB代码中的引号之间包含一个文本公式

=Application.Sum(Range(Cells(1, 5), Cells(20, 5)))

如果我写不带引号，它将返回一个结果 。（范围之和）

ActiveCell.FormulaR1C1 = Application.Sum(Range(Cells(1, 5), Cells(20, 5))) 

但是我需要在单元格A5的结果和公式中包含如何获得此结果的信息。 也许更改某些选项就足够了吗？

Answer 1

由于您要使用VBA代码在单元格A5中输入公式，因此您需要使用正确的参数：

Range(Cells(1, 5), Cells(20, 5)) R1C5:R20C5 Range(Cells(1, 5), Cells(20, 5))是VBA，如果要将其用作Excel工作表单元格可以识别的公式，则需要使用R1C5:R20C5 。

另外，代替Application.Sum只需使用Sum 。

您应该避免使用Select和ActiveCell而直接使用Range("A5").FormulaR1C1

因此，只需使用以下代码：

Range("A5").FormulaR1C1 = "=Sum(R1C5:R20C5)"

Answer 2

我发现使用以下方法向单元格添加公式更简单

 Sub addFormula()

  Dim ws As Worksheet 
  Set ws = Worksheets("Sheet1")

    With ws
        .Range("A5").NumberFormat = "General" 'This formats A5 as general
        .Range("A5").Formula = "=SUM(F1:F20)"
    End With

 End Sub

它所做的就是将公式输入到单元格A5中

Answer 3

如果您想在单元格中使用一个公式，该公式指向您在VBA代码中定义的某个范围，则可以使用

Range("A5").FormulaR1C1 = "=Sum(" & Range(Cells(1, 5), Cells(20, 5)).Address(, , xlR1C1) & ")"

Answer 4

如果我理解正确，则希望在A5 同时显示公式和结果 。 如果是这样，请使用

Dim aux As Variant
aux = Application.Sum(Range(Cells(1, 5), Cells(20, 5)))
ActiveCell.Value = "Application.Sum(Range(Cells(1, 5), Cells(20, 5))) : " & CStr(aux)

该代码可能会得到改进（例如，使用Sum代替Application.Sum ）