所选单元格中的不同公式在IF函数VBA中无法获得期望的结果

Question

我是VBA的新手，我有下面的代码。这段代码可以正常工作，但是有一个问题。我需要输入到单元格D30中的公式必须与我在If条件（=D22/D21*100）或单元格D31（=100 - D30中设置的公式相同）。反之亦然。

但是，我只想让单元格（D30）的值等于If中公式的计算结果，而不管我如何输入公式。

我试图声明一个变量并将该公式的值附加到变量->无效。

Sub CheckMyAnswer()
    Dim i As Integer
    i = 0

    If Range("D30").Value = Range("D22").Value / Range("D21").Value * 100 Then
        i = i + 1
    End If
    If Range("D31").Value = 100 - Range("D30").Value Then
        i = i + 1
    End If

    MsgBox "You have " & i & " correct answer(s)"

    If i = 2 Then
        Range("C32").Value = "2. What is the Volume Share of Ha Noi beer in Can?"
        Range("C32").Font.Bold = True
        With Range("D33").Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
    End If
End Sub

我想知道无论我如何将公式输入到单元格D30中，只要满足条件，If仍然会为我提供所需的结果。