excel函数问题,高手请进!!!
在EXCEL一个单元格A1内输入:100元*100个希望能够编写一个函数,能够忽略元,个这些文字直接得到运算结果.大家帮帮忙,但是A1要输入的东西是不能改的.提上面的问题...
在EXCEL一个单元格A1内输入: 100元*100个
希望能够编写一个函数,能够忽略元,个这些文字直接得到运算结果.
大家帮帮忙,但是A1要输入的东西是不能改的.
提上面的问题主要是想
单元格数字和单位可以随意更改通用的函数.放到其它地方也可以用.
比如:A1: 35元*30个*50箱+255个
求 B1中的函数???
而且当”元”、”个”、”箱”,这些单位以及数量,变化时候,不影响B1中的结果.
问题难度是不是太大了??????!!!!! 展开
希望能够编写一个函数,能够忽略元,个这些文字直接得到运算结果.
大家帮帮忙,但是A1要输入的东西是不能改的.
提上面的问题主要是想
单元格数字和单位可以随意更改通用的函数.放到其它地方也可以用.
比如:A1: 35元*30个*50箱+255个
求 B1中的函数???
而且当”元”、”个”、”箱”,这些单位以及数量,变化时候,不影响B1中的结果.
问题难度是不是太大了??????!!!!! 展开
2个回答
展开全部
仅针对你这个例子.
按下ALT+F11,插入-模块,复制下面代码.
退出
比如你的数据在A1,那在B1输入TEST(A1)即可.其它单元格的用法是一样的.就把TEST看成函数就可以了.
Public Function TEST(ByVal N As String) As Long
Dim A() As String
Dim SUM As Long
SUM = 1
A = Split(N, "*")
For X = 0 To 1
A(X) = Val(Left(A(X), Len(A(X)) - 1))
Next
For Y = 0 To 1
SUM = SUM * A(Y)
Next
TEST = SUM
End Function
按下ALT+F11,插入-模块,复制下面代码.
退出
比如你的数据在A1,那在B1输入TEST(A1)即可.其它单元格的用法是一样的.就把TEST看成函数就可以了.
Public Function TEST(ByVal N As String) As Long
Dim A() As String
Dim SUM As Long
SUM = 1
A = Split(N, "*")
For X = 0 To 1
A(X) = Val(Left(A(X), Len(A(X)) - 1))
Next
For Y = 0 To 1
SUM = SUM * A(Y)
Next
TEST = SUM
End Function
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询