如何使用VBA语句实现把数字转换成有小数位数要求的文本数字

joe_xgp

请教高手：
假如A1单元格中是数字，如何使用VBA语句实现将A1单元个中的数字转化为还有小数位数要求的文本型数字（比如要求4为小数）。

非常感谢！

lu_zhao_long

如果楼主的要求仅此而已的话，使用 VBA  简直就是“杀鸡用牛刀”了！
建议楼主使用 TEXT 函数试试看！
见下面的函数说明：
TEXT

请参阅

将数值转换为按指定数字格式表示的文本。

语法

TEXT(value,format_text)

Value    为数值、计算结果为数字值的公式，或对包含数字值的单元格的引用。

Format_text    为“单元格格式”对话框中“数字”选项卡上“分类”框中的文本形式的数字格式。

说明

Format_text 不能包含星号 (*)。

通过“格式”菜单调用“单元格”命令，然后在“数字”选项卡上设置单元格的格式，只会更改单元格的格式而不会影响其中的数值。使用函数 TEXT 可以将数值转换为带格式的文本，而其结果将不再作为数字参与计算。

cflood

Format([a1], "#.0000")

joe_xgp

非常感谢楼上2楼和3楼朋友的指教！
Excel中的函数Text 实现功能我是知道，目的是想使用VBA来实现。 不过还是要感谢2楼朋友的热心帮助。

ericfei

原帖由 joe_xgp 于 2010-1-17 10:38 发表
非常感谢楼上2楼和3楼朋友的指教！
Excel中的函数Text 实现功能我是知道，目的是想使用VBA来实现。 不过还是要感谢2楼朋友的热心帮助。

这些函数在VBA中都可以拿来用的。

mx39750

111111111111

mmwwdd

在需要的 VBA 代码中，输入以下语句：
Dim num As Double
Dim str As String
num = Range("A1").Value    '将 A1 单元格中的值赋给 num 变量
str = Format(num, "0.0000")   '将 num 变量的值格式化为带有 4 位小数的文本型数字
Range("A1").Value = str   '将 str 变量的值赋给 A1 单元格
其中，“0.0000”表示要求显示 4 位小数，你可以根据需要修改这个参数。

运行代码，即可将 A1 单元格中的数字转化为带有指定小数位数的文本型数字。
值得注意的是，转化后的数字是文本型，如果需要进行数值计算，需要再次使用 VBA 中的 Val 函数将其转化为数值型。


分享