VBA自定义数字格式

Question

我有一个小宏，它将自定义数字格式应用于单元格块：

Sub Inches()
    Dim r As Range
    For Each r In Selection
        r.NumberFormat = "General"" inches"""
    Next r
End Sub

因此，如果单元格包含1.25，则显示为：

1.25英寸

我需要更改此宏，以便显示 inches ，而不是显示双引号字符。

我无法逃脱双引号的功能。

Answer 1

怎么样：

r.NumberFormat = "General"" '""'"

它使用两个单引号，而不是双引号，但它现在可能是一个足够的近似值。

Answer 2

尝试将CHR（34）附加到输出字符串，例如

NumberOfInches = 4

Debug.Print NumberOfInches＆amp; “”＆amp; CHR（34）