☰

Formateo para muchas monedas

tag-icon • tag-icon microsoft-excel vba
Formateo para muchas monedas

¿Alguien conoce una forma inteligente de aplicar formato condicional a varias monedas? Sé que podría usar fórmulas de formato condicional y programarlas todas, sin embargo, tengo 154 monedas para formatear. Me pregunto si existe una solución VBA o alguna otra solución inteligente que haya utilizado en el pasado. ¡Gracias!

Respuesta1

Sin más información, esto debería ayudarle a comenzar.

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

No es un formato condicional, pero puede ejecutarse un poco más rápido. Si desea que tenga formato condicional, hágamelo saber y puedo modificarlo. Deberías ver cómo puedes agregar más monedas. Si tiene alguna otra forma de determinar qué moneda debe ser una celda, hágamelo saber y puedo actualizarla. Pero también actualice su OP con las fórmulas/macros que ya tenga y más detalles sobre qué monedas desea utilizar.

información relacionada