☰

多くの通貨の書式設定

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 に更新してください。

関連情報