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

matsu 2005-09-20 06:40:33
在word中一个表达式计算,可用word自带的"工具计算",结果可保留有效数字14位,但计算数值要大于|0.01|,用VBA的Calculate方法,只可得到7位科学计数表达法,保留数位太少,如何能得到14位结果?用VB,VBA均可.
...全文
352 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
关注一下

2,461

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧