vba - Excel中的小数位问题

Question

我正在尝试使用 VBA 在单元格中放置一个数字到小数点后两位，然后是单元格中括号中的文本，例如:

1.23 (text)

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

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

Cells(1, 1) 的格式是工作表上的两位小数，但如果这个数字是 1.20 或 1.00，例如结果是:

1.2 (text) or 1 (text)

如何强制将 Cells(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"