проблема с VBA апострофами

Question

Одна строка кода приводит к тому, что мое приложение перестает работать - я думаю, что проблема в апострофах (может быть, неправильный выход):

.Formula = "=IF(AND(" 'Criterion " & i & "'!" & cellAdress & ">=1;"'Criterion " & i & "'!" & cellAdress & "<=4);"'Criterion " & i & "'!" & cellAdress & ";0)"

Когда я пытаюсь ввести последовательность VBA автоматическиставит пробел между "и", чтобы последний отображался как комментарий.Что не так - мне нужно использовать escape-символ здесь?Если да, то как его кодировать.Я получаю ошибку 1004 Применение объектно-определенной ошибки.

Спасибо

Answer 1

Вы избегаете двойных кавычек в VBA, помещая 2 двойные кавычки, например:

""

Вы также можете явно вызвать Chr(34), чтобы заключить в двойные кавычки, например:

Debug.Print "The following is in double quotes: " & _
    chr(34) & "Inside double quotes" & chr(34)

Мне не удалось опробовать следующую формулу в Excel, но я думаю, что она должна работать:

.Formula = "=IF(AND(""Criterion""" & i & "!" & cellAdress & _
  ">=1;""Criterion""" & i & "!" & cellAdress & "<=4);""Criterion""" & _
  i & "!" & cellAdress & ";0)"