★★数值→公式＋公式→数值★★（宏表＋自定义函数） 2005年5月30日更新

hjslove5510

感谢分享  从基础开始学习excel

寒潮大冬瓜

老师好！我觉得很好很需要！可惜为何不能=GetFormula（A2）的格式出现呢？我找到过一个“Function YY(a)
    f = "=+-*/^(),:&$"""
    t = a.Formula
    j = Len(t)
    Do
        If IsNumeric(Mid(t, j, 1)) Then
            i = j - 1
            Do
                If InStr(f, Mid(t, i, 1)) Then
                    r = Mid(t, i + 1, j - i)
                    If Not IsNumeric(r) Then t = Left(t, i) & Range(r) & Mid(t, j + 1)
                    j = i - 1
                    Exit Do
                Else
                    i = i - 1
                End If
            Loop
        Else
            j = j - 1
        End If
        If j < 1 Then Exit Do
    Loop
    YY = YY & t
End Function
”
这个的缺点就是不认0.012，前面的0被忽略了！美中不足，恳请老师完美一下！再次感谢老师！