自定义动态数字格式vba

Question

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

在excel中，我可以转到自定义格式并输入### 0＆＃34;公斤/小时＆＃34;它工作正常。在VBA中，数字格式必须在引号之间写入，因此我们不能在其中加上引号。此外，＆＃34;公斤/小时＆＃34; part需要是一个字符串变量。

如何使用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 & """"