☰

多種貨幣的格式

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。

相關內容