VBA Форматирование в формат учета

Question

Я пытаюсь заставить VBA отформатировать ячейку в «бухгалтерском» формате (в евро).Я скопировал формат из опций, которые показывают

_-* #.##0,00 €_-;-* #.##0,00 €_-;_-* "-"?? €_-;_-@_-

Когда я пытаюсь применить это к

.Cells(1, 1).NumberFormat = "_-* #.##0,00 €_-;-* #.##0,00 €_-;_-* " - "?? €_-;_-@_-" 

, я получаю ошибку 400.Что я делаю не так?

Answer 1

Удвойте эти двойные кавычки (внутри строковой переменной) :

Sub kjdsffh()
    With ActiveSheet
        s = "_-* #.##0,00 €_-;-* #.##0,00 €_-;_-* ""-""?? €_-;_-@_-"
        .Cells(1, 1).NumberFormat = s
    End With
End Sub