### VBA中FormatNumber函数的用法与示例 在VBA中，`FormatNumber` 函数用于将数字格式化为带有指定小数位数的字符串。此函数可以控制小数点后的位数、是否显示前导零以及如何处理负数等。以下是 `FormatNumber` 函数的详细说明及其使用示例。 #### FormatNumber 函数语法 `FormatNumber` 函数的基本语法如下： ```vba FormatNumber(Expression, [NumDigitsAfterDecimal], [IncludeLeadingDigit], [UseParensForNegativeNumbers], [GroupDigits]) ``` - **Expression**：必需参数，表示要格式化的数值。 - **NumDigitsAfterDecimal**：可选参数，指定小数点后保留的位数。如果省略，默认值为 `-1`（表示使用系统设置的小数位数）[^4]。 - **IncludeLeadingDigit**：可选参数，指定是否显示前导零。其取值范围为 `vbTrue` 或 `vbFalse`。如果为 `vbTrue`，则显示前导零；如果为 `vbFalse`，则不显示前导零。 - **UseParensForNegativeNumbers**：可选参数，指定是否使用括号来表示负数。其取值范围为 `vbTrue` 或 `vbFalse`。如果为 `vbTrue`，负数将以括号形式显示；如果为 `vbFalse`，负数将以减号形式显示。 - **GroupDigits**：可选参数，指定是否以千分位格式显示数字。其取值范围为 `vbTrue` 或 `vbFalse`。如果为 `vbTrue`，则数字将以千分位格式显示；如果为 `vbFalse`，则不会以千分位格式显示[^4]。 #### 示例代码 以下是一些 `FormatNumber` 函数的使用示例： ```vba Sub FormatNumberExample() Dim num As Double num = 12345.6789 ' 小数点后保留两位 Debug.Print FormatNumber(num, 2) ' 输出: 12,345.68 ' 不显示前导零 Debug.Print FormatNumber(0.5, 1, vbFalse) ' 输出: .5 ' 使用括号表示负数 Debug.Print FormatNumber(-12345.6789, 2, , vbTrue) ' 输出: (12,345.68) ' 千分位格式显示 Debug.Print FormatNumber(123456789, 0, , , vbTrue) ' 输出: 123,456,789 End Sub ``` #### 结合实际场景的应用 在引用[2]中提到的统一数据单位问题中，可以结合 `FormatNumber` 函数对数字进行格式化。例如，将数据统一为“万”为单位时，可以先调整数值大小，再使用 `FormatNumber` 函数确保输出格式一致[^2]。 ```vba Sub demoWithFormatNumber() Dim r As Range Dim arr, lstchar Dim i As Integer Set r = [A1].CurrentRegion arr = r.Value For i = LBound(arr) To UBound(arr) lstchar = Right(arr(i, 1), 1) If lstchar = "亿" Then arr(i, 1) = FormatNumber(Val(arr(i, 1)) * 10000, 2) & "万" ElseIf VBA.IsNumeric(lstchar) Then arr(i, 1) = FormatNumber(Val(arr(i, 1)) / 10000, 2) & "万" End If Next r.Offset(0, 1).Value = arr End Sub ``` 上述代码中，`FormatNumber` 函数确保了最终输出的数字保留两位小数，并以“万”为单位显示[^2]。 --- ###