trunc compile error：sub或函数未定义

Question

我收到错误“sub或function not defined”，突出显示在下面的代码中的“TRUNC”。 TRUNC功能在我将其放入Excel单元格时有效，但在宏单元格中无效。

    Dim sLat As String

    sLat = **TRUNC**(ActiveCell.Value, 3)

Answer 1

Trunc在VBA中不可用。您可以使用Int

之类的功能

Answer 2

Nirk是对的。您可以使用VBA的Format功能来获得您想要的功能 因此，在您的代码中，请尝试使用Format，如下所示：

sLat = Format(Activecell.value, "0.000")

这将返回Activecell.value，其中包含3位小数 希望这会有所帮助。