Вставка нескольких двойных кавычек в ячейку с использованием VBA

Question

У меня есть следующая формула, которую я хочу вставить в ячейку, но в ней есть несколько двойных кавычек, и я не могу заставить ее работать.В Интернете есть множество решений, но большинство из них имеют 1 или 2 набора двойных кавычек.Я пробовал двойные кавычки для всех двойных кавычек, но это дает мне ошибку времени выполнения. Объект 438 не поддерживает это свойство

Вот формула, которую я хочу вставить:

="Closing Costs" & " Current Buffer" & " " &TEXT('Closing Costs'!D32,"$ 0")

Воткод, который не работает:

ActiveSheet.Range("F18").Value = "=""Closing Costs"" &   ""                             
Current Buffer"" & "" "" &TEXT('Closing Costs'!D32,""$ 0"")"

Answer 1

Это должно сработать: похоже, вы добавили дополнительную цитату перед «Текущий буфер»

ActiveSheet.Range("F18").Value = "=""Closing Costs"" & "" Current Buffer"" & "" "" &TEXT('Closing Costs'!D32,""$ 0"")"

Answer 2

Использование команды chr() может быть полезным в этих сценариях. chr(34) возвращает символ двойной кавычки, поэтому приведенное ниже должно помочь.

ActiveSheet.Range("F18").Value = "=" & chr(34) & "Closing Costs                Current Buffer" & chr(34) & " " & chr(34) & TEXT('Closing Costs'!D32," & chr(34) & "$ 0" & chr(34) & ")"

Это немного длиннее, но я нахожу использование chr(34) немного проще для определения размещения котировок.

Answer 3

Следующее должно работать (все в одной строке):

ActiveSheet.Range("F18").Value = "=""Closing Costs"" &   ""                             Current Buffer"" & "" "" &TEXT('Closing Costs'!D32,""$ 0"")"

Это выглядит так же, как ваш образец - но, возможно, выглядит здесь обманчиво.