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