DecimalSeparator 属性

设置或返回用作十位分隔符的字符。String 类型，可读写。

expression   必需。该表达式返回一个 Application 对象。

示例

本示例将“1,234,567.89”放置在单元格 A1 中，然后将系统的十位分隔符和千位分隔符更改为短划线。

Sub ChangeSystemSeparators()

    Range("A1").Formula = "1,234,567.89"
    MsgBox "The system separators will now change."

    ' Define separators and apply.
    Application.DecimalSeparator = "-"
    Application.ThousandsSeparator = "-"
    Application.UseSystemSeparators = False

End Sub