VBA / Excel宏-如何检查单元格的特定公式

Question

有没有一种方法可以检查活动单元格中的特定公式？ 这是我运行的一个简单测试，不断返回“否”。

sub Test

    'Add formula to a Cell
    Range("J3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"

    If (ActiveCell.Formula = "=R[-1]C+RC[-2]-RC[-1]") Then
         MsgBox ("Yes")

    Else

         MsgBox ("No")

    End If
End Sub

* 更新 *这就是我的解决方法。

Sub Test()

    'Add formula to a Cell
    Range("J3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"

    'Convert Formula in the Cell to a string
    Dim strFormula As String
    strFormula = ActiveCell.FormulaR1C1


    If (strFormula = "=R[-1]C+RC[-2]-RC[-1]") Then
         MsgBox ("Yes")
    Else
         MsgBox ("No")
    End If


End Sub

Answer 1

这很简单，接近您的建议：

If ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]+RC[-1]" Then

 'Do Something

End If

但是请记住，比较非常非常严格-区分大小写和空格。

由于OP的其他问题而进行编辑

根据THIS MSDN LINK， Range.FormulaR1C1属性返回Variant类型。 在我的情况下，我得到了自动转换，这使我的代码可以正常工作。 但是，为避免出现任何问题，您可以通过以下方式进行转换：

If CStr(ActiveCell.FormulaR1C1) = "=R[-1]C+RC[-2]+RC[-1]" Then

 'Do Something

End If

Answer 2

我成功运行了以下代码。 我看不出太大的区别。

Private Sub Try_FormulaAsString()

Dim testString As String
testString = Range("J3").FormulaR1C1

If testString = "=R[-1]C+RC[-2]-RC[-1]" Then
    MsgBox "Yes"
Else
    MsgBox "No"
End If

End Sub

J3单元格包含公式“ = J2 + H3-I3”

我确实注意到您在上面的某些评论中最后一项的运算符有所不同，例如-RC [-1]与+ RC [-1]

有没有理由使用.FormulaR1C1代替.Formula ，这将使该公式更容易阅读，并减少在子程序错别字的机会呢？