如何让EXCEL计算出带注释公式的结果_欧爷

http://blog.sina.com.cn/u/1300776441

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

如何让EXCEL计算出带注释公式的结果

(2007-06-21 11:36:27)

标签：

vba

excel

计算式

注释

计算结果

含注释计算式

分类：我爱电脑

那天有个朋友说，他经常要用到EXCEL来输入计算，然后再算出结果，有时候计算式太长了，很多数字之后都忘记了是什么意思，希望能在计算式中插入一些注释，以便于自己和别人理解。

以前也解决过这样的问题，但相对简单，就是利用引用ACCESS数据库里面的eval_r()函数来处理，但那个方法有个缺点，可移值性太差，如果考到另一台机子上，而这台机子没装ACCESS的话就会出错。

以下代码解决上面的所有问题：

Function js(x)
On Error Resume Next
temp = x
   If temp Like "*]*" Then
        DoorID = 0
        string_length = Len(temp)
            For i = 1 To string_length
                string_temp = Mid(temp, i, 1)
                    If string_temp = "[" Then DoorID = 1
                    If string_temp = "]" Then DoorID = 0
                If DoorID = 1 Then
                    If i = 1 Then
                        temp = " " + Right(temp, string_length - i)
                    Else
                        temp = Left(temp, i - 1) + " " + Right(temp, string_length - i)
                    End If
                End If
            Next i
        temp = Application.Substitute(temp, "]", "")
        temp = Application.Substitute(temp, " ", "")
End If
js = Evaluate(temp)
On Error GoTo 0
End Function

好了，这样就可以在计算式中实现注释啦，如 js([张三的钱]50[就这么多]+[李四的钱]30[就这么少])=80,这样数字再长也不愁忘记啦。

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：开门大吉

后一篇：日照游

新浪BLOG意见反馈留言板　欢迎批评指正