ThousandsSeparator 属性

       

设置或返回用于千位分隔符的字符。String 类型,可读写。

expression.ThousandsSeparator

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