《非常接触》11.4.2章节VBA数字转为千分位格式问题？

w951025

《非常接触》11.4.2章节VBA数字转为千分位格式问题？

            书上说的是把123456转为123,456.00，可我要判断是整数的不加两位小数，如123456直接转成123,456,而不加小数位的0,如何实现呀？？？？？

chylhr

守兄不在，我替他解答，有不妥的地方守兄再更正：

将原代码myRange = VBA.Format(myValue, "Standard")改为以下代码即可

   If Len(Str(myValue)) = Len(Str(Int(myValue))) Then
       myRange = VBA.Format(myValue, "###,###,###,###,###")
   Else
       myRange = VBA.Format(myValue, "Standard")
   End If

w951025

能不能搞简单些,直接放模版里或做成批处理的形式,我的应用水平很低的哟!!!!!谢谢

守柔

QUOTE:

以下是引用chylhr在2007-8-10 17:18:11的发言：

守兄不在，我替他解答，有不妥的地方守兄再更正：

将原代码myRange = VBA.Format(myValue, "Standard")改为以下代码即可

   If Len(Str(myValue)) = Len(Str(Int(myValue))) Then
       myRange = VBA.Format(myValue, "###,###,###,###,###")
   Else
       myRange = VBA.Format(myValue, "Standard")
   End If

谢谢chyhr！

这段时间太忙，以至于几乎无心上网。

这样改更好一些：

  '转为千分位格式
            myRange.Text = Replace(Format(myValue, "Standard"), ".00", "")
            GoTo NextFind    '转到指定行

sylun

好像将其中的条件句放到已转换之后效果更好，可以保留原文档中的小数位（只是小数部分位数较多时也添加了分隔符）和带点号但其后没有数字的文本（如以点结尾的编号和英文文本句末为数据时）。当然这是一种选择性问题，也只作了简单测试，不知是否可靠。

[此贴子已经被作者于2007-8-11 13:00:17编辑过]

chylhr

QUOTE:

以下是引用守柔在2007-8-11 5:25:23的发言：

谢谢chyhr！

这段时间太忙，以至于几乎无心上网。

这样改更好一些：

  '转为千分位格式
            myRange.Text = Replace(Format(myValue, "Standard"), ".00", "")
            GoTo NextFind    '转到指定行

[em17]一句顶三句。

chylhr

QUOTE:

以下是引用w951025在2007-8-10 19:54:29的发言：

能不能搞简单些,直接放模版里或做成批处理的形式,我的应用水平很低的哟!!!!!谢谢

在《非常接触》附带的光盘中有此文件，楼主自己找一下，然后将myRange = VBA.Format(myValue, "Standard")换成myRange.Text = Replace(Format(myValue, "Standard"), ".00", "")就可以了。