是否可以使用 VBA 来检测计算机上正在使用哪个十进制符号？
我有一个宏脚本，可以将条件格式添加到 Excel 工作表。问题是目标计算机可能同时使用两个十进制符号。所以我想让脚本适用于所有计算机。
代码如下：
With range("D" & row)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, Formula1:="=1,01*$C$" & row, Formula2:="=0,99*$C$" & row
.FormatConditions(1).Font.ColorIndex = 3
End With
【问题讨论】：
关于上面的答案，重要的是要知道Application.DecimalSeparator 和Application.International(xlDecimalSeparator) 的行为方式不同：
Application.DecimalSeparator 将始终输出 Excel 选项中选择的小数点分隔符，即使 Excel 被告知使用系统分隔符（来自 Windows 区域设置）Application.International(xlDecimalSeparator) 将输出 Excel 使用的实际小数分隔符，无论它来自 Windows 设置（Application.UseSystemSeparators = True）还是 Excel 选项（Application.UseSystemSeparators = False）因此我强烈建议始终使用Application.International(xlDecimalSeparator)。
【讨论】：
Application.International() 将 continue 报告区域设置中最初定义的分隔符，而不是那个您已将其覆盖为。
Format(0, ".")。
我实际上并不知道FormatConditions 中的Formulas 接受本地化公式。在其他地方，您可以在Formula 和FormulaLocal 之间进行选择。
请注意：
事实证明，这部分过于简单化到了错误的程度。请参考other answer（应该是公认的），了解Application.DecimalSeparator和Application.International(xlDecimalSeparator)的实际行为方式。
为了简单回答问题，您可以使用Application.International(xlDecimalSeparator) 或直接使用Application.DecimalSeparator 来了解分隔符。
但对于非平凡的公式，将不变的基于英语语言环境的公式分配给隐藏单元格的 Formula 属性，然后从该单元格读取 FormulaLocal 并将其用于 FormatConditions 可能更容易。 Excel 将为您完成所有转换。
【讨论】：
International 告诉您来自区域设置的实际信息，并且是只读的。 DecimalSeparator 允许您指定任何其他字符作为分隔符并将其与UseSystemSeparators = False 一起使用。
您可以使用DecimalSeparator 属性。
Application.DecimalSeparator 然后返回由运行 excel 的语言环境定义的小数分隔符。
附带说明：即使有可能，建议不要更改此设置，而是将其用于您的需求。
【讨论】：
对于 Excel 以外的应用程序，接受答案中的解决方案不可用。
相反，您可以使用Format 来检索小数分隔符：Format 中未转义的点被当前的小数分隔符替换。
DecimalSeparator = Format(0, ".")
您也可以从注册表中查找小数点分隔符
DecimalSeparator = CreateObject("WScript.Shell").RegRead("HKCU\Control Panel\International\sDecimal")
【讨论】：
Format(0, ".") 是解决我问题的唯一答案。谢谢。
我的 2 美分在这里混合了 Excel 答案和来自 Erik A. 的令人敬畏的注册表技巧；但我想在这个游戏中加入 Word，因为我经常使用自动化 Word/Outlook：
Function CorrectDecimalSeparator() As String
Dim auxCorrectListSeparator As String
If WordIsOpen Then
CorrectDecimalSeparator= Word.Application.International(wdListSeparator)
ElseIf ExcelIsOpen Then
CorrectDecimalSeparator= Excel.Application.International(xlListSeparator)
Else
auxCorrectListSeparator = CreateObject("WScript.Shell").RegRead("HKCU\Control Panel\International\sDecimal")
End If
End Function
Function WordIsOpen() As Boolean
Dim oWord As Object
On Error Resume Next
Set oWord = GetObject(, "Word.Application")
On Error GoTo 0
WordIsOpen = Not oWord Is Nothing
Set oWord = Nothing
End Function
Function ExcelIsOpen() As Boolean
Dim oExcel As Object
On Error Resume Next
Set oExcel = GetObject(, "Excel.Application")
On Error GoTo 0
ExcelIsOpen = Not oExcel Is Nothing
Set oExcel = Nothing
End Function
【讨论】：
您还可以将计算得出的已知数字转换为已知字符串，然后提取分隔符。在此示例中，1/2 计算为三个字符的字符串“0.5”或“0,5”。 Mid 函数从字符串中的位置 2 中提取 1 个字符。
Public Function DecimalSeparator() As String
DecimalSeparator = Mid$(1 / 2, 2, 1)
End Function
【讨论】：