EXECL 能做出这种效果来吗?

LIXIANACCP

如何在A1单元格中输入:长1.3*宽1*高2*2个

在B1单元格显示5.2M³  (或5.2也行)

mq

大侠好！

照你的方法我编辑后，在a1输入公式时，有对话窗弹出：外部编辑错误。我不明白是为什么？能详细说明一下整个的操作过程吗？谢谢！

mq

谢谢！请一定帮帮忙啊！

情比金坚

未发现任何错误

LIXIANACCP

以下是引用情比金坚在2006-7-16 16:51:00的发言：


你的后续问题：

=fsum(A1 & "*" &B1)

版主：

按你的教导去做了，好象出错哦！

情比金坚

你的后续问题：

=fsum(A1 & "*" &B1)

情比金坚

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

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

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编辑过]

LIXIANACCP

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


如果在A1单元格输入   5㎏


在B1单元格输入  10元/㎏


在C1单元格要显示 50








怎么办样？


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



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

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)))))

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

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)))))