[献丑]计算

yuyvtul

大侠眼中是小儿科，录制宏得到的，但计算很方便，比自带的工具计算要好，不用Ctrl+V。
当然，算式的写法要标准，如(9-5)*(27^(1/3)+45)，乘号千万不能省略。
选中算式即可
Sub 计算()
    Selection.Copy
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="="
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="="
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.Fields.Update
    Selection.Fields.ToggleShowCodes
    Selection.Fields.Unlink
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
最大100^31。
这是比尔.盖茨认识的最大数？再大了，老比就会说“太大了，我不认识”。但如果达到很大比如100^100，老比有时好像会发疯，他说“=1”，但是后来怎么没有复发？。呵呵

[此贴子已经被作者于2006-8-18 0:28:12编辑过]

守柔

谢谢楼主，还可以有更简单的，如：

Sub Example()
    Dim myValue As Single
    '负数 -3.402823E38 到 -1.401298E-45
    '正数1.401298E-45 到 3.402823E38
    With Selection
        myValue = .Calculate
        .InsertAfter "=" & myValue
    End With
End Sub
相关的链接可参考：

http://club.excelhome.net/dispbbs.asp?boardid=23&replyid=205264&id=47195&page=1&skin=0&Star=1

http://club.excelhome.net/viewthread.php?tid=65559&replyID=&skin=0