Excel中的小数位问题

Question

我正在尝试使用VBA将一个数字放到一个单元格中，然后是一个单元格中括号内的文本，例如：

  

1.23（文字）

我如何实现这一点的一个例子如下：

Cells(1, 1) = 1.23
Cells(1, 2) = Cells(1, 1) & " (text)"

单元格（1,1）的格式是工作表上的两位小数，但如果此数字为1.20或1.00，则结果为：

  

1.2（文字）或1（文字）

如何强制将单元格（1,2）中的两位小数维持到两位小数？我试过了：

Cells(1, 2) = Round(Cells(1, 1), 2) & " (text)"

Cells(1, 1).NumberFormat = "0.00"
Cells(1, 2) = Cells(1, 1) & " (text)"

但这些都不起作用。有什么建议吗？

Answer 1

您可以使用Format() function：

Cells(1,2) = Format(Cells(1,1), "0.00") & "(text)"

或许您可以直接将数字格式应用于单元格，而不是将其转换为文本值。在单元格编号格式属性中，使用以下格式：

0.00" (text)";-0.00" (other text);"0.00"