excel自动换算结果

来源：百度知道 编辑：UC知道 时间：2024/06/28 15:43:36
我想定义：人=1、上=3、我=-1、飞=-2，然后在后面自动算出结果来，应该怎么制作？
如： 答案
人 上 人 我 4
飞 我 上 0
上 飞 人 2

如果加上次数又如何做？

高分在线等……
最好能帮忙设计好程序，另有加分；
邮箱：lu_hongy@163.com

按alt+f11插入一个模块,然后把下面的代码放进去.

Function calcr(m)
Dim i, re As Integer, te As String
For i = 1 To Len(m)
te = Mid(m, i, 1)
Select Case te
Case "人"
re = re + 1
Case "上"
re = re + 3
Case "我"
re = re - 1
Case "飞"
re = re - 2
End Select
Next i
calcr = re
End Function

然后和使用其他excel内置的函数一样使用他就可以了
比如:你在a1里面输入了 人 上 人 我
然后你在其他任意单元格,比如a3输入: =calcr(a1)
就会得到答案:4
希望满意,有什么问题hi我

可以，比如：
A1是人，B1是上，C1是我，D1是飞。之后写公式。
F1=IF(A1="人",1,IF(A1="上",3,IF(A1="我",-1,if(a1="飞",-2,""))))
G1=IF(B1="人",1,IF(B1="上",3,IF(B1="我",-1,if(b1="飞",-2,""))))
H1=IF(C1="人",1,IF(C1="上",3,IF(C1="我",-1,if(c1="飞",-2,""))))
I1=IF(D1="人",1,IF(D1="上",3,IF(D1="我",-1,if(d1=&