关于计算公式与值同时显示的问题（vba）

上心圆梦

遇此烦恼已多时，以前是用笨办法，一个一个改。头痛啊{:soso_e117:}！修改的数据多，经常把自己搞晕！
多次寻找终于找到一个接近的处理方法，但还不尽人意。请大侠多指点。
情况如下：
A1  10
B1  20
C1=A1*B1=200
插入名称：gs=GET.CELL(41,Sheet1!C1)
D1=gs
结果是：D1返回：=A1*B1
可以有方法将D1返回内容为：=10*20  吗？
此问题本在函数与公式内求教过，但是问题比较棘手。请vba高手写个宏处理下。万分感激！

1578278106

1. Function xsgs(Vcell As Range, TrueOrFalse As String)    '显示单元格中的公式
   
2.     If Left(Vcell.FormulaR1C1, 1) = "=" Then
   
3.         If TrueOrFalse = "True" Then
   
4.             xsgs = Vcell.Formula
   
5.         Else
   
6.             xsgs = Vcell.FormulaR1C1
   
7.         End If
   
8.     Else
   
9.         xsgs = "nothing"
   
10.     End If
    
11. End Function
    

复制代码

1578278106