显示单元格数值计算公式的自定义函数

fjlhgs · 发表于 2008-9-2 11:28

一个显示单元格数值计算公式的自定义函数Showformula。

3LxSydqt.rar (9.54 KB, 下载次数: 173)

[此贴子已经被作者于2008-9-14 16:05:15编辑过]

LangQueS · 发表于 2008-9-2 11:41

Function ShowFormula(ByVal oCell As Range) As String
    Application.Volatile True
    If oCell.HasFormula Then
        ShowFormula = "公式是：""" & IIf(oCell.HasArray, "{", "") & Application.Text(oCell.FormulaArray, "") & IIf(oCell.HasArray, "}", "") & """"
    Else
        ShowFormula = ""
    End If
End Function

ldy · 发表于 2008-9-13 15:33

不全对，当公式中有 rmb 这类地区函数时 ShowFormula 返回不准确，试一下 =rmb(9)

应该用 FormulaLocal 属性

fjlhgs · 发表于 2008-9-14 16:07

谢谢 ldy 版主的测试，已在1楼重新上传。

3xxx · 发表于 2008-12-24 23:12

太厉害了吧。=SUM(0,$AA4:$AA$18)
这个有点问题啊。

chwean · 发表于 2012-3-24 15:58

还有，若引用的数是0.几的，其中的0不能显示

chwean · 发表于 2012-3-24 15:31

能把显示里的那个=号去年就完美了

		自动登录	找回密码
密码			免费注册