加减乘除问题

守柔

以下是引用matsumi在2005-7-18 20:13:55的发言：

加一个n次方,表达式为(1+5.5*200)2.6 不是(1+5.5*200)^2.6,太复杂了恐怕不行,要求到此为止.谢谢!全文数据的运算符，用常规符号,不替换,为了计算在代码中用* / ^ 替换× ÷ 及 n次,.

对不起，您的要求，我不能做，即使做了，是守柔的一个“败笔”

这样的运算，不符合程序运行，而且，你的N次方，根本属于“无理”要求，程序基本不能判断是N次方。

比如(5+3)(4-2),电脑很难(不是不能,我不想这么做),而且,你说不定异想天开使用中文括号,小数点使用句号.

编程要求应地制宜,我不想为此而迁就于你而毁损于代码,如果你不改的话.

任何运算,都有一定极其严密的数据控制\判断\运算符检测与分析\优先级别等等,光这是样的判断,普通程序如果想要完成这样复杂的判断,至少到500行代码以上.

我没有必要这样做,楼主也没有必要这样做.

matsumi

谢谢版主肺腑之言,问题就到此为止吧!实在不好意思,表歉意!

matsumi

在此借用守柔老师的CalValue宏,表谢意,以下解决部分符号替换问题,请多指正!

Sub 计算()

Dim Mycal As Single, Myrange As Range, Er On Error Resume Next

Err.Clear Er = (Right(Selection, 1) * 1) If Err.Number = 13 Then '此判断主要针对选定过程中容易选中段落符,否则可省略。 Set Myrange = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End - 1) Else Set Myrange = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End) End If Application.ScreenUpdating = False With Myrange '将原表达式拷贝剪贴板 .Copy '复制到原表达式之后 'ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End).Copy '复制到原表达式下一行

'将表达式中×÷中括号大括号替换为小括号 Myrange = Replace(Myrange, "×", "*") Myrange = Replace(Myrange, "÷", "/") Myrange = Replace(Myrange, "[", "(") Myrange = Replace(Myrange, "]", ")") Myrange = Replace(Myrange, "{", "(") Myrange = Replace(Myrange, "}", ")")

Mycal = .Calculate .Paste '将剪贴板内容覆盖原表达式 .InsertAfter "=" & Mycal End With Application.ScreenUpdating = True End Sub