☰

多种货币的格式

tag-icon • tag-icon microsoft-excel vba
多种货币的格式

有人知道一种巧妙的方法来对多种货币进行条件格式设置吗？我知道我可以使用条件格式公式并对其进行编程，但是，我需要对 154 种货币进行格式设置。我想知道您是否有 VBA 解决方案或过去使用过的其他巧妙解决方案。谢谢！

答案1

无需更多信息，这应该可以帮助您入门。

Sub Macro1()
' I will assume you have something like "GBP", "USD", in column D. Next to that cell is a currency amount.
' This will look at the cell in column D, and apply the appropriate format.

Dim rng As Range, cel As Range
Set rng = Range("E1:E10")
For Each cel In rng
    Select Case cel.Offset(0, -1).Value
    Case "USD"
        cel.NumberFormat = "$#,##0.00"
    Case "GBP"
        cel.NumberFormat = "£#,##0.00"
    End Select
Next cel

End Sub

它不是条件格式，但运行速度可能会快一点。如果您希望它是条件格式，请告诉我，我可以对其进行调整。您应该了解如何添加更多货币。如果您有其他方法来确定单元格应该是哪种货币，请告诉我，我可以更新它。但同时，请使用您已有的任何公式/宏以及有关您想要使用哪种货币的任何更多详细信息更新您的 OP。

相关内容