Excel VBA十进制分隔符转换失效问题求助

问题核心：Format函数默认遵循系统区域设置，而非Excel的Application.DecimalSeparator配置，所以单独修改后者无法让Format输出逗号作为十进制分隔符。

解决方法一：全局覆盖Excel分隔符设置 #

先启用自定义分隔符模式，再修改设置，这样Format会遵循Excel的配置：

' 关闭系统分隔符依赖
Application.UseSystemSeparators = False
' 设置十进制分隔符为逗号
Application.DecimalSeparator = ","
' 按需设置千位分隔符（示例为点）
Application.ThousandsSeparator = "."

' 此时Format会使用逗号作为小数点
formattedValue = Format(numericValue, "#,##0.00")

解决方法二：直接替换小数点（不修改全局设置） #

如果不想改动用户的Excel默认配置，直接替换Format输出里的小数点：

' 先按常规格式输出，再替换小数点
formattedValue = Replace(Format(numericValue, "#,##0.00"), ".", ",")

注意事项 #

若程序需要在多台电脑运行，建议在启动时保存用户原有分隔符设置，退出时恢复，避免影响用户日常使用：

' 保存初始设置
Dim oldDecimal As String, oldThousands As String, oldUseSystem As Boolean
oldDecimal = Application.DecimalSeparator
oldThousands = Application.ThousandsSeparator
oldUseSystem = Application.UseSystemSeparators

' 应用自定义分隔符
Application.UseSystemSeparators = False
Application.DecimalSeparator = ","
Application.ThousandsSeparator = "."

' 你的计算与文本框赋值逻辑...
TextBox1.Value = formattedValue

' 退出前恢复原有设置
Application.DecimalSeparator = oldDecimal
Application.ThousandsSeparator = oldThousands
Application.UseSystemSeparators = oldUseSystem

内容的提问来源于stack exchange，提问作者Anouar ALMOUSLIH