EXECL 能做出这种效果来吗?

steven_shuhong

情比金坚总是很厉害哦！！

双双

我是第一次来到这个论坛，真是后悔来的太晚啊。

LIXIANACCP

不另外开贴了，还有一个后续问题：


如果在A1单元格输入   5㎏


在B1单元格输入  10元/㎏


在C1单元格要显示 50








怎么办样？


同时，情比金坚版主的上述案例如果在单元格中输入5KG*10元/KG也会出错，5KG*10元每公斤则不出错，有/就出错！

[此贴子已经被作者于2006-6-22 12:54:35编辑过]

LIXIANACCP

不要让它沉了，

顶一下！！！！！！

LIXIANACCP

再顶一下,不要让最后的问题沉了!

EEKO2005

又学到东西了![em05]

scottwang

以下是引用LIXIANACCP在2006-6-22 12:47:00的发言：




不另外开贴了，还有一个后续问题：


如果在A1单元格输入   5㎏


在B1单元格输入  10元/㎏


在C1单元格要显示 50








怎么办样？


同时，情比金坚版主的上述案例如果在单元格中输入5KG*10元/KG也会出错，5KG*10元每公斤则不出错，有/就出错！

C1=LOOKUP(999999999999,--LEFT(A1,ROW(INDIRECT("$A1A"&LEN(A1)))))*LOOKUP(999999999999,--LEFT(B1,ROW(INDIRECT("$A1A"&LEN(B1)))))

LIXIANACCP

以下是引用scottwang在2006-7-1 22:52:00的发言：






C1=LOOKUP(999999999999,--LEFT(A1,ROW(INDIRECT("$A1A"&LEN(A1)))))*LOOKUP(999999999999,--LEFT(B1,ROW(INDIRECT("$A1A"&LEN(B1)))))

太麻烦了点!并不比人工手算强,能用函数解决就好了!

LIXIANACCP

不另外开贴了，还有一个后续问题：


如果在A1单元格输入   5㎏


在B1单元格输入  10元/㎏


在C1单元格要显示 50








怎么办样？


同时，情比金坚版主的上述案例如果在单元格中输入5KG*10元/KG也会出错，5KG*10元每公斤则不出错，有/就出错！



这个问题真就没办法了吗?[em06]

情比金坚

想不到你还在这，我又回来了，“/”是计算符号，是除以的意思，所以你的数据输入还是尽量标准为好。

现在增加一重判断，如果“/”后面不是数字就不把它看作是计算符号。

Function fsum(re)
    Dim n As Integer
    Dim i As Integer
    Dim str As String
    Dim stra, a
    re = Replace(re, "×", "*")
    n = Len(re)
    For i = 1 To n
        str = Mid(re, i, 1)
        If InStr(1, "1234567890+-*().", str) <> 0 Then
            stra = stra & str
        Else
            If str = "/" Then
                a = Mid(re, i + 1, 1)
                If InStr(1, "1234567890", a) <> 0 Then
                    stra = stra & str
                End If
            End If
        End If
    Next
    stra = "=" & stra
    fsum = Evaluate(stra)

End Function

[此贴子已经被作者于2006-7-16 16:56:18编辑过]