用于一起显示数字格式和文本的公式

Question

我的手机A2值是1512215.22USD（文字格式，没有逗号或点数），我需要一个公式转换（也可以是文本格式）在B2中为1,512,215.22美元。该值可能在.01到100,000,000.00之间变化。

我也想知道在输入A2时选择A2应用于A2时可以执行excel事件。

提前致谢

Answer 1

假设这只是美元......

Answer 2

这个函数应该这样做 - 只需在事件中使用它，但确保在将响应写入单元格之前禁用事件，并在它循环后再次启用它们。

Function formatmoney(unformatted As String) As String
    Dim numberpart, currencypart As String

    numberpart = Left(unformatted, Len(unformatted) - 3)
    currencypart = Right(unformatted, 3)
    formatmoney = Format(Val(numberpart), "#,##0.00") & " " & currencypart
End Function