如何解决word中表达式计算结果有效数字问题

matsu 2005-09-20 06:40:33
在word中一个表达式计算,可用word自带的"工具计算",结果可保留有效数字14位,但计算数值要大于|0.01|,用VBA的Calculate方法,只可得到7位科学计数表达法,保留数位太少,如何能得到14位结果?用VB,VBA均可.
...全文
192 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
northwolves 2005-09-24
呵呵,用计算器:

Private Sub Command1_Click()
Dim r As String
Calculate "1/17+1", r
MsgBox r
End Sub


Sub Calculate(ByVal x As String, ByRef result As String)
Dim r As Long
r = Shell("Calc.EXE", vbMinimizedFocus) ' 运行计算器。
AppActivate r
SendKeys x & "=", True
SendKeys "{home}+{end}"
SendKeys "^c"
SendKeys "%{F4}", True
result = Clipboard.GetText
Clipboard.Clear
End Sub
回复
jam021 2005-09-23
关注一下
回复
发帖
VBA
创建于2007-09-28

2062

社区成员

VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
申请成为版主
帖子事件
创建了帖子
2005-09-20 06:40
社区公告
暂无公告