VBA自定义数字格式

Question

I have a small macro that applies a custom numberformat to a block of cells:

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

So if a cells contains 1.25 it would display as:

1.25 inches

I need to change this macro so that rather than inches being displayed, the double-quote character will be displayed instead.

I have not been able to escape the double-quote's functionality.

Answer 1

How about:

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

It's using two single quotes, not a double quote, but it may be an adequate approximation for now.

Answer 2

Try appending CHR(34) to your output string eg

NumberOfInches = 4

Debug.Print NumberOfInches & " " & CHR(34)