自定义动态数字格式VBA

Question

我正在尝试将范围格式化为自定义格式。我需要相关单元格中的数字如下：2 000 kg/h.

在excel中，我可以转到自定义格式和输入＃## 0" kg/h"，而且效果很好。在vba中，数字格式必须在引号之间写入，因此我们不能在其中添加引号。此外，" kg/h"零件需要是字符串变量。

如何使用VBA实现此目标？

Answer 1

在字符串中包括引号，使用两个引号。

Debug.Print "This "" is a quote"
This " is a quote

或者您可以使用chr（）函数。chr（34）返回双引号。

Dim units As String
units = "kg/h"
ActiveCell.NumberFormat = "# ##0" & Space(1) & Chr$(34) & units & Chr$(34)

可能比

更容易阅读

ActiveCell.NumberFormat = "# ##0" & Space(1) & """" & units & """"