请教一个exceL问题,A1单元格的格式为+9*0.23+8*-0.56+-4*0.33+-5*-0.22 则B1 等于
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/06 07:45:03
请教一个exceL问题,A1单元格的格式为+9*0.23+8*-0.56+-4*0.33+-5*-0.22 则B1 等于+9+8+-4+-5
如上,A1的格式为一个数字乘以另一个小数,多个式子的之和,乘数和被乘数都可能为负,现要求B2只为*(乘号)之前数字的和,后面乘的小数都不要,前面的数字,不管正负都要,A1个是以加号开始,中间以加号连接,怎么样才能自动得到B2那种式子求大虾帮忙,
如上,A1的格式为一个数字乘以另一个小数,多个式子的之和,乘数和被乘数都可能为负,现要求B2只为*(乘号)之前数字的和,后面乘的小数都不要,前面的数字,不管正负都要,A1个是以加号开始,中间以加号连接,怎么样才能自动得到B2那种式子求大虾帮忙,
Function chq(a As Range)
Dim s As String,ans As String,i%
s = a.Formula
Do While InStr(1,s,"*") > 0
i = InStr(1,s,"*")
ans = ans & Left(s,i - 1)
s = Mid(s,i + 1,1000)
i = InStr(1,s,"+")
If i > 0 Then s = Mid(s,i,1000)
Loop
chq = ans
End Function
用上面的嗯Function 就好了,不会用的话,请HI我!
再问: 谢谢,上面的功能具体怎么运行啊?
再答: excel的菜单-工具-宏-录制新宏-(点击停止的方块) Alt-F11组合键进入,复制上面的代码,粘贴到模块里面。 回到excel界面,b1单元格输入=chq(a1)就好了,这里假定你的单元格是a1和b1。
Dim s As String,ans As String,i%
s = a.Formula
Do While InStr(1,s,"*") > 0
i = InStr(1,s,"*")
ans = ans & Left(s,i - 1)
s = Mid(s,i + 1,1000)
i = InStr(1,s,"+")
If i > 0 Then s = Mid(s,i,1000)
Loop
chq = ans
End Function
用上面的嗯Function 就好了,不会用的话,请HI我!
再问: 谢谢,上面的功能具体怎么运行啊?
再答: excel的菜单-工具-宏-录制新宏-(点击停止的方块) Alt-F11组合键进入,复制上面的代码,粘贴到模块里面。 回到excel界面,b1单元格输入=chq(a1)就好了,这里假定你的单元格是a1和b1。
请教一个exceL问题,A1单元格的格式为+9*0.23+8*-0.56+-4*0.33+-5*-0.22 则B1 等于
Excel日期公式问题:A1单元格是日期,B1单元格:如果A1日期小于等于2012/1/1或者为空,B1单元格为空,否则
请教Excel一个制表公式 a1 1 a2 5 a3 8 a4 2 a5 1 我要在b1单元格里面计算出A这列的数字总和
excel 函数问题 A1单元格-B1单元格,若等于0,C1单元格显示 "正确"; A1单元格-B1单元格,若不等于0,
excel问题-如果单元格a1,b1,c1中有一个是r,则d1显示红色;如果单元格a1,b1,c1中有一个是y,d1显示
excel求公式b1单元格等于A1单元格数值(
求Excel中if函数,以A1单元格为例,若A1为空,则B1为1,若A1不为空,则B1等于A1的内容(内容为字母)
EXCEL文档的一个单元格内A1三位数345,怎么在B1中显示为798,或者A1是045,B1显示为495.就是说A1百
excel表格中,求单元格B1等于每次输入A1单元格数值的和,比如输入A1=1,B1=1;A1=3,B1=4有这样的公式
EXCEL当中,A1,B1两个单元格,数值都为0-9的数据,当A1等于0,3,6,9时B1刚等于0.具体表述如下.
excel求公式:B1=A1~A10单元格中第一个大于5的数字,并等于这个数字
求一个Excel公式:如果单元格A1的数字为88,在B1中判断(有一组数字:11 22 33 44 55 66 77 8