別のセル値に基づくカスタム通貨書式

Question

セルA1には、以下の通貨 "EUR"、 "USD"または "RON"のいずれかが含まれている場合があります。セルB1に 私は、次のカスタムセルフォーマットを持っている：「EUR」* 0.00「/ MT」

は、誰もが私のアカウントにから値を取ってを適応にセルB1に書式を設定することができますどのように私に言ってのに役立ちますA1。コードはworkbook.openでのみ実行する必要があります

ありがとうございます！

Answer 1

置きワークシートのコード領域で、次のイベントマクロ：

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim A1 As Range, B1 As Range, BaseFormat As String 
    Dim temp As String 

    Set A1 = Range("A1") 
    Set B1 = Range("B1") 
    BaseFormat = """EUR"" * 0.00""/mt""" 
    If Intersect(A1, Target) Is Nothing Then Exit Sub 
    temp = A1.Value 
    B1.NumberFormat = Replace(BaseFormat, "EUR", temp) 
End Sub 

それがワークシートのコードであるので、非常に簡単にインストールし、使用する自動化されて：

1. タブを右クリックし、 Excelウィンドウの下部にある名前
2. [コードの表示]を選択すると、VBEウィンドウが表示されます。
3. VBEウィンドウを閉じて、VBEウィンドウを閉じます

ご不明な点がございましたら、まず試用版のワークシートで試してみてください。

ブックを保存すると、マクロが保存されます。 後で2003その後、Excelのバージョンを使用している場合は、マクロを削除するにはかなりの.xlsx

より.xlsmとして にファイルを保存する必要があります。

1. が
上記のようVBEウィンドウを持ち出しますアウト
2. はクリアコード
3. 参照、一般的にはマクロの詳細についてはVBEウィンドウに

を閉じる：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

と

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

イベントマクロ（ワークシートのコード）の詳細については、以下を参照してください。これが動作するために

http://www.mvps.org/dmcritchie/excel/event.htm

マクロを有効にする必要があります！

（、唯一のワークブックオープンでこれを実行するにはワークブックを開き、マクロA1に値を再主張してきたし、その後のイベントを無効にする）