☰

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

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

Связанный контент