表格显示公式计算过程(已提供思路，求一小程序)

mp3_2004

sz_wap 发表于 2015-3-4 10:36
改成了：取的数值与单元格中显示的效果一致

谢谢你的辛苦帮助，现在已经十分完美了！！！谢谢！

mp3_2004

sz_wap 发表于 2015-3-4 10:34

您好，想再麻烦您帮忙修改一下，目前引用这个工作薄中的其他工作表的单元格的值的时候，还无法显示，能否帮忙再改进一下呢？
目前只能在sheet1里面，如果引用sheet2的时候就不行了。

fanqinxi

Function fml(cel As Range)
Application.Volatile
ShName = cel.Parent.Name
fmltext = Replace(cel.Formula, "$", "")
fmltext = Replace(fmltext, "=", "")
Set regExp = CreateObject("VBScript.RegExp")
regExp.Pattern = "[A-Z]{1,2}\d{1,}"
regExp.Global = True
     
For Each i In regExp.Execute(fmltext)
fmltext = Replace(fmltext, i, Worksheets(ShName).Range(i).Text)
Next

fml = fmltext
End Function

lhfhao

sz_wap 发表于 2015-3-4 10:36
改成了：取的数值与单元格中显示的效果一致

非常感谢，之前在网上查了很久都没有找到。。谢谢了。我现在有一个问题，比如我一个公式里面有1*2+5*9-0+0*25-5*（空白表格）*2+25。。。如何让显示的结果里面值为0的不显示。及以上公式为1*2+5*9+25.顺便上传一个我计算模板的，，。麻烦大神帮我看看。。感激不尽

levineagle

非常惊喜，有兄弟同问，有大神出手。请大神再此帮忙解决两个问题
1、跨工作表好像不能正确显示；
2、如果前面有=round（.....，4），希望去除。
我上传上面兄弟的附件（修改），请大神看标了红色单元格。
盼大神出手，万分感谢。

mp3_2004

fanqinxi 发表于 2015-8-12 09:58
Function fml(cel As Range)
Application.Volatile
ShName = cel.Parent.Name

老师，你好，之前这个一直都能用，最近不知道是运行了什么vba，导致只能取同个sheet里面的值了，取别的sheet的只留下表名，不出值了，比如=ROUNDDOWN(MIN('6最小值'!D4,'6最小值'!G8,'6最小值'!I13)/10000,0.1)*10000，运行完之后的结果是：ROUNDDOWN(MIN('6最小值'!,'6最小值'!,'6最小值'!)/10000,0.1)*10000  请问是什么原因啊

ggmmlol

mp3_2004 发表于 2023-4-1 23:13
老师，你好，之前这个一直都能用，最近不知道是运行了什么vba，导致只能取同个sheet里面的值了，取别的sh ...

Function gs(cel As Range)
    Application.Volatile
    fmltext = Replace(cel.Formula, "$", "")
    fmltext = Replace(fmltext, "=", "")
    Set regExp = CreateObject("VBScript.RegExp")
    regExp.Pattern = "([^,\(\+\*/\^-]+\!)?[A-Za-z]{1,2}\d+"
    regExp.Global = True
    If regExp.test(fmltext) Then
        Set mas = regExp.Execute(fmltext)
        For i = mas.Count - 1 To 0 Step -1
            Set ma = mas(i)
            fmltext = WorksheetFunction.Replace(fmltext, ma.firstindex + 1, ma.Length, Evaluate(ma.Value))
        Next
    End If
    gs = fmltext
End Function

如果跨工作表-表格显示公式计算过程.rar (11.19 KB, 下载次数: 4)

2023-4-2 04:52 上传

点击文件名下载附件

mp3_2004

ggmmlol 发表于 2023-4-2 04:52
Function gs(cel As Range)
    Application.Volatile
    fmltext = Replace(cel.Formula, "$", "")

谢谢老师，那么晚还在帮我看这个!真的太感谢了！

mp3_2004

ggmmlol 发表于 2023-4-2 04:52
Function gs(cel As Range)
    Application.Volatile
    fmltext = Replace(cel.Formula, "$", "")

这个倒序替换的很严谨，避免了相同地址如A4和AA4如果正向替换时的错误