Форматирование для многих валют

Question

Кто-нибудь знает умный способ условного форматирования для нескольких валют? Я знаю, что могу использовать формулы условного форматирования и запрограммировать их все, однако у меня есть 154 валюты для форматирования. Интересно, есть ли решение VBA или какое-то другое умное решение, которое вы использовали в прошлом. Спасибо!

Answer 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, используя любые формулы / макросы, которые у вас уже есть, и более подробную информацию о том, какие валюты вы хотите использовать.