VBA 格式化为会计格式

Question

我正在尝试让 VBA 以 "accounting" 格式（欧元）格式化单元格。我已经从显示

的选项中复制了格式

_-* #.##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

VBA 格式化为会计格式

VBA Formatting to accounting format

excel

vba

number-formatting