☰

Formatação para muitas moedas

tag-icon • tag-icon microsoft-excel vba
Formatação para muitas moedas

Alguém conhece uma maneira inteligente de formatar condicionalmente para várias moedas? Eu sei que poderia usar fórmulas de formatação condicional e programar todas elas, no entanto, tenho 154 moedas para formatar. Gostaria de saber se existe uma solução VBA ou alguma outra solução inteligente que você já usou no passado. Obrigado!

Responder1

Sem mais informações, isso deve começar.

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

Não é formatação condicional, mas pode ser um pouco mais rápido. Se você quiser que seja uma formatação condicional, me avise e eu posso ajustá-la. Você deverá ver como pode adicionar mais moedas. Se você tiver alguma outra maneira de determinar qual moeda uma célula deve ter, me avise e posso atualizar isso. Mas também, atualize seu OP com quaisquer fórmulas/macros que você já possui e mais detalhes sobre quais moedas você deseja usar.

informação relacionada