[求助]如何让域的显示结果自动转换为科学记数格式？

microbai

word中如何设置，让域的显示结果自动转换为科学记数格式。比如1230000，显示结果转换为科学记数的格式，即：1.23X104，或者1.23E+4？

办公之星

　 　　应当加个链接，以示两个帖子的联系，特别是在完全不同的应用程序之间。我是说，楼主应当在EXCEL中加入本帖的链接，这里加一个反向的，作为示范吧：） 这个问题转到了EXCEL之基础应用，请继续关注。

microbai

情急之下，帖子发到excel区了。谢谢楼上的。

这是个word问题，请大家继续关注，帮忙解答。

守柔

在域中的数字图片开关中（图片项中）并没有科学记数法，简单的检查方法中是在表格中，使用公式命令点数字格式，就7种，粘贴函数中也没有相应的转换函数。

以下是VBA代码通过运行该宏可以取得相应科学记数法：（供参考）

（有两种途径，一是在选定数字后插入，二是将原有数据删掉后转换可根据需要修改，但该代码只针对正数如果需要使用负数，可适合修改代码或者选择时“-” 号不选定并采用途径二）

Sub Kjf() Dim Sel As Byte, MyValue As Single, Myrange As Range, i As Byte, Dw As Byte Set Myrange = Selection.Range With Myrange Sel = Len(Myrange) If Myrange Like "#*.#*" = True Then For i = 2 To Sel If Mid(Myrange, i, 1) = "." Then Dw = i If Mid(Myrange, i, 1) Like "#" = True Or Mid(Myrange, i, 1) = "." Then Else MsgBox "无效数据!" Exit Sub End If Next MyValue = Selection.Calculate / (10 ^ (Dw - 2)) Selection.Delete Selection.InsertAfter MyValue & "E+" & (Dw - 2) 'Selection.InsertAfter "=" & MyValue & "E+" & (Dw - 2) Exit Sub End If If Myrange Like "##*" = True Then For i = 2 To Sel If Mid(Myrange, i, 1) Like "#" = False Then MsgBox "无效数据!": Exit Sub Next MyValue = Selection.Calculate / (10 ^ (Sel - 1)) Selection.Delete Selection.InsertAfter MyValue & "E+" & (Sel - 1) 'Selection.InsertAfter "=" & MyValue & "E+" & (Sel - 1) Exit Sub End If End With End Sub

microbai

好复杂，小弟受教了。

守柔

最新贴子：http://club.excelhome.net/viewthread.php?tid=65559

适用于对WORD文本中或者表格的数字进行简单计算、设置数字千分位、设置货币符号兼千分位、转换为科学记数法及自动插入百分号功能。

强烈建议楼主使用该贴。

自己顶一下！方便网友日后搜索数据库，能及时找到。

microbai

谢谢楼上的