顯示單元格的公式，但是數值不是引用

Question

我正在使用公式在另一個單元格中顯示單元格公式。

我想在此公式中顯示每個引用的值，而不是引用。

例：

= $ R $ 16 + R19 *（$ T $ 15- $ R $ 16）

希望它是

= 3 + 2 *（4-2）

功能我現在使用的顯示公式，因爲它是

Function GetFormula(Cell As Range) As String 
    GetFormula = Cell.Formula 
End Function 

Answer 1

這裏是一個可以處理情況下，像

=B1+C1-D1/E1 
=$B$1+C1*($B$1-$D$1) 
=B1+C1-(D1/E1) 
=B1+C1-(D1/E1) 
=$B$1*C1*($B$1/$D$1) 

假設一個很簡單的例子：

1. 比方說，以上公式在單元格A1到A5中
2. 所有單元格都在同一個工作表中
3. 沒有SUM，Vlookup等工作表函數
4. 沒有錯誤處理完成。假設你會照顧它

示例工作

代碼：

Sub Sample() 
    Dim i As Long 
    For i = 1 To 5 
     Debug.Print ConvertToValues(Range("A" & i)) 
    Next i 
End Sub 

Function ConvertToValues(rng As Range) 
    Dim sTmp As String, sOpr As String, sOrig As String 
    Dim s As String, v As String 
    Dim MyAr 
    Dim i As Long 

    sOpr = "+,/,-,*,&,(,),{,},[,]" 

    MyAr = Split(sOpr, ",") 

    sTmp = Replace(rng.Formula, "$", "") 
    sOrig = sTmp 

    For i = LBound(MyAr) To UBound(MyAr) 
     sTmp = Replace(sTmp, MyAr(i), "SIDROUT") 
    Next i 

    MyAr = Split(sTmp, "SIDROUT") 

    For i = LBound(MyAr) To UBound(MyAr) 
     s = MyAr(i) 

     If Len(Trim(s)) <> 0 Then 
      v = Range(s).Value 
      sOrig = Replace(sOrig, s, v) 
     End If 
    Next i 

    If sOrig <> "" Then _ 
    ConvertToValues = "=" & sOrig 
End Function 

輸出

注意：

讓我知道，如果上面的代碼在特定的情況下失敗，我會更新的代碼。