使用 vba 函数根据单元格值进行数字格式化

Question

我需要在 Excel 中创建一个 VBA 作为函数，而不是子函数，以根据单元格值格式化一系列单元格。我在宏的其他地方调用该函数。 如果单元格值大于或等于零，则显示整数格式，不带小数（100 或 0）。如果该值小于零，则采用保留 2 位小数的数字格式 (0.05)。 这就是我所拥有的，但我被困住了（抱歉，这是新手）：

Function NumberFormats()
Call the_lastRow(wsX, colA)
 
    wsX.Range(colP & rowStart, colX & lastRow).NumberFormat = "General" '"#,##0.00"

End Function

Answer 1

您可以使用以下数字格式：

[>=0]0;-0.00

所有 >=0 的值均采用不带小数的格式（分号之前的部分） - 所有其他值均具有两位数（分号之后的部分）。

顺便说一句：没有理由仅仅因为您从另一个宏中调用它就拥有一个函数。