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