舍入变量

Question

为什么四舍五入到 1 位的数字仍然写入具有许多位数的 Excel。

例如：

dim myvar as variant
dim mysingle as single
dim myrange as range

mysingle = 4567.23494376
myvar = round(mysingle,1)

myrange = "A1"
myrange.value = myvar

尽管我在写＜code＞myvar＜/code＞，它已四舍五入到单元格A1的一位数字，尽管单元格显示4567.2，但单击单元格会显示整个值，所有数字位于公式栏尾数右侧。

我应该期待这种行为吗？

Answer 1

使用单精度几乎总是一个坏主意——Excel使用双精度——将单精度转换为双精度会带来麻烦——这段代码像你期望的那样为双精度工作，但是用单精度给出了你意想不到的答案，而没有涉及Round

    Sub roundit()
Dim myvar As Variant
Dim myDouble As Double
Dim mySingle As Single
myDouble = 4567.23494376
mySingle = 4567.2
myvar = Round(myDouble, 1)

Range("a1").Value = myvar
Range("a2").Value = mySingle
End Sub

Answer 2

尝试myvar=Worksheet函数。圆形（my单，1）

而不是myvar=round（mysingle，1）

请参阅@YowE3K提供的以下信息

工作表功能。Round始终返回类型为Variant/Double的值，而Round返回与输入参数相同类型的值（在本例中为Single）。