在单元格vba中显示公式

Question

我想让细胞显示如下（）

期望的结果 - 当我将鼠标悬停在细胞上时 'E15'=(1+9.27%)*(1+C15)-1"当我徘徊时，评估等式

我不想要的是E15 =（0.0000007）-1

我有两个我正在研究的公式，但我似乎无法做到正确。 我很感激任何帮助。提前致谢。

Range("E15").Formula = "=(" & 1 + "(" & Range("D15").Value & )"") * (" & 1 + "(" & Range("C15") & "))" - 1"
Range("E15").Formula = "=(" & 1 + "(" & Range("D15").Value & ")" & ") * (" & 1 + "(" & Range("C15") & ") & ") - 1"

Answer 1

运行：

Sub Macro1()
    With Range("E15")
        .ClearComments
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=Chr(39) & .Address(0, 0) & Chr(39) & "  " & .Formula
    End With
End Sub

产生

注：

将Comment放在相邻的单元格中同样容易。