Excel中的小数位问题

我正在尝试使用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)" 

但这两者都不起作用。 有什么build议么？

Answer 1

您可以使用Format()函数 ：

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

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

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